MINICERN/packlib/zebra/fq/fzrun.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/03/06 10:47:13  mclareni
   6 * Zebra
   7 *
   8 *
   9 #include "zebra/pilot.h"
  10       SUBROUTINE FZRUN (LUNPAR,JRUNP,NUHP,IUHEAD)
  11
  12 C-    Write start/end of run
  13 C-        JRUN > 0  start this run
  14 C-             = 0  bump current run number by 1
  15 C-             < 0  end of run
  16
  17 #include "zebra/mqsysh.inc"
  18 C--------------    End CDE                             --------------
  19       DIMENSION    LUNPAR(9), JRUNP(9), NUHP(9), IUHEAD(9)
  20 #if (defined(CERNLIB_QTRHOLL))&&(!defined(CERNLIB_A6M))
  21       DIMENSION    NAMESR(2)
  22       DATA  NAMESR / 4HFZRU, 4HN    /
  23 #endif
  24 #if (defined(CERNLIB_QTRHOLL))&&(defined(CERNLIB_A6M))
  25       DATA  NAMESR / 6HFZRUN  /
  26 #endif
  27 #if !defined(CERNLIB_QTRHOLL)
  28       CHARACTER    NAMESR*8
  29       PARAMETER   (NAMESR = 'FZRUN   ')
  30 #endif
  31
  32
  33 *     quick trace without test on capacity
  34 #include "zebra/qtraceq.inc"
  35
  36       JRUN  = JRUNP(1)
  37
  38       CALL FZOUT (LUNPAR,0,JRUN,-1,'FZRUN',1,NUHP,IUHEAD)
  39
  40 #include "zebra/qtrace99.inc"
  41       RETURN
  42       END
  43 *      ==================================================
  44 #include "zebra/qcardl.inc"