LAPACK  3.8.0
LAPACK: Linear Algebra PACKage

◆ alasum()

subroutine alasum ( character*3  TYPE,
integer  NOUT,
integer  NFAIL,
integer  NRUN,
integer  NERRS 
)

ALASUM

Purpose:
 ALASUM prints a summary of results from one of the -CHK- routines.
Parameters
[in]TYPE
          TYPE is CHARACTER*3
          The LAPACK path name.
[in]NOUT
          NOUT is INTEGER
          The unit number on which results are to be printed.
          NOUT >= 0.
[in]NFAIL
          NFAIL is INTEGER
          The number of tests which did not pass the threshold ratio.
[in]NRUN
          NRUN is INTEGER
          The total number of tests.
[in]NERRS
          NERRS is INTEGER
          The number of error messages recorded.
Author
Univ. of Tennessee
Univ. of California Berkeley
Univ. of Colorado Denver
NAG Ltd.
Date
December 2016

Definition at line 75 of file alasum.f.

75 *
76 * -- LAPACK test routine (version 3.7.0) --
77 * -- LAPACK is a software package provided by Univ. of Tennessee, --
78 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
79 * December 2016
80 *
81 * .. Scalar Arguments ..
82  CHARACTER*3 type
83  INTEGER nfail, nout, nrun, nerrs
84 * ..
85 *
86 * =====================================================================
87 *
88 * .. Executable Statements ..
89 *
90  IF( nfail.GT.0 ) THEN
91  WRITE( nout, fmt = 9999 )TYPE, nfail, nrun
92  ELSE
93  WRITE( nout, fmt = 9998 )TYPE, nrun
94  END IF
95  IF( nerrs.GT.0 ) THEN
96  WRITE( nout, fmt = 9997 )nerrs
97  END IF
98 *
99  9999 FORMAT( 1x, a3, ': ', i6, ' out of ', i6,
100  $ ' tests failed to pass the threshold' )
101  9998 FORMAT( /1x, 'All tests for ', a3,
102  $ ' routines passed the threshold ( ', i6, ' tests run)' )
103  9997 FORMAT( 6x, i6, ' error messages recorded' )
104  RETURN
105 *
106 * End of ALASUM
107 *