diff options
| author | julie <julielangou@users.noreply.github.com> | 2011-03-10 19:09:21 +0000 |
|---|---|---|
| committer | julie <julielangou@users.noreply.github.com> | 2011-03-10 19:09:21 +0000 |
| commit | 1923c69f7e9857d19b67f9e9befd1b1f37c644ef (patch) | |
| tree | a0729e3779db5c74c0dcda417a0d6eff5c8b3f95 /SRC/zlag2c.f | |
| parent | 86579dddaf0142000a291a7fdac0850278b56317 (diff) | |
| download | lapack-1923c69f7e9857d19b67f9e9befd1b1f37c644ef.tar.gz lapack-1923c69f7e9857d19b67f9e9befd1b1f37c644ef.tar.bz2 lapack-1923c69f7e9857d19b67f9e9befd1b1f37c644ef.zip | |
Formating code, use of * for comment, and follow other LAPACK style
Diffstat (limited to 'SRC/zlag2c.f')
| -rw-r--r-- | SRC/zlag2c.f | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/SRC/zlag2c.f b/SRC/zlag2c.f index 445c4071..4d4f94b5 100644 --- a/SRC/zlag2c.f +++ b/SRC/zlag2c.f @@ -53,7 +53,7 @@ * PRECISION overflow threshold, in this case, the content * of SA in exit is unspecified. * -* ========= +* ===================================================================== * * .. Local Scalars .. INTEGER I, J @@ -72,9 +72,9 @@ DO 20 J = 1, N DO 10 I = 1, M IF( ( DBLE( A( I, J ) ).LT.-RMAX ) .OR. - + ( DBLE( A( I, J ) ).GT.RMAX ) .OR. - + ( DIMAG( A( I, J ) ).LT.-RMAX ) .OR. - + ( DIMAG( A( I, J ) ).GT.RMAX ) ) THEN + $ ( DBLE( A( I, J ) ).GT.RMAX ) .OR. + $ ( DIMAG( A( I, J ) ).LT.-RMAX ) .OR. + $ ( DIMAG( A( I, J ) ).GT.RMAX ) ) THEN INFO = 1 GO TO 30 END IF |