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

◆ alasvm()

subroutine alasvm ( character*3 type,
integer nout,
integer nfail,
integer nrun,
integer nerrs )

ALASVM

Purpose:
!>
!> ALASVM prints a summary of results from one of the -DRV- 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 alasvm.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, ' drivers: ', i6, ' out of ', i6,
97 $ ' tests failed to pass the threshold' )
98 9998 FORMAT( /1x, 'All tests for ', a3, ' drivers passed the ',
99 $ 'threshold ( ', i6, ' tests run)' )
100 9997 FORMAT( 14x, i6, ' error messages recorded' )
101 RETURN
102*
103* End of ALASVM
104*
Here is the caller graph for this function: