Warning, /include/zebra/tzread2.inc is written in an unsupported language. File is not indexed.
0001 *
0002 * $Id$
0003 *
0004 * $Log$
0005 * Revision 1.1 1996/03/06 10:46:55 mclareni
0006 * Initial revision
0007 *
0008 *
0009 #ifndef CERNLIB_ZEBRA_TZREAD2_INC
0010 #define CERNLIB_ZEBRA_TZREAD2_INC
0011 *
0012 *
0013 * tzread2.inc
0014 *
0015 #if !defined(CERNLIB_CRAZYERR)
0016 READ (LUNTQ,LINE(JFMTC1:JFMTC2),END=96) (LQ(J),J=LPUTA,LPUTE-1)
0017 #else
0018 IF (NAME(5).NE.3) THEN
0019 READ (LUNTQ,LINE(JFMTC1:JFMTC2),ERR=64,END=96)
0020 + (LQ(J),J=LPUTA,LPUTE-1)
0021 ELSE
0022 READ (LUNTQ,LINE(JFMTC1:JFMTC2),ERR=64,END=96)
0023 + (Q(J),J=LPUTA-8,LPUTE-9)
0024 ENDIF
0025 64 CONTINUE
0026 #endif
0027
0028 #endif
