FUNCTION HMS,Ngrad,Nmin,Sec

;	Converts hours, minutes, seconds into hours;
;	converts time of string type into hours.

temp=Ngrad
T_sign=0
	IF n_params() eq 1 THEN BEGIN

Sz=Size(temp)

	CASE 1 OF

(Sz(n_elements(Sz)-2) eq 7):	begin

	T_Sign=strmid(temp,0,1) eq '-'

;Ngrad=(Nmin=(Sec=make_array(size=Sz,/string)))

	Ngrad=strmid(temp,0+T_sign,2)
	Nmin=strmid(temp,3+T_sign,2)
	Sec=strmid(temp,6+T_sign,12)

				end

Sz(0):	begin

	Ngrad=temp(0)
	Nmin=temp(1)
	Sec=temp(2)

	end

ELSE:	begin

	Ngrad=temp(*,0)
	Nmin=temp(*,1)
	Sec=temp(*,2)

	end

	ENDCASE

	ENDIF

  Grad=(double(Ngrad)+double(Nmin)/60+double(Sec)/3600)* $
	(1-2*T_sign)

Ngrad=temp

	return,Grad
	end