Go to the source code of this file.
subroutine chkxer |
( |
character*(*) |
SRNAMT, |
|
|
integer |
INFOT, |
|
|
integer |
NOUT, |
|
|
logical |
LERR, |
|
|
logical |
OK |
|
) |
| |
CHKXER
- Purpose:
- Author
- Univ. of Tennessee
-
Univ. of California Berkeley
-
Univ. of Colorado Denver
-
NAG Ltd.
- Date
- November 2011
Definition at line 61 of file chkxer.f.
77 WRITE( nout, fmt = 9999 )infot,
78 $ srnamt( 1:len_trim( srnamt ) )
84 9999
FORMAT(
' *** Illegal value of parameter number ', i2,
85 $
' not detected by ', a6,
' ***' )