.TITLE GTIM .IDENT /V7.00/ .ENABL LC ;************************************************************** ; ; This FORTRAN-callable subroutine implements the ; get-time call. Format is: ; ; CALL GTIM(IBUF) ; ; IBUF is an 8-word buffer into which time info. is placed. ; ; Steve Thompson, February 1980 ; ;*************************************************************** .MCALL GTIM$S GTIM:: GTIM$S 2(R5) ; Get time parameters RETURN ; And return to caller .END