Changeset 2197 for LMDZ5/trunk/libf/bibio/xercnt.F
- Timestamp:
- Feb 9, 2015, 8:13:05 AM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/bibio/xercnt.F
r1907 r2197 1 1 *DECK XERCNT 2 2 SUBROUTINE XERCNT (LIBRAR, SUBROU, MESSG, NERR, LEVEL, KONTRL) 3 IMPLICIT NONE 3 4 C***BEGIN PROLOGUE XERCNT 4 5 C***SUBSIDIARY … … 56 57 C***END PROLOGUE XERCNT 57 58 CHARACTER*(*) LIBRAR, SUBROU, MESSG 59 INTEGER NERR, LEVEL, KONTRL 58 60 C***FIRST EXECUTABLE STATEMENT XERCNT 59 61 RETURN
Note: See TracChangeset
for help on using the changeset viewer.