Changeset 19727
- Timestamp:
- Sep 23, 2008, 4:35:54 PM (18 years ago)
- File:
-
- 1 edited
-
trunk/ippScripts/scripts/ipp_mops_translate.pl (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
trunk/ippScripts/scripts/ipp_mops_translate.pl
r19718 r19727 179 179 my $mjd = $inHeader->{'MJD-OBS'} or die "Can't find MJD.\n"; # Modified Julian Date 180 180 my $exptime = $inHeader->{'EXPTIME'} or die "Can't find EXPTIME.\n"; # Exposure time, seconds 181 $mjd += $exptime / 2.0 ; # start --> mid-point181 $mjd += $exptime / 2.0 / 3600 / 24; # start --> mid-point 182 182 $outFits->write_key( TDOUBLE, 'MJD-OBS', $mjd, 'Time of exposure mid-point', $status); 183 183 check_fitsio( $status );
Note:
See TracChangeset
for help on using the changeset viewer.
