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

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/03/06 10:47:10  mclareni
* Zebra
*
*
*
* fzclosex.inc
*
#if (defined(CERNLIB_QMIBM))&&(defined(CERNLIB_IOPACK))
      IF (IACMOF.EQ.0)             GO TO 48
      CALL IOCLOS (LUNF,ISW)
      GO TO 49
#endif
*
* fzclosex.inc
*
#if defined(CERNLIB_QMND3)
      IF (IACMOF.NE.0)             GO TO 99
#endif
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.1.1.1 1996/03/06 10:47:10 mclareni
	6	* Zebra
	7	*
	8	*
	9	*
	10	* fzclosex.inc
	11	*
	12	#if (defined(CERNLIB_QMIBM))&&(defined(CERNLIB_IOPACK))
	13	IF (IACMOF.EQ.0) GO TO 48
	14	CALL IOCLOS (LUNF,ISW)
	15	GO TO 49
	16	#endif
	17	*
	18	* fzclosex.inc
	19	*
	20	#if defined(CERNLIB_QMND3)
	21	IF (IACMOF.NE.0) GO TO 99
	22	#endif