Warning, /include/zebra/jztimout.inc is written in an unsupported language. File is not indexed.
0001 *
0002 * $Id$
0003 *
0004 * $Log$
0005 * Revision 1.1 1996/03/06 10:46:54 mclareni
0006 * Initial revision
0007 *
0008 *
0009 #ifndef CERNLIB_ZEBRA_JZTIMOUT_INC
0010 #define CERNLIB_ZEBRA_JZTIMOUT_INC
0011 *
0012 *
0013 * jztimout.inc
0014 *
0015 #if defined(CERNLIB_JZTIME)
0016 IF (JQTIME.NE.0) THEN
0017 IF (LQSV.NE.0) THEN
0018 CALL TIMED (DELTAT)
0019 Q(KQS+LQSV+5) = Q(KQS+LQSV+5) + DELTAT
0020 Q(KQS+LQSV+6) = MAX (Q(KQS+LQSV+6),Q(KQS+LQSV+5))
0021 Q(KQS+LQSV+8) = Q(KQS+LQSV+8) + Q(KQS+LQSV+5)
0022 Q(KQS+LQSV+5) = 0.
0023 IF (32*Q(KQS+LQSV+8) .GT. Q(KQS+LQSV+7)) THEN
0024 Q(KQS+LQSV+7) = Q(KQS+LQSV+7) + Q(KQS+LQSV+8)
0025 Q(KQS+LQSV+8) = 0.
0026 ENDIF
0027 ENDIF
0028 ENDIF
0029 #endif
0030
0031 #endif
