#First version of autophot written 3/18/2002 ---plm
#Assumes that digiphot and daophot have been loaded.
#Rewritten for Swoope data....June 15, 2005

task fitpsf="apphot$x_apphot.e"

flpr
flpr
flpr 0
#Next, unlearn a bunch of tasks
unlearn daophot
unlearn ptools
unlearn fitpsf
unlearn imstat
unlearn hedit
#Now reset some things to reasonable values:
datapars.exposur="exptime"
datapars.airmass="airmass"
datapars.ccdread="rdnoise"
datapars.gain="gain"
daophot.cache=yes

delete("tempall")

files("*%.fits%%",>"tempall")

list="tempall"
while (fscan (list,s1) !=EOF ) {
	character6(s1,7.,28000.,"filter","HJD")
swope(s1)

delete(s1//"sum")
txdump(s1//".mag.1","xc,yc,mag,merr,otime,ifilter","yes",>s1//"sum")

flpr
flpr
flpr 0
}