"Fossies" - the Fresh Open Source Software Archive

Member "lapack-3.9.1/TESTING/LIN/alasum.f" (25 Mar 2021, 2505 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 "alasum.f": 3.9.0_vs_3.9.1.

    1 *> \brief \b ALASUM
    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 ALASUM( TYPE, NOUT, NFAIL, NRUN, NERRS )
   12 *
   13 *       .. Scalar Arguments ..
   14 *       CHARACTER*3        TYPE
   15 *       INTEGER            NFAIL, NOUT, NRUN, NERRS
   16 *       ..
   17 *
   18 *
   19 *> \par Purpose:
   20 *  =============
   21 *>
   22 *> \verbatim
   23 *>
   24 *> ALASUM prints a summary of results from one of the -CHK- routines.
   25 *> \endverbatim
   26 *
   27 *  Arguments:
   28 *  ==========
   29 *
   30 *> \param[in] TYPE
   31 *> \verbatim
   32 *>          TYPE is CHARACTER*3
   33 *>          The LAPACK path name.
   34 *> \endverbatim
   35 *>
   36 *> \param[in] NOUT
   37 *> \verbatim
   38 *>          NOUT is INTEGER
   39 *>          The unit number on which results are to be printed.
   40 *>          NOUT >= 0.
   41 *> \endverbatim
   42 *>
   43 *> \param[in] NFAIL
   44 *> \verbatim
   45 *>          NFAIL is INTEGER
   46 *>          The number of tests which did not pass the threshold ratio.
   47 *> \endverbatim
   48 *>
   49 *> \param[in] NRUN
   50 *> \verbatim
   51 *>          NRUN is INTEGER
   52 *>          The total number of tests.
   53 *> \endverbatim
   54 *>
   55 *> \param[in] NERRS
   56 *> \verbatim
   57 *>          NERRS is INTEGER
   58 *>          The number of error messages recorded.
   59 *> \endverbatim
   60 *
   61 *  Authors:
   62 *  ========
   63 *
   64 *> \author Univ. of Tennessee
   65 *> \author Univ. of California Berkeley
   66 *> \author Univ. of Colorado Denver
   67 *> \author NAG Ltd.
   68 *
   69 *> \ingroup aux_lin
   70 *
   71 *  =====================================================================
   72       SUBROUTINE ALASUM( TYPE, NOUT, NFAIL, NRUN, NERRS )
   73 *
   74 *  -- LAPACK test routine --
   75 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
   76 *  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
   77 *
   78 *     .. Scalar Arguments ..
   79       CHARACTER*3        TYPE
   80       INTEGER            NFAIL, NOUT, NRUN, NERRS
   81 *     ..
   82 *
   83 *  =====================================================================
   84 *
   85 *     .. Executable Statements ..
   86 *
   87       IF( NFAIL.GT.0 ) THEN
   88          WRITE( NOUT, FMT = 9999 )TYPE, NFAIL, NRUN
   89       ELSE
   90          WRITE( NOUT, FMT = 9998 )TYPE, NRUN
   91       END IF
   92       IF( NERRS.GT.0 ) THEN
   93          WRITE( NOUT, FMT = 9997 )NERRS
   94       END IF
   95 *
   96  9999 FORMAT( 1X, A3, ': ', I6, ' out of ', I6,
   97      $      ' tests failed to pass the threshold' )
   98  9998 FORMAT( /1X, 'All tests for ', A3,
   99      $      ' routines passed the threshold ( ', I6, ' tests run)' )
  100  9997 FORMAT( 6X, I6, ' error messages recorded' )
  101       RETURN
  102 *
  103 *     End of ALASUM
  104 *
  105       END