MINICERN/packlib/zebra/zebra/jztimout.inc

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/03/06 10:46:55  mclareni
   6 * Zebra
   7 *
   8 *
   9 #ifndef CERNLIB_ZEBRA_JZTIMOUT_INC
  10 #define CERNLIB_ZEBRA_JZTIMOUT_INC
  11 *
  12 *
  13 * jztimout.inc
  14 *
  15 #if defined(CERNLIB_JZTIME)
  16       IF (JQTIME.NE.0)   THEN
  17       IF (LQSV.NE.0)     THEN
  18           CALL TIMED (DELTAT)
  19           Q(KQS+LQSV+5) = Q(KQS+LQSV+5) + DELTAT
  20           Q(KQS+LQSV+6) = MAX (Q(KQS+LQSV+6),Q(KQS+LQSV+5))
  21           Q(KQS+LQSV+8) = Q(KQS+LQSV+8) + Q(KQS+LQSV+5)
  22           Q(KQS+LQSV+5) = 0.
  23           IF (32*Q(KQS+LQSV+8) .GT. Q(KQS+LQSV+7)) THEN
  24               Q(KQS+LQSV+7) = Q(KQS+LQSV+7) + Q(KQS+LQSV+8)
  25               Q(KQS+LQSV+8) = 0.
  26             ENDIF
  27         ENDIF
  28         ENDIF
  29 #endif
  30
  31 #endif