This commit was generated by cvs2svn to compensate for changes in r2,

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

diff --git a/MINICERN/packlib/zebra/fq/fzophr45.inc b/MINICERN/packlib/zebra/fq/fzophr45.inc
new file mode 100644 (file)
index 0000000..216becb
--- /dev/null
+++ b/MINICERN/packlib/zebra/fq/fzophr45.inc
@@ -0,0 +1,47 @@
+*
+* $Id$
+*
+* $Log$
+* Revision 1.1.1.1  1996/03/06 10:47:10  mclareni
+* Zebra
+*
+*
+*
+* fzophr45.inc
+*
+#if defined(CERNLIB_QMIBMD)
+C--       Output sequential with Fortran calls
+C--       For AUTODBL machines
+      IF (IACMOX.EQ.0)             GO TO 48
+      CALL ADWRTK (LUNX, LQ(LWR), NWR, ISW)
+      IF (ISW.NE.0)  THEN
+          IQUEST(1) = 19
+          IQUEST(2) = 1
+          IQUEST(3) = ISW
+          IQUEST(4) = LUNX
+          CALL ZTELL (19,0)
+        ENDIF
+      GO TO 999
+#elif defined(CERNLIB_QMIRTD)
+C--       Output sequential with Fortran calls
+C--       For AUTODBL machines
+  48  CALL ADWRTK (LUNX, LQ(LWR), NWR, ISW)
+      IF (ISW.NE.0)  THEN
+          IQUEST(1) = 19
+          IQUEST(2) = 1
+          IQUEST(3) = ISW
+          IQUEST(4) = LUNX
+          CALL ZTELL (19,0)
+        ENDIF
+      GO TO 999
+#elif 1
+   48 WRITE (LUNX,IOSTAT=ISW)  (LQ(LWR+J-1),J=1,NWR)
+      IF (ISW.NE.0)  THEN
+          IQUEST(1) = 19
+          IQUEST(2) = 1
+          IQUEST(3) = ISW
+          IQUEST(4) = LUNX
+          CALL ZTELL (19,0)
+        ENDIF
+      GO TO 999
+#endif