SYSTEMROUTINESPEC MOVE(INTEGER L,F,T) SYSTEMROUTINESPEC ITOE(INTEGER AD,L) EXTERNALLONGREALFNSPEC CPUTIME EXTERNALSTRINGFNSPEC DATE EXTERNALSTRINGFNSPEC TIME !* !*********************************************************************** !* * !* FORTRAN DATE AND TIME ROUTINES * !* * !*********************************************************************** !* EXTERNALROUTINE ICL9CECPUTIME(LONGREALNAME X) X = CPUTIME END ; !OF ICL9CECPUTIME !* EXTERNALROUTINE ICL9CETIME(LONGREALNAME X) STRING (8) T T = TIME CHARNO(T,3) = ':' CHARNO(T,6) = ':' MOVE(8,ADDR(T)+1,ADDR(X)) ITOE(ADDR(X),8) END ; !OF ICL9CETIME !* EXTERNALROUTINE ICL9CEDATE(LONGREALNAME X) STRING (10) D D = DATE MOVE(8,ADDR(D)+1,ADDR(X)) ITOE(ADDR(X),8) END ; !OF ICL9CEDATE !* EXTERNALROUTINE ICL9CEITIME(LONGREALNAME X) STRING (10) T T = TIME CHARNO(T,3) = ':' CHARNO(T,6) = ':' MOVE(8,ADDR(T)+1,ADDR(X)) END ; !OF ICL9CEITIME !* EXTERNALROUTINE ICL9CEIDATE(LONGREALNAME X) STRING (10) D D = DATE MOVE(8,ADDR(D)+1,ADDR(X)) END ; !ICL9CEIDATE !* ENDOFFILE