LAPACK  3.4.1
LAPACK: Linear Algebra PACKage
alaesm.f
Go to the documentation of this file.
00001 *> \brief \b ALAESM
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 ALAESM( PATH, OK, NOUT )
00012 * 
00013 *       .. Scalar Arguments ..
00014 *       LOGICAL            OK
00015 *       CHARACTER*3        PATH
00016 *       INTEGER            NOUT
00017 *       ..
00018 *  
00019 *
00020 *> \par Purpose:
00021 *  =============
00022 *>
00023 *> \verbatim
00024 *>
00025 *> ALAESM prints a summary of results from one of the -ERR- routines.
00026 *> \endverbatim
00027 *
00028 *  Arguments:
00029 *  ==========
00030 *
00031 *> \param[in] PATH
00032 *> \verbatim
00033 *>          PATH is CHARACTER*3
00034 *>          The LAPACK path name.
00035 *> \endverbatim
00036 *>
00037 *> \param[in] OK
00038 *> \verbatim
00039 *>          OK is LOGICAL
00040 *>          The flag from CHKXER that indicates whether or not the tests
00041 *>          of error exits passed.
00042 *> \endverbatim
00043 *>
00044 *> \param[in] NOUT
00045 *> \verbatim
00046 *>          NOUT is INTEGER
00047 *>          The unit number on which results are to be printed.
00048 *>          NOUT >= 0.
00049 *> \endverbatim
00050 *
00051 *  Authors:
00052 *  ========
00053 *
00054 *> \author Univ. of Tennessee 
00055 *> \author Univ. of California Berkeley 
00056 *> \author Univ. of Colorado Denver 
00057 *> \author NAG Ltd. 
00058 *
00059 *> \date November 2011
00060 *
00061 *> \ingroup aux_lin
00062 *
00063 *  =====================================================================
00064       SUBROUTINE ALAESM( PATH, OK, NOUT )
00065 *
00066 *  -- LAPACK test routine (version 3.4.0) --
00067 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
00068 *  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
00069 *     November 2011
00070 *
00071 *     .. Scalar Arguments ..
00072       LOGICAL            OK
00073       CHARACTER*3        PATH
00074       INTEGER            NOUT
00075 *     ..
00076 *
00077 *  =====================================================================
00078 *
00079 *     .. Executable Statements ..
00080 *
00081       IF( OK ) THEN
00082          WRITE( NOUT, FMT = 9999 )PATH
00083       ELSE
00084          WRITE( NOUT, FMT = 9998 )PATH
00085       END IF
00086 *
00087  9999 FORMAT( 1X, A3, ' routines passed the tests of the error exits'
00088      $       )
00089  9998 FORMAT( ' *** ', A3, ' routines failed the tests of the error ',
00090      $      'exits ***' )
00091       RETURN
00092 *
00093 *     End of ALAESM
00094 *
00095       END
 All Files Functions