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