delete priority.fits
delete tmp*.cd
delete SA15OTnew.fits
delete SA15OTfull.fits
delet SA15OT.dat

# Fix the Object Table from Pat

# The ID is not an integer, and the priority is not a 1 character 
# string. Both will cause the gmmps to "crash"
# and pixscale is missing in the header.

tdump SA15OT.fits data=SA15OT.dat cd=tmp.cd

print "ID i i5" > tmpnew.cd
print "RA r %15.7g H" >> tmpnew.cd
print "DEC r %15.7g deg" >> tmpnew.cd
print "x_ccd r %15.7g pixels" >> tmpnew.cd
print "y_ccd r %15.7g pixels" >> tmpnew.cd
print "MAG r %15.7g mag" >> tmpnew.cd
print "priority ch*1 %s " >> tmpnew.cd

tcreate SA15OTnew.fits tmpnew.cd SA15OT.dat
parkey 0.1454 SA15OTnew.fits PIXSCALE add+

# Then make sure we get the rest of the info in the header
stsdas2objt SA15OTnew.fits image=fmrgN20020413S0120_add fl_wcs=no outtable=SA15OTfull other_col="priority"  verbose+
# Get the priority from the original table, since I have not fixed
# stsdas2objt yet to not overwrite it if it is present
tproject SA15OTnew.fits priority.fits col="priority"
tmerge SA15OTfull.fits,priority.fits tmp.fits merge
mv tmp.fits SA15OTfull.fits