#================================================================== # # PROCEDURE :wfi_hdr.cl # # This is a simple Iraf task to update the header of 2.2 WFI images # and to reduce them with the mscred iraf package. # # % task wfi_hdr=(...complete path...)/wfi_hdr.cl # % wfi_hdr @list_of_images # # To create the list of images e.g. # % files *.fits > list_of_images # # WARNING: as of April 1999 the Dec in the haeder of the 2.2 WFI images # always is positive. To change the sign to ALL input images uncomment # the line below (after CHANGE DEC SIGN). #================================================================== procedure wfi_hdr(images) string images {"",prompt = "Images"} begin string tmpfile, ima int nimages if (!defpac("images")) { print "Please load images " bye } tmpfile = mktemp("tmp$wfihdr") # List of images to scan nimages=0 sections (images, option="fullname", > tmpfile) nimages = sections.nimages if (nimages == 0 ) { print (" No images to scan ") bye } else { print (" No. images to scan: "//nimages) } list = tmpfile # Loop over the images while (fscan (list,ima) != EOF ) { print (ima) if (! access(ima)) { print ("Cannot open "//ima) continue } # CHANGE DEC SIGN # hedit (ima//"[0]","DEC",'(@"DEC"*-1.0)',add+,ver-,show-,up+,del-) hedit (ima//"[0]","CRVAL1",'(@"RA")',add+,ver-,show-,up+,del-) hedit (ima//"[0]","CRVAL2",'(@"DEC")',add+,ver-,show-,up+,del-) hedit (ima//"[0]","CTYPE1",'RA---TAN',add+,ver-,show-,up+,del-) hedit (ima//"[0]","CTYPE2",'DEC--TAN',add+,ver-,show-,up+,del-) hedit (ima//"[0]","CDELT1",-6.61E-5,add+,ver-,show-,up+,del-) hedit (ima//"[0]","CDELT2",6.61E-5,add+,ver-,show-,up+,del-) # hedit (ima//"[WIN1.CHIP1.OUT1]","CRVAL1",".",del+,add-,ver-,show-,up+) hedit (ima//"[WIN1.CHIP1.OUT1]","CRVAL2",".",del+,add-,ver-,show-,up+) hedit (ima//"[WIN1.CHIP1.OUT1]","CTYPE1",".",del+,add-,ver-,show-,up+) hedit (ima//"[WIN1.CHIP1.OUT1]","CTYPE2",".",del+,add-,ver-,show-,up+) hedit (ima//"[WIN1.CHIP1.OUT1]","CDELT1",".",del+,add-,ver-,show-,up+) hedit (ima//"[WIN1.CHIP1.OUT1]","CDELT2",".",del+,add-,ver-,show-,up+) hedit (ima//"[WIN1.CHIP1.OUT1]","INHERIT",'T',add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP1.OUT1]","CRPIX1",4547,add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP1.OUT1]","CRPIX2",-103,add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP1.OUT1]","CCDSIZE",'[1:2142,1:4128]',add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP1.OUT1]","CCDSEC",'[1:2142,1:4128]',add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP1.OUT1]","AMPSEC",'[1:2142,1:4128]',add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP1.OUT1]","DATASEC",'[1:2142,1:4128]',add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP1.OUT1]","BIASSEC",'[10:40,1:4128]',add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP1.OUT1]","TRIMSEC",'[60:2093,30:4126]',add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP1.OUT1]","CCDSIZE",'[1:2142,1:4128]',add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP1.OUT1]","DETSEC",'[1:2142,1:4128]',add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP1.OUT1]","WFICHIP",1,add+,ver-,show-,up+,del-) # hedit (ima//"[WIN1.CHIP2.OUT1]","CRVAL1",".",del+,add-,ver-,show-,up+) hedit (ima//"[WIN1.CHIP2.OUT1]","CRVAL2",".",del+,add-,ver-,show-,up+) hedit (ima//"[WIN1.CHIP2.OUT1]","CTYPE1",".",del+,add-,ver-,show-,up+) hedit (ima//"[WIN1.CHIP2.OUT1]","CTYPE2",".",del+,add-,ver-,show-,up+) hedit (ima//"[WIN1.CHIP2.OUT1]","CDELT1",".",del+,add-,ver-,show-,up+) hedit (ima//"[WIN1.CHIP2.OUT1]","CDELT2",".",del+,add-,ver-,show-,up+) hedit (ima//"[WIN1.CHIP2.OUT1]","INHERIT",'T',add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP2.OUT1]","CRPIX1",2401,add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP2.OUT1]","CRPIX2",-101,add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP2.OUT1]","CCDSIZE",'[1:2142,1:4128]',add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP2.OUT1]","CCDSEC",'[1:2142,1:4128]',add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP2.OUT1]","AMPSEC",'[1:2142,1:4128]',add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP2.OUT1]","DATASEC",'[1:2142,1:4128]',add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP2.OUT1]","BIASSEC",'[10:40,1:4128]',add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP2.OUT1]","TRIMSEC",'[60:2093,30:4126]',add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP2.OUT1]","CCDSIZE",'[1:2142,1:4128]',add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP2.OUT1]","DETSEC",'[1:2142,1:4128]',add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP2.OUT1]","WFICHIP",2,add+,ver-,show-,up+,del-) # hedit (ima//"[WIN1.CHIP3.OUT1]","CRVAL1",".",del+,add-,ver-,show-,up+) hedit (ima//"[WIN1.CHIP3.OUT1]","CRVAL2",".",del+,add-,ver-,show-,up+) hedit (ima//"[WIN1.CHIP3.OUT1]","CTYPE1",".",del+,add-,ver-,show-,up+) hedit (ima//"[WIN1.CHIP3.OUT1]","CTYPE2",".",del+,add-,ver-,show-,up+) hedit (ima//"[WIN1.CHIP3.OUT1]","CDELT1",".",del+,add-,ver-,show-,up+) hedit (ima//"[WIN1.CHIP3.OUT1]","CDELT2",".",del+,add-,ver-,show-,up+) hedit (ima//"[WIN1.CHIP3.OUT1]","INHERIT",'T',add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP3.OUT1]","CRPIX1",264,add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP3.OUT1]","CRPIX2",-94,add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP3.OUT1]","CCDSIZE",'[1:2142,1:4128]',add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP3.OUT1]","CCDSEC",'[1:2142,1:4128]',add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP3.OUT1]","AMPSEC",'[1:2142,1:4128]',add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP3.OUT1]","DATASEC",'[1:2142,1:4128]',add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP3.OUT1]","BIASSEC",'[10:40,1:4128]',add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP3.OUT1]","TRIMSEC",'[60:2093,30:4126]',add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP3.OUT1]","CCDSIZE",'[1:2142,1:4128]',add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP3.OUT1]","DETSEC",'[1:2142,1:4128]',add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP3.OUT1]","WFICHIP",3,add+,ver-,show-,up+,del-) # hedit (ima//"[WIN1.CHIP4.OUT1]","CRVAL1",".",del+,add-,ver-,show-,up+) hedit (ima//"[WIN1.CHIP4.OUT1]","CRVAL2",".",del+,add-,ver-,show-,up+) hedit (ima//"[WIN1.CHIP4.OUT1]","CTYPE1",".",del+,add-,ver-,show-,up+) hedit (ima//"[WIN1.CHIP4.OUT1]","CTYPE2",".",del+,add-,ver-,show-,up+) hedit (ima//"[WIN1.CHIP4.OUT1]","CDELT1",".",del+,add-,ver-,show-,up+) hedit (ima//"[WIN1.CHIP4.OUT1]","CDELT2",".",del+,add-,ver-,show-,up+) hedit (ima//"[WIN1.CHIP4.OUT1]","INHERIT",'T',add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP4.OUT1]","CRPIX1",-1871,add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP4.OUT1]","CRPIX2",-95,add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP4.OUT1]","CCDSIZE",'[1:2142,1:4128]',add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP4.OUT1]","CCDSEC",'[1:2142,1:4128]',add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP4.OUT1]","AMPSEC",'[1:2142,1:4128]',add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP4.OUT1]","DATASEC",'[1:2142,1:4128]',add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP4.OUT1]","BIASSEC",'[10:40,1:4128]',add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP4.OUT1]","TRIMSEC",'[60:2093,30:4126]',add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP4.OUT1]","CCDSIZE",'[1:2142,1:4128]',add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP4.OUT1]","DETSEC",'[1:2142,1:4128]',add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP4.OUT1]","WFICHIP",4,add+,ver-,show-,up+,del-) # hedit (ima//"[WIN1.CHIP5.OUT2]","CRVAL1",".",del+,add-,ver-,show-,up+) hedit (ima//"[WIN1.CHIP5.OUT2]","CRVAL2",".",del+,add-,ver-,show-,up+) hedit (ima//"[WIN1.CHIP5.OUT2]","CTYPE1",".",del+,add-,ver-,show-,up+) hedit (ima//"[WIN1.CHIP5.OUT2]","CTYPE2",".",del+,add-,ver-,show-,up+) hedit (ima//"[WIN1.CHIP5.OUT2]","CDELT1",".",del+,add-,ver-,show-,up+) hedit (ima//"[WIN1.CHIP5.OUT2]","CDELT2",".",del+,add-,ver-,show-,up+) hedit (ima//"[WIN1.CHIP5.OUT2]","INHERIT",'T',add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP5.OUT2]","CRPIX1",4544,add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP5.OUT2]","CRPIX2",4016,add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP5.OUT2]","CCDSIZE",'[1:2142,1:4128]',add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP5.OUT2]","CCDSEC",'[1:2142,1:4128]',add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP5.OUT2]","AMPSEC",'[1:2142,1:4128]',add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP5.OUT2]","DATASEC",'[1:2142,1:4128]',add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP5.OUT2]","BIASSEC",'[10:40,1:4128]',add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP5.OUT2]","TRIMSEC",'[60:2093,2:4098]',add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP5.OUT2]","CCDSIZE",'[1:2142,1:4128]',add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP5.OUT2]","DETSEC",'[1:2142,1:4128]',add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP5.OUT2]","WFICHIP",5,add+,ver-,show-,up+,del-) # hedit (ima//"[WIN1.CHIP6.OUT1]","CRVAL1",".",del+,add-,ver-,show-,up+) hedit (ima//"[WIN1.CHIP6.OUT1]","CRVAL2",".",del+,add-,ver-,show-,up+) hedit (ima//"[WIN1.CHIP6.OUT1]","CTYPE1",".",del+,add-,ver-,show-,up+) hedit (ima//"[WIN1.CHIP6.OUT1]","CTYPE2",".",del+,add-,ver-,show-,up+) hedit (ima//"[WIN1.CHIP6.OUT1]","CDELT1",".",del+,add-,ver-,show-,up+) hedit (ima//"[WIN1.CHIP6.OUT1]","CDELT2",".",del+,add-,ver-,show-,up+) hedit (ima//"[WIN1.CHIP6.OUT1]","INHERIT",'T',add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP6.OUT1]","CRPIX1",2405,add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP6.OUT1]","CRPIX2",4015,add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP6.OUT1]","CCDSIZE",'[1:2142,1:4128]',add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP6.OUT1]","CCDSEC",'[1:2142,1:4128]',add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP6.OUT1]","AMPSEC",'[1:2142,1:4128]',add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP6.OUT1]","DATASEC",'[1:2142,1:4128]',add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP6.OUT1]","BIASSEC",'[2105:2135,1:4128]',add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP6.OUT1]","TRIMSEC",'[50:2083,2:4098]',add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP6.OUT1]","CCDSIZE",'[1:2142,1:4128]',add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP6.OUT1]","DETSEC",'[1:2142,1:4128]',add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP6.OUT1]","WFICHIP",6,add+,ver-,show-,up+,del-) # hedit (ima//"[WIN1.CHIP7.OUT1]","CRVAL1",".",del+,add-,ver-,show-,up+) hedit (ima//"[WIN1.CHIP7.OUT1]","CRVAL2",".",del+,add-,ver-,show-,up+) hedit (ima//"[WIN1.CHIP7.OUT1]","CTYPE1",".",del+,add-,ver-,show-,up+) hedit (ima//"[WIN1.CHIP7.OUT1]","CTYPE2",".",del+,add-,ver-,show-,up+) hedit (ima//"[WIN1.CHIP7.OUT1]","CDELT1",".",del+,add-,ver-,show-,up+) hedit (ima//"[WIN1.CHIP7.OUT1]","CDELT2",".",del+,add-,ver-,show-,up+) hedit (ima//"[WIN1.CHIP7.OUT1]","INHERIT",'T',add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP7.OUT1]","CRPIX1",268,add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP7.OUT1]","CRPIX2",4018,add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP7.OUT1]","CCDSIZE",'[1:2142,1:4128]',add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP7.OUT1]","CCDSEC",'[1:2142,1:4128]',add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP7.OUT1]","AMPSEC",'[1:2142,1:4128]',add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP7.OUT1]","DATASEC",'[1:2142,1:4128]',add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP7.OUT1]","BIASSEC",'[2105:2135,1:4128]',add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP7.OUT1]","TRIMSEC",'[50:2083,2:4098]',add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP7.OUT1]","CCDSIZE",'[1:2142,1:4128]',add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP7.OUT1]","DETSEC",'[1:2142,1:4128]',add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP7.OUT1]","WFICHIP",7,add+,ver-,show-,up+,del-) # hedit (ima//"[WIN1.CHIP8.OUT1]","CRVAL1",".",del+,add-,ver-,show-,up+) hedit (ima//"[WIN1.CHIP8.OUT1]","CRVAL2",".",del+,add-,ver-,show-,up+) hedit (ima//"[WIN1.CHIP8.OUT1]","CTYPE1",".",del+,add-,ver-,show-,up+) hedit (ima//"[WIN1.CHIP8.OUT1]","CTYPE2",".",del+,add-,ver-,show-,up+) hedit (ima//"[WIN1.CHIP8.OUT1]","CDELT1",".",del+,add-,ver-,show-,up+) hedit (ima//"[WIN1.CHIP8.OUT1]","CDELT2",".",del+,add-,ver-,show-,up+) hedit (ima//"[WIN1.CHIP8.OUT1]","INHERIT",'T',add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP8.OUT1]","CRPIX1",-1872,add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP8.OUT1]","CRPIX2",4023,add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP8.OUT1]","CCDSIZE",'[1:2142,1:4128]',add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP8.OUT1]","CCDSEC",'[1:2142,1:4128]',add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP8.OUT1]","AMPSEC",'[1:2142,1:4128]',add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP8.OUT1]","DATASEC",'[1:2142,1:4128]',add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP8.OUT1]","BIASSEC",'[2105:2135,1:4128]',add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP8.OUT1]","TRIMSEC",'[50:2083,2:4098]',add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP8.OUT1]","CCDSIZE",'[1:2142,1:4128]',add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP8.OUT1]","DETSEC",'[1:2142,1:4128]',add+,ver-,show-,up+,del-) hedit (ima//"[WIN1.CHIP8.OUT1]","WFICHIP",8,add+,ver-,show-,up+,del-) } delete(tmpfile,ver-,>& "dev$null") end