Listing of file='RND.FOR;04' on disk='vmedia/forutil_1-sector.ccvf'
REAL FUNCTION RND(X) REAL LAST DATA LAST/1.0/ IF(X.NE.0.0) GOTO 10 RND = LAST RETURN 10 IF(X.LT.0.0) LAST = ABS(X) LAST = ALOG(LAST*3.1415927) LAST = ABS(LAST-INT(LAST)) RND = LAST RETURN END