diff options
| author | igor175 <igor175@8a072113-8704-0410-8d35-dd094bca7971> | 2011-12-07 15:11:32 +0000 |
|---|---|---|
| committer | igor175 <igor175@8a072113-8704-0410-8d35-dd094bca7971> | 2011-12-07 15:11:32 +0000 |
| commit | 0cc45e77275928ea80f66e64bd07f324cb86da07 (patch) | |
| tree | e33c9278f91080a9d6f982f49b7204591025e11d /SRC | |
| parent | 2adc1fc4f5a416a2af477f8a2ab1e79fca1f63c8 (diff) | |
fixed a typo in dsysv_rook.f, ssysv_rook.f, csysv_rook.f, replaced a call to *SYTRF by *SYTRF_ROOK
Diffstat (limited to 'SRC')
| -rw-r--r-- | SRC/csysv_rook.f | 2 | ||||
| -rw-r--r-- | SRC/dsysv_rook.f | 2 | ||||
| -rw-r--r-- | SRC/ssysv_rook.f | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/SRC/csysv_rook.f b/SRC/csysv_rook.f index efac6684..c35d4490 100644 --- a/SRC/csysv_rook.f +++ b/SRC/csysv_rook.f @@ -258,7 +258,7 @@ IF( N.EQ.0 ) THEN LWKOPT = 1 ELSE - CALL DSYTRF( UPLO, N, A, LDA, IPIV, WORK, -1, INFO ) + CALL CSYTRF_ROOK( UPLO, N, A, LDA, IPIV, WORK, -1, INFO ) LWKOPT = WORK(1) END IF WORK( 1 ) = LWKOPT diff --git a/SRC/dsysv_rook.f b/SRC/dsysv_rook.f index 8dfbb6c0..fca97b98 100644 --- a/SRC/dsysv_rook.f +++ b/SRC/dsysv_rook.f @@ -258,7 +258,7 @@ IF( N.EQ.0 ) THEN LWKOPT = 1 ELSE - CALL DSYTRF( UPLO, N, A, LDA, IPIV, WORK, -1, INFO ) + CALL DSYTRF_ROOK( UPLO, N, A, LDA, IPIV, WORK, -1, INFO ) LWKOPT = WORK(1) END IF WORK( 1 ) = LWKOPT diff --git a/SRC/ssysv_rook.f b/SRC/ssysv_rook.f index fd0d9432..4071d08f 100644 --- a/SRC/ssysv_rook.f +++ b/SRC/ssysv_rook.f @@ -258,7 +258,7 @@ IF( N.EQ.0 ) THEN LWKOPT = 1 ELSE - CALL DSYTRF( UPLO, N, A, LDA, IPIV, WORK, -1, INFO ) + CALL SSYTRF_ROOK( UPLO, N, A, LDA, IPIV, WORK, -1, INFO ) LWKOPT = WORK(1) END IF WORK( 1 ) = LWKOPT |