diff options
| author | igor175 <igor175@8a072113-8704-0410-8d35-dd094bca7971> | 2011-11-14 18:02:55 +0000 |
|---|---|---|
| committer | igor175 <igor175@8a072113-8704-0410-8d35-dd094bca7971> | 2011-11-14 18:02:55 +0000 |
| commit | eee73b62e2183c93fba90dac45c5eb184c5e9133 (patch) | |
| tree | dfa17cc12f8effe55fcbffbe06a37fe8058fb3cc /SRC | |
| parent | 32c7650cfb3e84bda3504b9a7deaabb9cc84d813 (diff) | |
| download | lapack-eee73b62e2183c93fba90dac45c5eb184c5e9133.tar.gz lapack-eee73b62e2183c93fba90dac45c5eb184c5e9133.tar.bz2 lapack-eee73b62e2183c93fba90dac45c5eb184c5e9133.zip | |
function call change from DSYTRS to DSYTRS_ROOK in DSYCON_ROOK
Diffstat (limited to 'SRC')
| -rw-r--r-- | SRC/dsycon_rook.f | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/SRC/dsycon_rook.f b/SRC/dsycon_rook.f index 35098dfd..b4e59a88 100644 --- a/SRC/dsycon_rook.f +++ b/SRC/dsycon_rook.f @@ -238,7 +238,7 @@ * * Multiply by inv(L*D*L**T) or inv(U*D*U**T). * - CALL DSYTRS( UPLO, N, 1, A, LDA, IPIV, WORK, N, INFO ) + CALL DSYTRS_ROOK( UPLO, N, 1, A, LDA, IPIV, WORK, N, INFO ) GO TO 30 END IF * |