diff options
Diffstat (limited to 'SRC/zpotrf.f')
| -rw-r--r-- | SRC/zpotrf.f | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/SRC/zpotrf.f b/SRC/zpotrf.f index 0d8055fd..216d7d32 100644 --- a/SRC/zpotrf.f +++ b/SRC/zpotrf.f @@ -137,7 +137,7 @@ EXTERNAL LSAME, ILAENV * .. * .. External Subroutines .. - EXTERNAL XERBLA, ZGEMM, ZHERK, ZPOTF2, ZTRSM + EXTERNAL XERBLA, ZGEMM, ZHERK, ZPOTRF2, ZTRSM * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN @@ -172,7 +172,7 @@ * * Use unblocked code. * - CALL ZPOTF2( UPLO, N, A, LDA, INFO ) + CALL ZPOTRF2( UPLO, N, A, LDA, INFO ) ELSE * * Use blocked code. @@ -189,7 +189,7 @@ JB = MIN( NB, N-J+1 ) CALL ZHERK( 'Upper', 'Conjugate transpose', JB, J-1, $ -ONE, A( 1, J ), LDA, ONE, A( J, J ), LDA ) - CALL ZPOTF2( 'Upper', JB, A( J, J ), LDA, INFO ) + CALL ZPOTRF2( 'Upper', JB, A( J, J ), LDA, INFO ) IF( INFO.NE.0 ) $ GO TO 30 IF( J+JB.LE.N ) THEN @@ -218,7 +218,7 @@ JB = MIN( NB, N-J+1 ) CALL ZHERK( 'Lower', 'No transpose', JB, J-1, -ONE, $ A( J, 1 ), LDA, ONE, A( J, J ), LDA ) - CALL ZPOTF2( 'Lower', JB, A( J, J ), LDA, INFO ) + CALL ZPOTRF2( 'Lower', JB, A( J, J ), LDA, INFO ) IF( INFO.NE.0 ) $ GO TO 30 IF( J+JB.LE.N ) THEN |