![]() |
LAPACK
3.4.1
LAPACK: Linear Algebra PACKage
|
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