.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