iraf.net

procedure Maxim_header (start)
#version 1.0
int start     {prompt="Please select to create the needed files, e.g, 1st time,(1) or to EDIT Image Headers, 2nd (2)?: "}

struct  *list

begin
string s1
string imlist
struct s2
int ss
ss=start
print("........................................................................................................... ")
print("Maxim Header ver 1.0 " )
print("This script will correct the DATE-OBS keyword")
print("in a series of images in order to make them 'readable'")
print("by the Maxim DL software")
print("This is a known issue in direct images taken with the Roper 1300B CCD")
print("camera at CASLEO. The keyword DATE-OBS doesn't have the apropiate")
print("yyyy:mm:dddThh:mm:ss format. This script corrects that.")
print("")
print("............................................................................................................")


 
 
 
del("ut_list")
del("date_list")
del("ut_list_T")
del("final")


switch(ss) {
case 1: {                              #It creates the list of images to process, either .fit or .fits
        !ls *.fits >"imlist"
        !ls *.fit >> "imlist"
        print("")
        print("....................................................................")
        print(" Generating date_list and ut_list_T files")
        print("....................................................................")
        print("")
        print("")
        print("")

        hselect("@imlist","DATE-OBS",yes, > "date_list")
        hselect("@imlist", 'UT',yes, > "ut_list")
        list="ut_list"
        while (fscan(list,s1) !=EOF){
        files("T"//s1 ,>>"ut_list_T")
           }
        !paste date_list ut_list_T > salida  #It creates the output file needed for option #2
#**    
!gedit salida & #It calls gedit, change it if needed                                         
        print("............................................................")
        print("Save your file as salida by deleting")
        print("the space between the two columns")
        print("in order to have in each line the  yyyy::ddThh:mm:ss format")
        print("Please run the script again but selecting option 2")
        print("this will automatically edit your image headers")
        print(".............................................................")
        print("******")
        print("DONE")
        print("******")
          }               
case 2: {

                print("..................................................................................................")  
                print("Image headers will be corrected to ensure Maxim DL compability")
                print("...............................................................................................")
                print("")
                print("")
                print("")
                print("")
                if(access("salida")){    #Hediting image headers
                !paste imlist salida > final
                list = "final"
                while (fscan (list, s1, s2) != EOF) {
                hedit (s1, "DATE-OBS", s2, add+, up+, ver-)
                                                                }
                        del("salida")
                        print("*............................................................................*")
                        print("The Image headers have been edited SUCCESFULLY")
                        print("EXITING NOW")
                        print("*..........................................Maxim_header_v1a.*")                       
                                        }
                else{
                        print("")    
                        print("................................................")
                        print("File salida not present")
                        print("Did you first run option #1?")
                        print("................................................")
                        }
                                                                               

       
       
       

        }
default:
print("Please select option #1 or #2")
                }
               
               
end
[/code:1:ee59339bdb]