LAPACK 3.12.0 LAPACK: Linear Algebra PACKage
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.```

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*