;
;	VECTOR TIME IS Y,M,D,HR,MN,SC
;
	FUNCTION SECS79,RTIME
;
	NV=N_ELEMENTS(RTIME)
	IF (NV LT 3) THEN BEGIN
	  PRINT,'SEC79 - MUST BE AT LEAST 3 ELEMENTS'
	  STOP
	ENDIF
;
	TIME=INTARR(6)
	FOR J=0,NV-1 DO TIME(J)=RTIME(J)
;
	SECS = LONG(JULIAN(TIME(0),TIME(1),TIME(2))-JULIAN(79)+.5)*24
	SECS = ((SECS+TIME(3))*60+TIME(4))*60+TIME(5)
;
	RETURN,SECS
	END