diff options
author | jason <jason@8a072113-8704-0410-8d35-dd094bca7971> | 2008-10-28 01:38:50 +0000 |
---|---|---|
committer | jason <jason@8a072113-8704-0410-8d35-dd094bca7971> | 2008-10-28 01:38:50 +0000 |
commit | baba851215b44ac3b60b9248eb02bcce7eb76247 (patch) | |
tree | 8c0f5c006875532a30d4409f5e94b0f310ff00a7 /TESTING/EIG/alasmg.f | |
download | lapack-baba851215b44ac3b60b9248eb02bcce7eb76247.tar.gz lapack-baba851215b44ac3b60b9248eb02bcce7eb76247.tar.bz2 lapack-baba851215b44ac3b60b9248eb02bcce7eb76247.zip |
Move LAPACK trunk into position.
Diffstat (limited to 'TESTING/EIG/alasmg.f')
-rw-r--r-- | TESTING/EIG/alasmg.f | 58 |
1 files changed, 58 insertions, 0 deletions
diff --git a/TESTING/EIG/alasmg.f b/TESTING/EIG/alasmg.f new file mode 100644 index 00000000..d7148d5d --- /dev/null +++ b/TESTING/EIG/alasmg.f @@ -0,0 +1,58 @@ + SUBROUTINE ALASMG( TYPE, NOUT, NFAIL, NRUN, NERRS ) +* +* -- LAPACK test routine (version 3.1) -- +* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. +* November 2006 +* +* .. Scalar Arguments .. + CHARACTER*3 TYPE + INTEGER NFAIL, NOUT, NRUN, NERRS +* .. +* +* Purpose +* ======= +* +* ALASMG prints a summary of results from one of the -CHK- routines. +* +* Arguments +* ========= +* +* TYPE (input) CHARACTER*3 +* The LAPACK path name. +* +* NOUT (input) INTEGER +* The unit number on which results are to be printed. +* NOUT >= 0. +* +* NFAIL (input) INTEGER +* The number of tests which did not pass the threshold ratio. +* +* NRUN (input) INTEGER +* The total number of tests. +* +* NERRS (input) INTEGER +* The number of error messages recorded. +* +* ====================================================================== +* +* .. Executable Statements .. +* + IF( NFAIL.GT.0 ) THEN + WRITE( NOUT, FMT = 9999 )TYPE, NFAIL, NRUN + ELSE + WRITE( NOUT, FMT = 9998 )TYPE, NRUN + END IF + IF( NERRS.GT.0 ) THEN + WRITE( NOUT, FMT = 9997 )NERRS + END IF +* + 9999 FORMAT( 1X, A3, ': ', I6, ' out of ', I6, + $ ' tests failed to pass the threshold' ) + 9998 FORMAT( /1X, 'All tests for ', A3, + $ ' routines passed the threshold (', I6, ' tests run)' ) + 9997 FORMAT( 6X, I6, ' error messages recorded' ) + RETURN +* +* End of ALASMG +* + END |