[u/mrichter/AliRoot.git] / MINICERN / packlib / zebra / fq / fzmach.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/03/06 10:47:15  mclareni
* Zebra
*
*
#include "zebra/pilot.h"
      SUBROUTINE FZMACH (JOPP)

C-    System operations  0 : REWIND   1 : UNLOAD,   2 : CLOSE

#include "zebra/zunit.inc"
#include "zebra/fzcf.inc"
C--------------    End CDE                             --------------


      IF (MEDIUF.GE.4)             GO TO 99
      IF (JOPP.GE.2)               GO TO 41

C----              Rewind

      IF (IFIFOF.EQ.2)             GO TO 99
#if defined(CERNLIB_FZLIBC)
      IF (IACMOF.EQ.2)  THEN
          IF (IADOPF.LT.0)         GO TO 99
          CALL CFREW (IADOPF, MEDIUF)
          GO TO 29
        ENDIF
#endif

C--       Non-Fortran REWIND

#include "fzrewex.inc"
* Ignoring t=pass

C--       Fortran REWIND

   28 REWIND LUNF
   29 CONTINUE
#if defined(CERNLIB_QPRINT)
      IF (LOGLVF.GE.0)  WRITE (IQLOG,9029) LUNF
 9029 FORMAT (10X,'LUN=',I4,' Rewind')
#endif
      GO TO 99

C----              Close

   41 CONTINUE
#if defined(CERNLIB_FZLIBC)
      IF (IACMOF.EQ.2)  THEN
          IF (IADOPF.LT.0)         GO TO 99
          CALL CFCLOS (IADOPF, MEDIUF)
          IADOPF = -1
          GO TO 49
        ENDIF
#endif

C--       Non-Fortran CLOSE

#include "fzclosex.inc"
* Ignoring t=pass

C--       Fortran CLOSE

   48 CLOSE (LUNF)
   49 CONTINUE
#if defined(CERNLIB_QPRINT)
      IF (LOGLVF.GE.0)  WRITE (IQLOG,9049) LUNF
 9049 FORMAT (10X,'LUN=',I4,' Close')
#endif
   99 RETURN
      END
*      ==================================================
#include "zebra/qcardl.inc"
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.1.1.1 1996/03/06 10:47:15 mclareni
	6	* Zebra
	7	*
	8	*
	9	#include "zebra/pilot.h"
	10	SUBROUTINE FZMACH (JOPP)
	11
	12	C- System operations 0 : REWIND 1 : UNLOAD, 2 : CLOSE
	13
	14	#include "zebra/zunit.inc"
	15	#include "zebra/fzcf.inc"
	16	C-------------- End CDE --------------
	17
	18
	19	IF (MEDIUF.GE.4) GO TO 99
	20	IF (JOPP.GE.2) GO TO 41
	21
	22	C---- Rewind
	23
	24	IF (IFIFOF.EQ.2) GO TO 99
	25	#if defined(CERNLIB_FZLIBC)
	26	IF (IACMOF.EQ.2) THEN
	27	IF (IADOPF.LT.0) GO TO 99
	28	CALL CFREW (IADOPF, MEDIUF)
	29	GO TO 29
	30	ENDIF
	31	#endif
	32
	33	C-- Non-Fortran REWIND
	34
	35	#include "fzrewex.inc"
	36	* Ignoring t=pass
	37
	38	C-- Fortran REWIND
	39
	40	28 REWIND LUNF
	41	29 CONTINUE
	42	#if defined(CERNLIB_QPRINT)
	43	IF (LOGLVF.GE.0) WRITE (IQLOG,9029) LUNF
	44	9029 FORMAT (10X,'LUN=',I4,' Rewind')
	45	#endif
	46	GO TO 99
	47
	48	C---- Close
	49
	50	41 CONTINUE
	51	#if defined(CERNLIB_FZLIBC)
	52	IF (IACMOF.EQ.2) THEN
	53	IF (IADOPF.LT.0) GO TO 99
	54	CALL CFCLOS (IADOPF, MEDIUF)
	55	IADOPF = -1
	56	GO TO 49
	57	ENDIF
	58	#endif
	59
	60	C-- Non-Fortran CLOSE
	61
	62	#include "fzclosex.inc"
	63	* Ignoring t=pass
	64
65	C-- Fortran CLOSE
66
67	48 CLOSE (LUNF)
68	49 CONTINUE
69	#if defined(CERNLIB_QPRINT)
70	IF (LOGLVF.GE.0) WRITE (IQLOG,9049) LUNF
71	9049 FORMAT (10X,'LUN=',I4,' Close')
72	#endif
73	99 RETURN
74	END
75	* ==================================================
76	#include "zebra/qcardl.inc"