Warning, /include/zebra/tzread1.inc is written in an unsupported language. File is not indexed.
0001 *
0002 * $Id$
0003 *
0004 * $Log$
0005 * Revision 1.2 1996/04/18 16:15:29 mclareni
0006 * Incorporate changes from J.Zoll for version 3.77
0007 *
0008 * Revision 1.1.1.1 1996/03/06 10:46:56 mclareni
0009 * Zebra
0010 *
0011 *
0012 #ifndef CERNLIB_ZEBRA_TZREAD1_INC
0013 #define CERNLIB_ZEBRA_TZREAD1_INC
0014 *
0015 *
0016 * tzread1.inc
0017 *
0018 #if defined(CERNLIB_QMIBM)
0019 READ (LUNTQ,NUM=NCH,END=78) LINE
0020 NCH = MIN (NCH,LGL)
0021 NCHORG = LNBLNK (LINE(1:NCH))
0022 #elif defined(CERNLIB_QMIBMD)
0023 READ (LUNTQ,NUM=NCH,END=78) LINE
0024 NCH = MIN (NCH,LGL)
0025 NCHORG = LNBLNK (LINE(1:NCH))
0026 #elif defined(CERNLIB_QMVAX)
0027 READ (LUNTQ,8000,END=78) NCH,LINE(1:MIN(NCH,LGL))
0028 NCH = MIN (NCH,LGL)
0029 NCHORG = LNBLNK (LINE(1:NCH))
0030 8000 FORMAT (Q,A)
0031 #elif 1
0032 READ (LUNTQ,'(A)',END=78) LINE
0033 NCHORG = LENOCC (LINE)
0034 #endif
0035
0036 #endif
