Next: Storage Requirements
Previous: Directory Structure
There are three subroutines which might be system dependent. They are
all in the directory 21b/source/local:
Following is the source at KEK-HP work station. (TIME, DATE,
RAN are system functions and SECOND is given by a C program.)
- returns the cpu time in seconds (from any origin)
- returns one uniform random number in the interval (0,1).
Must use an integer as the seed.
- job date and time in 20 byte character string.
(for printing header only)
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)=') '
Thu Dec 3 17:27:26 JST 1998