5 * Revision 1.1.1.1 1996/03/06 10:47:07 mclareni
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"
16 EQUIVALENCE (LUNS(1),IQPRNT)
17 IF (LINES.LT.0) GO TO 11
19 #if defined(CERNLIB_QMIBM)
20 7 IF(NQUSED.LE.NQLMAX-2) GO TO 8
21 NQUSED= NQUSED - NQLMAX + 2
23 #if !defined(CERNLIB_QMIBM)
24 7 IF(NQUSED.LE.NQLMAX) GO TO 8
25 NQUSED= NQUSED - NQLMAX
28 8 IF (NQUSED+LINES.LE.NQLNOR-2) RETURN
29 11 JLUN = IUCOMP (LUN,LUNS,3) + 1
30 IQPAGE = NQPAGE(JLUN) + 1
33 WRITE (LUN,'(''1'',20A4,28X,I6,''/'',I4,'' PAGE'',I5)')
34 W IQHEAD,IQDATE,IQTIME,IQPAGE