LAPACK  3.10.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.```

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 *