C RANDOM C C MICHAEL BOORSTEIN C C DATE MARCH 14,1978 C C SUBROUTINE RANDOM(MIN,MAX,NUM) IMPLICIT INTEGER(A-Z) REAL RAN,SECNDS,AINT,X C C IF MIN=MAX THEN JUST INITIALIZE THE RANDOM OPERATION C IF(MIN.EQ.MAX)GOTO 10 NUM=RAN(L,M)*(MAX-MIN)+MIN+0.5 RETURN C C INITIALIZE 10 L=0 M=0 X=SECNDS(0.0) N=(X-AINT(X))*60.0 DO 1 I=1,N 1 CALL RAN(L,M) RETURN END