LAPACK 3.12.0
LAPACK: Linear Algebra PACKage
Loading...
Searching...
No Matches

◆ 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.

Definition at line 72 of file alasum.f.

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*