diff options
Diffstat (limited to 'TESTING/LIN/ddrvrf3.f')
-rw-r--r-- | TESTING/LIN/ddrvrf3.f | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/TESTING/LIN/ddrvrf3.f b/TESTING/LIN/ddrvrf3.f index 26e59d1f..5b0a959f 100644 --- a/TESTING/LIN/ddrvrf3.f +++ b/TESTING/LIN/ddrvrf3.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 DDRVRF3( NOUT, NN, NVAL, THRESH, A, LDA, ARF, B1, B2, * + D_WORK_DLANGE, D_WORK_DGEQRF, TAU ) -* +* * .. Scalar Arguments .. * INTEGER LDA, NN, NOUT * DOUBLE PRECISION THRESH @@ -21,7 +21,7 @@ * + B2( LDA, * ), D_WORK_DGEQRF( * ), * + D_WORK_DLANGE( * ), TAU( * ) * .. -* +* * *> \par Purpose: * ============= @@ -105,10 +105,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 * @@ -253,12 +253,12 @@ END IF * * Generate A our NA--by--NA triangular -* matrix. +* matrix. * Our test is based on forward error so we * do want A to be well conditionned! To get * a well-conditionned triangular matrix, we * take the R factor of the QR/LQ factorization -* of a random matrix. +* of a random matrix. * DO J = 1, NA DO I = 1, NA @@ -336,7 +336,7 @@ WRITE( NOUT, * ) WRITE( NOUT, FMT = 9999 ) END IF - WRITE( NOUT, FMT = 9997 ) 'DTFSM', + WRITE( NOUT, FMT = 9997 ) 'DTFSM', + CFORM, SIDE, UPLO, TRANS, DIAG, M, + N, RESULT(1) NFAIL = NFAIL + 1 @@ -359,7 +359,7 @@ WRITE( NOUT, FMT = 9995 ) 'DTFSM', NFAIL, NRUN END IF * - 9999 FORMAT( 1X, ' *** Error(s) or Failure(s) while testing DTFSM + 9999 FORMAT( 1X, ' *** Error(s) or Failure(s) while testing DTFSM + ***') 9997 FORMAT( 1X, ' Failure in ',A5,', CFORM=''',A1,''',', + ' SIDE=''',A1,''',',' UPLO=''',A1,''',',' TRANS=''',A1,''',', |