	SUBROUTINE DATIME (B).C_TITL  DATIME  Returns current date and time.C/C_ARGS: type	      variable    I/0  descriptionEC--------------------------------------------------------------------@	LOGICAL*1     B(20) 	  !O   _yy_mon_dd_hh:mm:ss_  where _ is a C				       blank.CC_VARS  noneCC_USER  noneCHC_DESC  DATIME shall create the date and time array using Fortran systemAC	routines.  DATIME shall also remove any embedded nulls, so that(C	the date and time shall plot properly.CC_FILE  noneC6C_CALLS  DATE  TIME  (VAX-11  Fortran system routines)CC_HIST  84Jul19  Hugh_H_KiefferCC_END	LOGICAL*1 BLANK/' '/	B(1)=BLANKJC get date from system routine. format is: dd-mon-yy000 (3 trailing nulls)	CALL DATE ( B(2) )-C switch year and day, using B(11) as scratch	B(11) =B(2)	B(2)  =B(9)
	B(9)  =B(11)	B(11) =B(3)
	B(3)  =B(10)
	B(10) =B(11)%C change first trailing null to blank
	B(11) =BLANK3C get time from system routine. format is: hh:mm:ss	CALL TIME (B(12))C add trailing blank
	B(20) =BLANK	RETURN	END