my $epoch_day=$epoch-int(1000*$epoch_year);
#printf("epoch_year = %10.2f\n",$epoch_year);
#printf("epoch_day = %17.12f\n",$epoch_day);
my $epoch_day=$epoch-int(1000*$epoch_year);
#printf("epoch_year = %10.2f\n",$epoch_year);
#printf("epoch_day = %17.12f\n",$epoch_day);
- $epoch_year=$epoch_year+2000 if ($epoch_year < 57);
- $epoch_year=$epoch_year+1900 if ($epoch_year >= 57);
- my $jt_epoch=Julian_Date_of_Year($epoch_year);
+ my $ep_year=$epoch_year+2000 if ($epoch_year < 57);
+ $ep_year=$epoch_year+1900 if ($epoch_year >= 57);
+ my $jt_epoch=Julian_Date_of_Year($ep_year);
$jt_epoch=$jt_epoch+$epoch_day;
#printf("JT for epoch = %17.12f\n",$jt_epoch);
my $tsince=($jtime-$jt_epoch)*24*60;
$jt_epoch=$jt_epoch+$epoch_day;
#printf("JT for epoch = %17.12f\n",$jt_epoch);
my $tsince=($jtime-$jt_epoch)*24*60;