diff options
Diffstat (limited to 'TESTING/LIN/chet01_aa.f')
| -rw-r--r-- | TESTING/LIN/chet01_aa.f | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/TESTING/LIN/chet01_aa.f b/TESTING/LIN/chet01_aa.f index 8f797f11..c2b237da 100644 --- a/TESTING/LIN/chet01_aa.f +++ b/TESTING/LIN/chet01_aa.f @@ -9,17 +9,17 @@ * =========== * * SUBROUTINE CHET01_AA( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, -* C, LDC, RWORK, RESID ) +* C, LDC, RWORK, RESID ) * * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDAFAC, LDC, N -* COMPLEX RESID +* REAL RESID * .. * .. Array Arguments .. * INTEGER IPIV( * ) -* COMPLEX A( LDA, * ), AFAC( LDAFAC, * ), C( LDC, * ), -* $ RWORK( * ) +* REAL RWORK( * ) +* COMPLEX A( LDA, * ), AFAC( LDAFAC, * ), C( LDC, * ) * .. * * @@ -123,7 +123,7 @@ * * ===================================================================== SUBROUTINE CHET01_AA( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, - $ LDC, RWORK, RESID ) + $ LDC, RWORK, RESID ) * * -- LAPACK test routine (version 3.7.0) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- @@ -137,8 +137,8 @@ * .. * .. Array Arguments .. INTEGER IPIV( * ) - COMPLEX A( LDA, * ), AFAC( LDAFAC, * ), C( LDC, * ), - $ RWORK( * ) + REAL RWORK( * ) + COMPLEX A( LDA, * ), AFAC( LDAFAC, * ), C( LDC, * ) * .. * * ===================================================================== |