[u/mrichter/AliRoot.git] / MINICERN / packlib / zebra / zebra / tzread1.inc

*
* $Id$
*
* $Log$
* Revision 1.2  1996/04/18 16:15:29  mclareni
* Incorporate changes from J.Zoll for version 3.77
*
* Revision 1.1.1.1  1996/03/06 10:46:56  mclareni
* Zebra
*
*
#ifndef CERNLIB_ZEBRA_TZREAD1_INC
#define CERNLIB_ZEBRA_TZREAD1_INC
*
*
* tzread1.inc
*
#if defined(CERNLIB_QMIBM)
      READ (LUNTQ,NUM=NCH,END=78) LINE
      NCH    = MIN (NCH,LGL)
      NCHORG = LNBLNK (LINE(1:NCH))
#elif defined(CERNLIB_QMIBMD)
      READ (LUNTQ,NUM=NCH,END=78) LINE
      NCH    = MIN (NCH,LGL)
      NCHORG = LNBLNK (LINE(1:NCH))
#elif defined(CERNLIB_QMVAX)
      READ (LUNTQ,8000,END=78) NCH,LINE(1:MIN(NCH,LGL))
      NCH    = MIN (NCH,LGL)
      NCHORG = LNBLNK (LINE(1:NCH))
 8000 FORMAT (Q,A)
#elif 1
      READ (LUNTQ,'(A)',END=78) LINE
      NCHORG = LENOCC (LINE)
#endif

#endif
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.2 1996/04/18 16:15:29 mclareni
	6	* Incorporate changes from J.Zoll for version 3.77
	7	*
	8	* Revision 1.1.1.1 1996/03/06 10:46:56 mclareni
	9	* Zebra
	10	*
	11	*
	12	#ifndef CERNLIB_ZEBRA_TZREAD1_INC
	13	#define CERNLIB_ZEBRA_TZREAD1_INC
	14	*
	15	*
	16	* tzread1.inc
	17	*
	18	#if defined(CERNLIB_QMIBM)
	19	READ (LUNTQ,NUM=NCH,END=78) LINE
	20	NCH = MIN (NCH,LGL)
	21	NCHORG = LNBLNK (LINE(1:NCH))
	22	#elif defined(CERNLIB_QMIBMD)
	23	READ (LUNTQ,NUM=NCH,END=78) LINE
	24	NCH = MIN (NCH,LGL)
	25	NCHORG = LNBLNK (LINE(1:NCH))
	26	#elif defined(CERNLIB_QMVAX)
	27	READ (LUNTQ,8000,END=78) NCH,LINE(1:MIN(NCH,LGL))
	28	NCH = MIN (NCH,LGL)
	29	NCHORG = LNBLNK (LINE(1:NCH))
	30	8000 FORMAT (Q,A)
	31	#elif 1
	32	READ (LUNTQ,'(A)',END=78) LINE
	33	NCHORG = LENOCC (LINE)
	34	#endif
	35
	36	#endif