← Back to branch summary

~ubuntu-branches/ubuntu/hoary/scilab/hoary

« back to all changes in this revision

Viewing changes to routines/slicot/sb02ms.f

  • Committer: Bazaar Package Importer
  • Author(s): Torsten Werner
  • Date: 2005-01-09 22:58:21 UTC
  • mfrom: (1.1.1 upstream)
  • Revision ID: james.westby@ubuntu.com-20050109225821-473xr8vhgugxxx5j
Tags: 3.0-12
http://bugs.debian.org/255869
changed configure.in to build scilab's own malloc.o, closes: #255869

Show diffs side-by-side

added added

removed removed

Lines of Context:
routines/slicot/sb02ms.f
 
1
      LOGICAL FUNCTION SB02MS( REIG, IEIG )
 
2
C
 
3
C     RELEASE 4.0, WGS COPYRIGHT 1999.
 
4
C
 
5
C     PURPOSE
 
6
C
 
7
C     To select the unstable eigenvalues for solving the discrete-time
 
8
C     algebraic Riccati equation.
 
9
C
 
10
C     ARGUMENTS
 
11
C
 
12
C     Input/Output Parameters
 
13
C
 
14
C     REIG    (input) DOUBLE PRECISION
 
15
C             The real part of the current eigenvalue considered.
 
16
C
 
17
C     IEIG    (input) DOUBLE PRECISION
 
18
C             The imaginary part of the current eigenvalue considered.
 
19
C
 
20
C     METHOD
 
21
C
 
22
C     The function value SB02MS is set to .TRUE. for an unstable
 
23
C     eigenvalue (i.e., with modulus greater than or equal to one) and
 
24
C     to .FALSE., otherwise.
 
25
C
 
26
C     REFERENCES
 
27
C
 
28
C     None.
 
29
C
 
30
C     NUMERICAL ASPECTS
 
31
C
 
32
C     None.
 
33
C
 
34
C     CONTRIBUTOR
 
35
C
 
36
C     V. Sima, Katholieke Univ. Leuven, Belgium, Aug. 1997.
 
37
C
 
38
C     REVISIONS
 
39
C
 
40
C     -
 
41
C
 
42
C     KEYWORDS
 
43
C
 
44
C     Algebraic Riccati equation, closed loop system, discrete-time
 
45
C     system, optimal regulator, Schur form.
 
46
C
 
47
C     ******************************************************************
 
48
C
 
49
C     .. Parameters ..
 
50
      DOUBLE PRECISION  ONE
 
51
      PARAMETER         ( ONE = 1.0D0 )
 
52
C     .. Scalar Arguments ..
 
53
      DOUBLE PRECISION  IEIG, REIG
 
54
C     .. External Functions ..
 
55
      DOUBLE PRECISION   DLAPY2
 
56
      EXTERNAL           DLAPY2
 
57
C     .. Executable Statements ..
 
58
C
 
59
      SB02MS = DLAPY2( REIG, IEIG ).GE.ONE
 
60
C
 
61
      RETURN
 
62
C *** Last line of SB02MS ***
 
63
      END