X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FSun.pm;h=90c2370537b94cb85c23a12fa6a7409827858c16;hb=d6ff8d0990c60b84a4da6d012f7fc043121e43e8;hp=759f99489a76199f0e2572f08b39d07ea852850a;hpb=4c4e8bb5564df1acbdce0b67f27bd78d924b4cef;p=spider.git

diff --git a/perl/Sun.pm b/perl/Sun.pm
index 759f9948..90c23705 100644
--- a/perl/Sun.pm
+++ b/perl/Sun.pm
@@ -18,6 +18,7 @@
 #
 # $Id$
 # 
+# 2001/12/16 Fixed Julian_Date_of_Epoch and now I actually use it...
 # 2001/09/15 some changes to take care of cases where the object 
 #            doesn't rise or set on a given day... 
 
@@ -76,13 +77,18 @@ sub Julian_Day
 sub Julian_Date_of_Epoch
 {
 	my $epoch=shift;
-	my $year=int($epoch*1e-3);
-	$year=$year+2000 if ($year < 57);
-	$year=$year+1900 if ($year >= 57);
-	my $day=$epoch-$year*1e3;
+	my $year=int($epoch/1000);
+	my $day=$epoch-$year*1000;
+	if ($year < 57 ) {
+		$year=$year+2000;
+	}
+	else {
+		$year=$year+1900;
+	}
 	my $Julian_Date_of_Epoch=Julian_Date_of_Year($year)+$day;
 	return $Julian_Date_of_Epoch;
 }
+
 sub Julian_Date_of_Year
 {
 	my $year=shift;
@@ -645,14 +651,7 @@ sub get_satellite_pos
 
 	my $epoch = $sat_ref ->{epoch};
 #printf("epoch = %10.2f\n",$epoch);
-	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;
+	my $jt_epoch=Julian_Date_of_Epoch($epoch);
 #printf("JT for epoch = %17.12f\n",$jt_epoch);
 	my $tsince=($jtime-$jt_epoch)*24*60;
 #printf("tsince (min) = %17.12f\n",$tsince);