view release on metacpan or  search on metacpan

Util/SWIFT/SWIFT.pm  view on Meta::CPAN

   } elsif ( $bits[2] == 1 ) { 
       $status{"interesting"} = 1;
       
   } elsif ( $bits[3] == 1 ) { 
       $status{"catalog_src"} = 1;
       
   } elsif ( $bits[4] == 1 ) { 
       $status{"image_trig"} = 1;
       
   } elsif ( $bits[5] == 1 ) {   
       $status{"def_not_grb"} = 1;
   }          

   return %status;
}

sub convert_trig_obs_num {
   my $trig_obs_num = shift;
   print "Converting trig_obs_num...\n";
        
   print "Repacking into a big-endian long...\n";