diff options
| author | langou <langou@users.noreply.github.com> | 2015-11-15 17:15:57 +0000 |
|---|---|---|
| committer | langou <langou@users.noreply.github.com> | 2015-11-15 17:15:57 +0000 |
| commit | e303516715b871b02f69af7d41b1c01f010c72e7 (patch) | |
| tree | 4324e945125ca70fa4b63f64c163f8af21cb5414 /SRC/zgetrf.f | |
| parent | e5c236b03ae6f2c2af73a3331531825ca6b16e70 (diff) | |
| download | lapack-e303516715b871b02f69af7d41b1c01f010c72e7.tar.gz lapack-e303516715b871b02f69af7d41b1c01f010c72e7.tar.bz2 lapack-e303516715b871b02f69af7d41b1c01f010c72e7.zip | |
integration of xGETRF2
Diffstat (limited to 'SRC/zgetrf.f')
| -rw-r--r-- | SRC/zgetrf.f | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/SRC/zgetrf.f b/SRC/zgetrf.f index 5428a8ff..a8ff39ce 100644 --- a/SRC/zgetrf.f +++ b/SRC/zgetrf.f @@ -131,7 +131,7 @@ INTEGER I, IINFO, J, JB, NB * .. * .. External Subroutines .. - EXTERNAL XERBLA, ZGEMM, ZGETF2, ZLASWP, ZTRSM + EXTERNAL XERBLA, ZGEMM, ZGETRF2, ZLASWP, ZTRSM * .. * .. External Functions .. INTEGER ILAENV @@ -169,7 +169,7 @@ * * Use unblocked code. * - CALL ZGETF2( M, N, A, LDA, IPIV, INFO ) + CALL ZGETRF2( M, N, A, LDA, IPIV, INFO ) ELSE * * Use blocked code. @@ -180,7 +180,7 @@ * Factor diagonal and subdiagonal blocks and test for exact * singularity. * - CALL ZGETF2( M-J+1, JB, A( J, J ), LDA, IPIV( J ), IINFO ) + CALL ZGETRF2( M-J+1, JB, A( J, J ), LDA, IPIV( J ), IINFO ) * * Adjust INFO and the pivot indices. * |