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

◆ alaesm()

subroutine alaesm ( character*3 path,
logical ok,
integer nout )

ALAESM

Purpose:
!>
!> ALAESM prints a summary of results from one of the -ERR- routines.
!>
Parameters
[in]PATH
!>          PATH is CHARACTER*3
!>          The LAPACK path name.
!>
[in]OK
!>          OK is LOGICAL
!>          The flag from CHKXER that indicates whether or not the tests
!>          of error exits passed.
!>
[in]NOUT
!>          NOUT is INTEGER
!>          The unit number on which results are to be printed.
!>          NOUT >= 0.
!>
Author
Univ. of Tennessee
Univ. of California Berkeley
Univ. of Colorado Denver
NAG Ltd.

Definition at line 62 of file alaesm.f.

63*
64* -- LAPACK test routine --
65* -- LAPACK is a software package provided by Univ. of Tennessee, --
66* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
67*
68* .. Scalar Arguments ..
69 LOGICAL OK
70 CHARACTER*3 PATH
71 INTEGER NOUT
72* ..
73*
74* =====================================================================
75*
76* .. Executable Statements ..
77*
78 IF( ok ) THEN
79 WRITE( nout, fmt = 9999 )path
80 ELSE
81 WRITE( nout, fmt = 9998 )path
82 END IF
83*
84 9999 FORMAT( 1x, a3, ' routines passed the tests of the error exits'
85 $ )
86 9998 FORMAT( ' *** ', a3, ' routines failed the tests of the error ',
87 $ 'exits ***' )
88 RETURN
89*
90* End of ALAESM
91*
Here is the caller graph for this function: