LAPACK  3.9.0
LAPACK: Linear Algebra PACKage

◆ 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.
Date
December 2016

Definition at line 65 of file alaesm.f.

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