- my $epoch_year=int($epoch/1000);
- 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 $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;