1*> \brief \b ALAESM 2* 3* =========== DOCUMENTATION =========== 4* 5* Online html documentation available at 6* http://www.netlib.org/lapack/explore-html/ 7* 8* Definition: 9* =========== 10* 11* SUBROUTINE ALAESM( PATH, OK, NOUT ) 12* 13* .. Scalar Arguments .. 14* LOGICAL OK 15* CHARACTER*3 PATH 16* INTEGER NOUT 17* .. 18* 19* 20*> \par Purpose: 21* ============= 22*> 23*> \verbatim 24*> 25*> ALAESM prints a summary of results from one of the -ERR- routines. 26*> \endverbatim 27* 28* Arguments: 29* ========== 30* 31*> \param[in] PATH 32*> \verbatim 33*> PATH is CHARACTER*3 34*> The LAPACK path name. 35*> \endverbatim 36*> 37*> \param[in] OK 38*> \verbatim 39*> OK is LOGICAL 40*> The flag from CHKXER that indicates whether or not the tests 41*> of error exits passed. 42*> \endverbatim 43*> 44*> \param[in] NOUT 45*> \verbatim 46*> NOUT is INTEGER 47*> The unit number on which results are to be printed. 48*> NOUT >= 0. 49*> \endverbatim 50* 51* Authors: 52* ======== 53* 54*> \author Univ. of Tennessee 55*> \author Univ. of California Berkeley 56*> \author Univ. of Colorado Denver 57*> \author NAG Ltd. 58* 59*> \ingroup aux_lin 60* 61* ===================================================================== 62 SUBROUTINE ALAESM( PATH, OK, NOUT ) 63* 64* -- LAPACK test routine -- 65* -- LAPACK is a software package provided by Univ. of Tennessee, -- 66* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- 67* 68* .. Scalar Arguments .. 69 LOGICAL OK 70 CHARACTER*3 PATH 71 INTEGER NOUT 72* .. 73* 74* ===================================================================== 75* 76* .. Executable Statements .. 77* 78 IF( OK ) THEN 79 WRITE( NOUT, FMT = 9999 )PATH 80 ELSE 81 WRITE( NOUT, FMT = 9998 )PATH 82 END IF 83* 84 9999 FORMAT( 1X, A3, ' routines passed the tests of the error exits' 85 $ ) 86 9998 FORMAT( ' *** ', A3, ' routines failed the tests of the error ', 87 $ 'exits ***' ) 88 RETURN 89* 90* End of ALAESM 91* 92 END 93