"Fossies" - the Fresh Open Source Software Archive

Member "lapack-3.9.1/TESTING/LIN/alaesm.f" (25 Mar 2021, 2084 Bytes) of package /linux/misc/lapack-3.9.1.tar.gz:


As a special service "Fossies" has tried to format the requested source page into HTML format using (guessed) Fortran 77 source code syntax highlighting (style: standard) with prefixed line numbers. Alternatively you can here view or download the uninterpreted source code file. See also the latest Fossies "Diffs" side-by-side code changes report for "alaesm.f": 3.9.0_vs_3.9.1.

    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