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/zlat2c.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/zlat2c.f')
| -rw-r--r-- | SRC/zlat2c.f | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/SRC/zlat2c.f b/SRC/zlat2c.f index 8a7fbcfe..674b2c53 100644 --- a/SRC/zlat2c.f +++ b/SRC/zlat2c.f @@ -56,7 +56,7 @@ * PRECISION overflow threshold, in this case, the content * of the UPLO part of SA in exit is unspecified. * -* ========= +* ===================================================================== * * .. Local Scalars .. INTEGER I, J @@ -79,9 +79,9 @@ DO 20 J = 1, N DO 10 I = 1, J 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 50 END IF @@ -92,9 +92,9 @@ DO 40 J = 1, N DO 30 I = J, N 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 50 END IF |