LAPACK  3.4.1
LAPACK: Linear Algebra PACKage
alasmg.f
Go to the documentation of this file.
00001 *> \brief \b ALASMG
00002 *
00003 *  =========== DOCUMENTATION ===========
00004 *
00005 * Online html documentation available at 
00006 *            http://www.netlib.org/lapack/explore-html/ 
00007 *
00008 *  Definition:
00009 *  ===========
00010 *
00011 *       SUBROUTINE ALASMG( TYPE, NOUT, NFAIL, NRUN, NERRS )
00012 * 
00013 *       .. Scalar Arguments ..
00014 *       CHARACTER*3        TYPE
00015 *       INTEGER            NFAIL, NOUT, NRUN, NERRS
00016 *       ..
00017 *  
00018 *
00019 *> \par Purpose:
00020 *  =============
00021 *>
00022 *> \verbatim
00023 *>
00024 *> ALASMG prints a summary of results from one of the -CHK- routines.
00025 *> \endverbatim
00026 *
00027 *  Arguments:
00028 *  ==========
00029 *
00030 *> \param[in] TYPE
00031 *> \verbatim
00032 *>          TYPE is CHARACTER*3
00033 *>          The LAPACK path name.
00034 *> \endverbatim
00035 *>
00036 *> \param[in] NOUT
00037 *> \verbatim
00038 *>          NOUT is INTEGER
00039 *>          The unit number on which results are to be printed.
00040 *>          NOUT >= 0.
00041 *> \endverbatim
00042 *>
00043 *> \param[in] NFAIL
00044 *> \verbatim
00045 *>          NFAIL is INTEGER
00046 *>          The number of tests which did not pass the threshold ratio.
00047 *> \endverbatim
00048 *>
00049 *> \param[in] NRUN
00050 *> \verbatim
00051 *>          NRUN is INTEGER
00052 *>          The total number of tests.
00053 *> \endverbatim
00054 *>
00055 *> \param[in] NERRS
00056 *> \verbatim
00057 *>          NERRS is INTEGER
00058 *>          The number of error messages recorded.
00059 *> \endverbatim
00060 *
00061 *  Authors:
00062 *  ========
00063 *
00064 *> \author Univ. of Tennessee 
00065 *> \author Univ. of California Berkeley 
00066 *> \author Univ. of Colorado Denver 
00067 *> \author NAG Ltd. 
00068 *
00069 *> \date November 2011
00070 *
00071 *> \ingroup aux_eig
00072 *
00073 *  =====================================================================
00074       SUBROUTINE ALASMG( TYPE, NOUT, NFAIL, NRUN, NERRS )
00075 *
00076 *  -- LAPACK test routine (version 3.4.0) --
00077 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
00078 *  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
00079 *     November 2011
00080 *
00081 *     .. Scalar Arguments ..
00082       CHARACTER*3        TYPE
00083       INTEGER            NFAIL, NOUT, NRUN, NERRS
00084 *     ..
00085 *
00086 * ======================================================================
00087 *
00088 *     .. Executable Statements ..
00089 *
00090       IF( NFAIL.GT.0 ) THEN
00091          WRITE( NOUT, FMT = 9999 )TYPE, NFAIL, NRUN
00092       ELSE
00093          WRITE( NOUT, FMT = 9998 )TYPE, NRUN
00094       END IF
00095       IF( NERRS.GT.0 ) THEN
00096          WRITE( NOUT, FMT = 9997 )NERRS
00097       END IF
00098 *
00099  9999 FORMAT( 1X, A3, ': ', I6, ' out of ', I6,
00100      $      ' tests failed to pass the threshold' )
00101  9998 FORMAT( /1X, 'All tests for ', A3,
00102      $      ' routines passed the threshold ( ', I6, ' tests run)' )
00103  9997 FORMAT( 6X, I6, ' error messages recorded' )
00104       RETURN
00105 *
00106 *     End of ALASMG
00107 *
00108       END
 All Files Functions