Changeset 2197 for LMDZ5/trunk/libf/bibio/xermsg.F
- Timestamp:
- Feb 9, 2015, 8:13:05 AM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/bibio/xermsg.F
r1907 r2197 1 1 *DECK XERMSG 2 2 SUBROUTINE XERMSG (LIBRAR, SUBROU, MESSG, NERR, LEVEL) 3 IMPLICIT NONE 3 4 C***BEGIN PROLOGUE XERMSG 4 5 C***PURPOSE Process error messages for SLATEC and other libraries. … … 189 190 CHARACTER*72 TEMP 190 191 CHARACTER*20 LFIRST 192 INTEGER NERR, LEVEL, LKNTRL 193 INTEGER J4SAVE, MAXMES, KDUMMY, I, KOUNT, LERR, LLEVEL 194 INTEGER MKNTRL, LTEMP 191 195 C***FIRST EXECUTABLE STATEMENT XERMSG 192 196 LKNTRL = J4SAVE (2, 0, .FALSE.)
Note: See TracChangeset
for help on using the changeset viewer.