Warning, /include/zebra/jztimin.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_JZTIMIN_INC
0010 #define CERNLIB_ZEBRA_JZTIMIN_INC
0011 *
0012 *
0013 * jztimin.inc
0014 *
0015 #if defined(CERNLIB_JZTIME)
0016 IF (JQTIME.NE.0) THEN
0017 CALL TIMED (DELTAT)
0018 Q(KQS+LQSV+5) = Q(KQS+LQSV+5) + DELTAT
0019 ENDIF
0020 #endif
0021
0022 #endif
