# Written by Phil Massey, Lowell Obs.  July 13, 2005
        procedure fixtime (img)
        string img {prompt="Image"}

	string *inlist

        begin

        string s1, s2, s3, s4, s5, s6


# Get parameter
	s1=img
#
# Put UTSTART string into the file "temptime"
	delete("temptime")
	imgets(s1,"UTSTART")
	s2=imgets.value
	print((s2),>"temptime")
	inlist="temptime"
	i=fscan(inlist,s4,s5,s6)
	s3=s4//":"//s5//":"//s6
	hedit(s1,"UT",s3,add+,ver-,show+)
	setjd(s1,observatory="lco",date="date-obs",time="ut",exposure="exptime",ra="ra",dec="dec",epoch="equinox")
end