IPP Software Navigation Tools IPP Links Communication Pan-STARRS Links

Ignore:
Timestamp:
Feb 9, 2009, 12:58:30 PM (17 years ago)
Author:
Paul Price
Message:

Changing 'weight' to 'variance'

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/tools/warp_inputs.pl

    r20728 r21427  
    1414use constant IMAGE => '.ch.fits';  # Image extension
    1515use constant MASK => '.ch.mk.fits'; # Mask extension
    16 use constant WEIGHT => '.ch.wt.fits'; # Weight extension
     16use constant VARIANCE => '.ch.wt.fits'; # Variance extension
    1717use constant ASTROM => '.smf';  # Astrometry extension
    1818
     
    2222my ($warp_id);                  # Warp of interest
    2323my ($skycell_id);               # Skycell of interest
    24 my ($image, $mask, $weight); # Files to contain input lists
     24my ($image, $mask, $variance); # Files to contain input lists
    2525
    2626GetOptions(
     
    3333           'image=s' => \$image, # File with images
    3434           'mask=s' => \$mask,  # File with masks
    35            'weight=s' => \$weight, # File with weights
     35           'variance=s' => \$variance, # File with variances
    3636           ) or die "Unable to parse arguments.\n";
    3737die "Unknown option: @ARGV\n" if @ARGV;
     
    6969$db->disconnect;
    7070
    71 my ($imageList, $maskList, $weightList); # Files to write to
     71my ($imageList, $maskList, $varianceList); # Files to write to
    7272open $imageList, "> $image" if defined $image;
    7373open $maskList, "> $mask" if defined $mask;
    74 open $weightList, "> $weight" if defined $weight;
     74open $varianceList, "> $variance" if defined $variance;
    7575
    7676foreach my $row ( @$results ) {
     
    8383    my $imageName = $chip . IMAGE(); # Name of image
    8484    my $maskName = $chip . MASK(); # Name of mask
    85     my $weightName = $chip . WEIGHT(); # Name of weight
     85    my $varianceName = $chip . VARIANCE(); # Name of variance
    8686    my $astromName = $cam . ASTROM(); # Name of astrometry
    8787
    8888    print $imageList "$imageName\n" if defined $image;
    8989    print $maskList "$maskName\n" if defined $mask;
    90     print $weightList "$weightName\n" if defined $weight;
     90    print $varianceList "$varianceName\n" if defined $variance;
    9191
    9292    copy_file( $imageName );
    9393    copy_file( $maskName );
    94     copy_file( $weightName );
     94    copy_file( $varianceName );
    9595    copy_file( $astromName );
    9696}
     
    9898close $imageList if defined $image;
    9999close $maskList if defined $mask;
    100 close $weightList if defined $weight;
     100close $varianceList if defined $variance;
    101101
    102102
Note: See TracChangeset for help on using the changeset viewer.