TESTING/LIN/alaesm.f

   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 *> \date November 2011
  60 *
  61 *> \ingroup aux_lin
  62 *
  63 *  =====================================================================
  64       SUBROUTINE ALAESM( PATH, OK, NOUT )
  65 *
  66 *  -- LAPACK test routine (version 3.4.0) --
  67 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
  68 *  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
  69 *     November 2011
  70 *
  71 *     .. Scalar Arguments ..
  72       LOGICAL            OK
  73       CHARACTER*3        PATH
  74       INTEGER            NOUT
  75 *     ..
  76 *
  77 *  =====================================================================
  78 *
  79 *     .. Executable Statements ..
  80 *
  81       IF( OK ) THEN
  82          WRITE( NOUT, FMT = 9999 )PATH
  83       ELSE
  84          WRITE( NOUT, FMT = 9998 )PATH
  85       END IF
  86 *
  87  9999 FORMAT( 1X, A3, ' routines passed the tests of the error exits'
  88      $       )
  89  9998 FORMAT( ' *** ', A3, ' routines failed the tests of the error ',
  90      $      'exits ***' )
  91       RETURN
  92 *
  93 *     End of ALAESM
  94 *
  95       END