LAPACK 3.12.1
LAPACK: Linear Algebra PACKage
All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Macros Modules Pages

◆ 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*
Here is the caller graph for this function: