IPP Software Navigation Tools IPP Links Communication Pan-STARRS Links

Changeset 113


Ignore:
Timestamp:
Oct 8, 2003, 12:02:35 AM (23 years ago)
Author:
eugene
Message:

cleaned keyword formatting
added DATEPROC, EL_SYS keywords

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/Ohana/src/perl/src/grab.keywords

    r94 r113  
    106106    $cd21 = $cd1*$pc21;
    107107    $cd22 = $cd2*$pc22;
    108     $line = sprintf "CD1_1   = %20G / WCS Coordinate scale matrix                   \n", $cd11; @astrom = (@astrom, $line);
    109     $line = sprintf "CD1_2   = %20G / WCS Coordinate scale matrix                   \n", $cd12; @astrom = (@astrom, $line);
    110     $line = sprintf "CD2_1   = %20G / WCS Coordinate scale matrix                   \n", $cd21; @astrom = (@astrom, $line);
    111     $line = sprintf "CD2_2   = %20G / WCS Coordinate scale matrix                   \n", $cd22; @astrom = (@astrom, $line);
     108    $line = sprintf "CD1_1   = %20.5E / WCS Coordinate scale matrix                   \n", $cd11; @astrom = (@astrom, $line);
     109    $line = sprintf "CD1_2   = %20.5E / WCS Coordinate scale matrix                   \n", $cd12; @astrom = (@astrom, $line);
     110    $line = sprintf "CD2_1   = %20.5E / WCS Coordinate scale matrix                   \n", $cd21; @astrom = (@astrom, $line);
     111    $line = sprintf "CD2_2   = %20.5E / WCS Coordinate scale matrix                   \n", $cd22; @astrom = (@astrom, $line);
    112112}
    113113
    … …  
    135135    # parse the photometry data line
    136136    @words = split (" ", $photlist[$Nphot-1]);
    137     $line = sprintf "PHOT_C  = %20G / Nightly zero point - actual                   \n", $words[2];  @photom = (@photom, $line);
    138     $line = sprintf "PHOT_C0 = %20G / Nightly zero point - nominal                  \n", $words[3];  @photom = (@photom, $line);
    139     $line = sprintf "PHOT_CS = %20G / Nightly zero point - scatter                  \n", $words[4];  @photom = (@photom, $line);
     137    $line = sprintf "PHOT_C  = %20.4F / Nightly zero point - actual                   \n", $words[2];  @photom = (@photom, $line);
     138    $line = sprintf "PHOT_C0 = %20.4F / Nightly zero point - nominal                  \n", $words[3];  @photom = (@photom, $line);
     139    $line = sprintf "PHOT_CS = %20.4F / Nightly zero point - scatter                  \n", $words[4];  @photom = (@photom, $line);
    140140    $line = sprintf "PHOT_NS = %20d / Nightly zero point - N stars                  \n", $words[5];  @photom = (@photom, $line);
    141141    $line = sprintf "PHOT_NM = %20d / Nightly zero point - N images                 \n", $words[6];  @photom = (@photom, $line);
    142     $line = sprintf "PHOT_X  = %20G / Nightly zero point - color term               \n", $words[7];  @photom = (@photom, $line);
    143     $line = sprintf "PHOT_K  = %20G / Nightly zero point - airmass term             \n", $words[8];  @photom = (@photom, $line);
     142    $line = sprintf "PHOT_X  = %20.4F / Nightly zero point - color term             \n", $words[7];  @photom = (@photom, $line);
     143    $line = sprintf "PHOT_K  = %20.4F / Nightly zero point - airmass term             \n", $words[8];  @photom = (@photom, $line);
    144144    $line = sprintf "PHOT_C1 = '%-18s' / Nightly zero point - color 1               \n", $words[9];  @photom = (@photom, $line);
    145145    $line = sprintf "PHOT_C2 = '%-18s' / Nightly zero point - color 2               \n", $words[10]; @photom = (@photom, $line);
    … …  
    172172# add generic Elixir comments:
    173173
    174 $now = localtime;
     174@time = localtime;
     175$now = sprintf "%04d-%02d-%02dT%02d:%02d:%02d", $time[5]+1900, $time[4]+1, $time[3], $time[2], $time[1], $time[0];
     176$elsys = `gconfig ELIXIR_VERSION`; chop ($elsys);
     177# $frpts  = `detsearch -quiet -image $infile $ccds[$ccd] split -type frpts`; chop $frpts;
     178
    175179@comment = ();
    176 $line = sprintf "COMMENT  --------------- Elixir Analysis ---------------               \n"; @comment = (@comment, $line);
    177 $line = sprintf "COMMENT  Elixir: processing performed \@ CFHT, version $version         \n"; @comment = (@comment, $line);
    178 $line = sprintf "COMMENT  Elixir: version: $version                                      \n"; @comment = (@comment, $line);
     180$line = sprintf "COMMENT  --------------- Elixir Analysis ---------------                \n"; @comment = (@comment, $line);
     181$line = sprintf "COMMENT  Elixir: processing performed \@ CFHT, version $elsys           \n"; @comment = (@comment, $line);
     182$line = sprintf "COMMENT  Elixir: version: $elsys                                        \n"; @comment = (@comment, $line);
    179183$line = sprintf "COMMENT  Elixir: processing date: $now                                  \n"; @comment = (@comment, $line);
    180184$line = sprintf "COMMENT  Elixir: website: http://www.cfht.hawaii.edu/Instruments/Elixir \n"; @comment = (@comment, $line);
    181185$line = sprintf "COMMENT  Elixir: email: elixir\@cfht.hawaii.edu                         \n"; @comment = (@comment, $line);
    182186$line = sprintf "COMMENT  Elixir: team: Eugene Magnier & Jean-Charles Cuillandre         \n"; @comment = (@comment, $line);
     187$line = sprintf "DATEPROC= '$now' / Processing Date                                      \n"; @comment = (@comment, $line);
     188$line = sprintf "EL_SYS  = '%-18s' / Elixir System Version                               \n", "$elsys"; @comment = (@comment, $line);
    183189# (line < 80)    12345678901234567890123456789012345678901234567890123456789012345678901234567890
    184190
Note: See TracChangeset for help on using the changeset viewer.