.TITLE GETTIM ; ; PURPOSE: TO HAVE THE FORTRAN EQUIVALENT FOR THE GTIM$ DIRECTIVE ; ; CALLING SEQUENCE: CALL GETTIM(TIMARR) WITH: ; ; TIMARR: ARRAY FILLED WITH YY,MM,DD,HH,MM,SS,TT,TS ; .MCALL GTIM$S ; .GLOBL GETTIM ; ; GETTIM: GTIM$S 2(R5) RTS PC ; ; .END