Skip to content

Commit 39f707d

Browse files
jipjip
committed
comments fixed: subroutine name
1 parent 0277cd9 commit 39f707d

4 files changed

Lines changed: 12 additions & 12 deletions

File tree

‎SRC/zhetf2_rk.f‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -417,7 +417,7 @@ SUBROUTINE ZHETF2_RK( UPLO, N, A, LDA, E, IPIV, INFO )
417417
*
418418
* Case(2)
419419
* Equivalent to testing for
420-
* ABS( REAL( W( IMAX,KW-1 ) ) ).GE.ALPHA*ROWMAX
420+
* ABS( DBLE( W( IMAX,KW-1 ) ) ).GE.ALPHA*ROWMAX
421421
* (used to handle NaN and Inf)
422422
*
423423
IF( .NOT.( ABS( DBLE( A( IMAX, IMAX ) ) )
@@ -770,7 +770,7 @@ SUBROUTINE ZHETF2_RK( UPLO, N, A, LDA, E, IPIV, INFO )
770770
*
771771
* Case(2)
772772
* Equivalent to testing for
773-
* ABS( REAL( W( IMAX,KW-1 ) ) ).GE.ALPHA*ROWMAX
773+
* ABS( DBLE( W( IMAX,KW-1 ) ) ).GE.ALPHA*ROWMAX
774774
* (used to handle NaN and Inf)
775775
*
776776
IF( .NOT.( ABS( DBLE( A( IMAX, IMAX ) ) )

‎SRC/zhetf2_rook.f‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -357,7 +357,7 @@ SUBROUTINE ZHETF2_ROOK( UPLO, N, A, LDA, IPIV, INFO )
357357
*
358358
* Case(2)
359359
* Equivalent to testing for
360-
* ABS( REAL( W( IMAX,KW-1 ) ) ).GE.ALPHA*ROWMAX
360+
* ABS( DBLE( W( IMAX,KW-1 ) ) ).GE.ALPHA*ROWMAX
361361
* (used to handle NaN and Inf)
362362
*
363363
IF( .NOT.( ABS( DBLE( A( IMAX, IMAX ) ) )
@@ -669,7 +669,7 @@ SUBROUTINE ZHETF2_ROOK( UPLO, N, A, LDA, IPIV, INFO )
669669
*
670670
* Case(2)
671671
* Equivalent to testing for
672-
* ABS( REAL( W( IMAX,KW-1 ) ) ).GE.ALPHA*ROWMAX
672+
* ABS( DBLE( W( IMAX,KW-1 ) ) ).GE.ALPHA*ROWMAX
673673
* (used to handle NaN and Inf)
674674
*
675675
IF( .NOT.( ABS( DBLE( A( IMAX, IMAX ) ) )

‎SRC/zlahef_rk.f‎

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -460,7 +460,7 @@ SUBROUTINE ZLAHEF_RK( UPLO, N, NB, KB, A, LDA, E, IPIV, W, LDW,
460460
*
461461
* Case(2)
462462
* Equivalent to testing for
463-
* ABS( REAL( W( IMAX,KW-1 ) ) ).GE.ALPHA*ROWMAX
463+
* ABS( DBLE( W( IMAX,KW-1 ) ) ).GE.ALPHA*ROWMAX
464464
* (used to handle NaN and Inf)
465465
*
466466
IF( .NOT.( ABS( DBLE( W( IMAX,KW-1 ) ) )
@@ -599,7 +599,7 @@ SUBROUTINE ZLAHEF_RK( UPLO, N, NB, KB, A, LDA, E, IPIV, W, LDW,
599599
* A(1:k-1,k) := U(1:k-1,k) = W(1:k-1,kw)/D(k,k)
600600
*
601601
* (NOTE: No need to use for Hermitian matrix
602-
* A( K, K ) = REAL( W( K, K) ) to separately copy diagonal
602+
* A( K, K ) = DBLE( W( K, K) ) to separately copy diagonal
603603
* element D(k,k) from W (potentially saves only one load))
604604
CALL ZCOPY( K, W( 1, KW ), 1, A( 1, K ), 1 )
605605
IF( K.GT.1 ) THEN
@@ -912,7 +912,7 @@ SUBROUTINE ZLAHEF_RK( UPLO, N, NB, KB, A, LDA, E, IPIV, W, LDW,
912912
*
913913
* Case(2)
914914
* Equivalent to testing for
915-
* ABS( REAL( W( IMAX,K+1 ) ) ).GE.ALPHA*ROWMAX
915+
* ABS( DBLE( W( IMAX,K+1 ) ) ).GE.ALPHA*ROWMAX
916916
* (used to handle NaN and Inf)
917917
*
918918
IF( .NOT.( ABS( DBLE( W( IMAX,K+1 ) ) )
@@ -1042,7 +1042,7 @@ SUBROUTINE ZLAHEF_RK( UPLO, N, NB, KB, A, LDA, E, IPIV, W, LDW,
10421042
* A(k+1:N,k) := L(k+1:N,k) = W(k+1:N,k)/D(k,k)
10431043
*
10441044
* (NOTE: No need to use for Hermitian matrix
1045-
* A( K, K ) = REAL( W( K, K) ) to separately copy diagonal
1045+
* A( K, K ) = DBLE( W( K, K) ) to separately copy diagonal
10461046
* element D(k,k) from W (potentially saves only one load))
10471047
CALL ZCOPY( N-K+1, W( K, K ), 1, A( K, K ), 1 )
10481048
IF( K.LT.N ) THEN

‎SRC/zlahef_rook.f‎

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -370,7 +370,7 @@ SUBROUTINE ZLAHEF_ROOK( UPLO, N, NB, KB, A, LDA, IPIV, W, LDW,
370370
*
371371
* Case(2)
372372
* Equivalent to testing for
373-
* ABS( REAL( W( IMAX,KW-1 ) ) ).GE.ALPHA*ROWMAX
373+
* ABS( DBLE( W( IMAX,KW-1 ) ) ).GE.ALPHA*ROWMAX
374374
* (used to handle NaN and Inf)
375375
*
376376
IF( .NOT.( ABS( DBLE( W( IMAX,KW-1 ) ) )
@@ -509,7 +509,7 @@ SUBROUTINE ZLAHEF_ROOK( UPLO, N, NB, KB, A, LDA, IPIV, W, LDW,
509509
* A(1:k-1,k) := U(1:k-1,k) = W(1:k-1,kw)/D(k,k)
510510
*
511511
* (NOTE: No need to use for Hermitian matrix
512-
* A( K, K ) = REAL( W( K, K) ) to separately copy diagonal
512+
* A( K, K ) = DBLE( W( K, K) ) to separately copy diagonal
513513
* element D(k,k) from W (potentially saves only one load))
514514
CALL ZCOPY( K, W( 1, KW ), 1, A( 1, K ), 1 )
515515
IF( K.GT.1 ) THEN
@@ -833,7 +833,7 @@ SUBROUTINE ZLAHEF_ROOK( UPLO, N, NB, KB, A, LDA, IPIV, W, LDW,
833833
*
834834
* Case(2)
835835
* Equivalent to testing for
836-
* ABS( REAL( W( IMAX,K+1 ) ) ).GE.ALPHA*ROWMAX
836+
* ABS( DBLE( W( IMAX,K+1 ) ) ).GE.ALPHA*ROWMAX
837837
* (used to handle NaN and Inf)
838838
*
839839
IF( .NOT.( ABS( DBLE( W( IMAX,K+1 ) ) )
@@ -963,7 +963,7 @@ SUBROUTINE ZLAHEF_ROOK( UPLO, N, NB, KB, A, LDA, IPIV, W, LDW,
963963
* A(k+1:N,k) := L(k+1:N,k) = W(k+1:N,k)/D(k,k)
964964
*
965965
* (NOTE: No need to use for Hermitian matrix
966-
* A( K, K ) = REAL( W( K, K) ) to separately copy diagonal
966+
* A( K, K ) = DBLE( W( K, K) ) to separately copy diagonal
967967
* element D(k,k) from W (potentially saves only one load))
968968
CALL ZCOPY( N-K+1, W( K, K ), 1, A( K, K ), 1 )
969969
IF( K.LT.N ) THEN

0 commit comments

Comments
 (0)