d2/d60/alasmg_8f_source.html

00001       SUBROUTINE ALASMG( TYPE, NOUT, NFAIL, NRUN, NERRS )
00002 *
00003 *  -- LAPACK test routine (version 3.1) --
00004 *     Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
00005 *     November 2006
00006 *
00007 *     .. Scalar Arguments ..
00008       CHARACTER*3        TYPE
00009       INTEGER            NFAIL, NOUT, NRUN, NERRS
00010 *     ..
00011 *
00012 *  Purpose
00013 *  =======
00014 *
00015 *  ALASMG prints a summary of results from one of the -CHK- routines.
00016 *
00017 *  Arguments
00018 *  =========
00019 *
00020 *  TYPE    (input) CHARACTER*3
00021 *          The LAPACK path name.
00022 *
00023 *  NOUT    (input) INTEGER
00024 *          The unit number on which results are to be printed.
00025 *          NOUT >= 0.
00026 *
00027 *  NFAIL   (input) INTEGER
00028 *          The number of tests which did not pass the threshold ratio.
00029 *
00030 *  NRUN    (input) INTEGER
00031 *          The total number of tests.
00032 *
00033 *  NERRS   (input) INTEGER
00034 *          The number of error messages recorded.
00035 *
00036 * ======================================================================
00037 *
00038 *     .. Executable Statements ..
00039 *
00040       IF( NFAIL.GT.0 ) THEN
00041          WRITE( NOUT, FMT = 9999 )TYPE, NFAIL, NRUN
00042       ELSE
00043          WRITE( NOUT, FMT = 9998 )TYPE, NRUN
00044       END IF
00045       IF( NERRS.GT.0 ) THEN
00046          WRITE( NOUT, FMT = 9997 )NERRS
00047       END IF
00048 *
00049  9999 FORMAT( 1X, A3, ': ', I6, ' out of ', I6,
00050      $      ' tests failed to pass the threshold' )
00051  9998 FORMAT( /1X, 'All tests for ', A3,
00052      $      ' routines passed the threshold (', I6, ' tests run)' )
00053  9997 FORMAT( 6X, I6, ' error messages recorded' )
00054       RETURN
00055 *
00056 *     End of ALASMG
00057 *
00058       END