diff options
| author | langou <langou@users.noreply.github.com> | 2015-11-15 16:49:46 +0000 |
|---|---|---|
| committer | langou <langou@users.noreply.github.com> | 2015-11-15 16:49:46 +0000 |
| commit | e5c236b03ae6f2c2af73a3331531825ca6b16e70 (patch) | |
| tree | 630f741c40387a7b2706d1d768c39a15b835a9bf /SRC/dpotrf.f | |
| parent | 39a7b4621f21356d51dbaaa334a9cf307b310c8e (diff) | |
| download | lapack-e5c236b03ae6f2c2af73a3331531825ca6b16e70.tar.gz lapack-e5c236b03ae6f2c2af73a3331531825ca6b16e70.tar.bz2 lapack-e5c236b03ae6f2c2af73a3331531825ca6b16e70.zip | |
integration of xPOTRF2
Diffstat (limited to 'SRC/dpotrf.f')
| -rw-r--r-- | SRC/dpotrf.f | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/SRC/dpotrf.f b/SRC/dpotrf.f index 3457230b..6e4865c8 100644 --- a/SRC/dpotrf.f +++ b/SRC/dpotrf.f @@ -136,7 +136,7 @@ EXTERNAL LSAME, ILAENV * .. * .. External Subroutines .. - EXTERNAL DGEMM, DPOTF2, DSYRK, DTRSM, XERBLA + EXTERNAL DGEMM, DPOTRF2, DSYRK, DTRSM, XERBLA * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN @@ -171,7 +171,7 @@ * * Use unblocked code. * - CALL DPOTF2( UPLO, N, A, LDA, INFO ) + CALL DPOTRF2( UPLO, N, A, LDA, INFO ) ELSE * * Use blocked code. @@ -188,7 +188,7 @@ JB = MIN( NB, N-J+1 ) CALL DSYRK( 'Upper', 'Transpose', JB, J-1, -ONE, $ A( 1, J ), LDA, ONE, A( J, J ), LDA ) - CALL DPOTF2( 'Upper', JB, A( J, J ), LDA, INFO ) + CALL DPOTRF2( 'Upper', JB, A( J, J ), LDA, INFO ) IF( INFO.NE.0 ) $ GO TO 30 IF( J+JB.LE.N ) THEN @@ -216,7 +216,7 @@ JB = MIN( NB, N-J+1 ) CALL DSYRK( 'Lower', 'No transpose', JB, J-1, -ONE, $ A( J, 1 ), LDA, ONE, A( J, J ), LDA ) - CALL DPOTF2( 'Lower', JB, A( J, J ), LDA, INFO ) + CALL DPOTRF2( 'Lower', JB, A( J, J ), LDA, INFO ) IF( INFO.NE.0 ) $ GO TO 30 IF( J+JB.LE.N ) THEN |