MINICERN/packlib/zebra/dzebra/zpage.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/03/06 10:47:07  mclareni
   6 * Zebra
   7 *
   8 *
   9 *------------------------------------------------------------
  10 #include "zebra/pilot.h"
  11       SUBROUTINE ZPAGE(LUN,LINES)
  12 #include "zebra/zheadp.inc"
  13 #include "zebra/zmach.inc"
  14 #include "zebra/zunit.inc"
  15       DIMENSION    LUNS(3)
  16       EQUIVALENCE (LUNS(1),IQPRNT)
  17       IF (LINES.LT.0)                                      GO TO 11
  18 * For C printer
  19 #if defined(CERNLIB_QMIBM)
  20     7 IF(NQUSED.LE.NQLMAX-2)                               GO TO 8
  21       NQUSED= NQUSED - NQLMAX + 2
  22 #endif
  23 #if !defined(CERNLIB_QMIBM)
  24     7 IF(NQUSED.LE.NQLMAX)                                 GO TO 8
  25       NQUSED= NQUSED - NQLMAX
  26 #endif
  27                                                            GO TO 7
  28     8 IF (NQUSED+LINES.LE.NQLNOR-2)  RETURN
  29    11 JLUN = IUCOMP (LUN,LUNS,3) + 1
  30       IQPAGE = NQPAGE(JLUN) + 1
  31       NQPAGE(JLUN) = IQPAGE
  32       NQUSED = NQLPTH + 1
  33       WRITE (LUN,'(''1'',20A4,28X,I6,''/'',I4,''  PAGE'',I5)')
  34      W       IQHEAD,IQDATE,IQTIME,IQPAGE
  35
  36   999 RETURN
  37       END