System Dependent Subroutines

There are three subroutines which might be system dependent. They are all in the directory 21b/source/local:

CLOCK1

returns the cpu time in seconds (from any origin)

RAND

returns one uniform random number in the interval (0,1). Must use an integer as the seed.

JOBDAT

job date and time in 20 byte character string. (for printing header only)

Following is the source at KEK-HP work station. (TIME, DATE, RAN are system functions and SECOND is given by a C program.)

    SUBROUTINE CLOCK1(T)    FUNCTION RAND(IR)      SUBROUTINE JOBDAT(JOBTIM)
    IMPLICIT NONE           IMPLICIT NONE          CHARACTER*20 JOBTIM
    REAL*8 T,SECOND         INTEGER IR             CALL TIME(JOBTIM(1:8))
    T=SECOND()              REAL*8 RAND            JOBTIM(9:9)='('
    RETURN                  RAND=RAN(IR)           CALL DATE(JOBTIM(10:18))
    END                     RETURN                 JOBTIM(19:20)=') '
                            END                    RETURN
                                                   END