d5/df4/alaesm_8f_source.html

00001       SUBROUTINE ALAESM( PATH, OK, NOUT )
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       LOGICAL            OK
00009       CHARACTER*3        PATH
00010       INTEGER            NOUT
00011 *     ..
00012 *
00013 *  Purpose
00014 *  =======
00015 *
00016 *  ALAESM prints a summary of results from one of the -ERR- routines.
00017 *
00018 *  Arguments
00019 *  =========
00020 *
00021 *  PATH    (input) CHARACTER*3
00022 *          The LAPACK path name.
00023 *
00024 *  OK      (input) LOGICAL
00025 *          The flag from CHKXER that indicates whether or not the tests
00026 *          of error exits passed.
00027 *
00028 *  NOUT    (input) INTEGER
00029 *          The unit number on which results are to be printed.
00030 *          NOUT >= 0.
00031 *
00032 *  =====================================================================
00033 *
00034 *     .. Executable Statements ..
00035 *
00036       IF( OK ) THEN
00037          WRITE( NOUT, FMT = 9999 )PATH
00038       ELSE
00039          WRITE( NOUT, FMT = 9998 )PATH
00040       END IF
00041 *
00042  9999 FORMAT( 1X, A3, ' routines passed the tests of the error exits'
00043      $       )
00044  9998 FORMAT( ' *** ', A3, ' routines failed the tests of the error ',
00045      $      'exits ***' )
00046       RETURN
00047 *
00048 *     End of ALAESM
00049 *
00050       END