pro vms2ex, dattim_str, daytim
;
;	Subroutine to convert the VMS date/time string to a seven element array
;
;	dattim_str:	Character string of VMS time
;			Form: 	DD-MMM-YYYY HH:MM:SS.MM
;				19-OCT-1990 19:25:54.12

;				012345678901234567890123
;	DAYTIM:		7 ELEMENT INTEGER*2 ARRAY CONTAINING, IN ORDER,
;			HRS  MIN  SECS  MILLISECS  DAY  MON  YR ('90)
;
months = ['JAN', 'FEB', 'MAR', 'APR', 'MAY', 'JUN', $
			'JUL', 'AUG', 'SEP', 'OCT', 'NOV', 'DEC']
;
;------------------------------------------------------------------------
;
daytim = intarr(7)
daytim(4) = fix(strmid(dattim_str,  0, 2))	;date
daytim(6) = fix(strmid(dattim_str,  9, 2))	;year
daytim(0) = fix(strmid(dattim_str, 12, 2))	;hour
daytim(1) = fix(strmid(dattim_str, 15, 2))	;minutes
daytim(2) = fix(strmid(dattim_str, 18, 2))	;seconds
daytim(3) = fix(strmid(dattim_str, 21, 2))*10	;milli-seconds
daytim(5) = 0					;month
for i=0,11 do if (strmid(dattim_str, 3, 3) eq months(i)) then daytim(5)=i+1
;
end