diff options
Diffstat (limited to 'TESTING/LIN/cget01.f')
-rw-r--r-- | TESTING/LIN/cget01.f | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/TESTING/LIN/cget01.f b/TESTING/LIN/cget01.f index 4196342b..eb34dcc2 100644 --- a/TESTING/LIN/cget01.f +++ b/TESTING/LIN/cget01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGET01( M, N, A, LDA, AFAC, LDAFAC, IPIV, RWORK, * RESID ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDAFAC, M, N * REAL RESID @@ -20,7 +20,7 @@ * REAL RWORK( * ) * COMPLEX A( LDA, * ), AFAC( LDAFAC, * ) * .. -* +* * *> \par Purpose: * ============= @@ -95,10 +95,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -177,7 +177,7 @@ IF( K+1.LE.M ) THEN CALL CSCAL( M-K, T, AFAC( K+1, K ), 1 ) CALL CGEMV( 'No transpose', M-K, K-1, CONE, - $ AFAC( K+1, 1 ), LDAFAC, AFAC( 1, K ), 1, + $ AFAC( K+1, 1 ), LDAFAC, AFAC( 1, K ), 1, $ CONE, AFAC( K+1, K ), 1 ) END IF * |