#
# IRAF script iraf_to_gaia
#
# Add/alter WCS keywords for use within GAIA
# Changes ZPX to ZPN
#
# useage cl < iraf_to_gaia
#
mscred
sections *.fits > convert.lis
list="convert.lis"
while(fscan(list,s1) != EOF){
   msccmd("hedit $input 'CTYPE1' 'RA---ZPN' ver-", s1, "", "", "")
   msccmd("hedit $input 'CTYPE2' 'DEC--ZPN' ver-", s1, "", "", "")
}