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/zlanhf.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/zlanhf.f')
| -rw-r--r-- | SRC/zlanhf.f | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/SRC/zlanhf.f b/SRC/zlanhf.f index 25cb0020..ae5ddff4 100644 --- a/SRC/zlanhf.f +++ b/SRC/zlanhf.f @@ -227,19 +227,19 @@ * NOE = 1 IF( MOD( N, 2 ).EQ.0 ) - + NOE = 0 + $ NOE = 0 * * set ifm = 0 when form='C' or 'c' and 1 otherwise * IFM = 1 IF( LSAME( TRANSR, 'C' ) ) - + IFM = 0 + $ IFM = 0 * * set ilu = 0 when uplo='U or 'u' and 1 otherwise * ILU = 1 IF( LSAME( UPLO, 'U' ) ) - + ILU = 0 + $ ILU = 0 * * set lda = (n+1)/2 when ifm = 0 * set lda = n when ifm = 1 and noe = 1 @@ -498,7 +498,7 @@ END IF END IF ELSE IF( ( LSAME( NORM, 'I' ) ) .OR. ( LSAME( NORM, 'O' ) ) .OR. - + ( NORM.EQ.'1' ) ) THEN + $ ( NORM.EQ.'1' ) ) THEN * * Find normI(A) ( = norm1(A), since A is Hermitian). * @@ -524,7 +524,7 @@ * -> A(j+k,j+k) WORK( J+K ) = S + AA IF( I.EQ.K+K ) - + GO TO 10 + $ GO TO 10 I = I + 1 AA = ABS( DBLE( A( I+J*LDA ) ) ) * -> A(j,j) @@ -1037,7 +1037,7 @@ END DO DO J = 0, K - 2 CALL ZLASSQ( K-J-1, A( J+1+( J+K-1 )*LDA ), 1, - + SCALE, S ) + $ SCALE, S ) * L at A(0,k-1) END DO S = S + S @@ -1226,7 +1226,7 @@ END DO DO J = 0, K - 2 CALL ZLASSQ( K-J-1, A( J+1+( J+K )*LDA ), 1, SCALE, - + S ) + $ S ) * L at A(0,k) END DO S = S + S |