X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FSun.pm;h=301fa4a5b862906b55409d8025c64ae3915afe36;hb=e41ce6fd63f22883bbc40adec70298b488d28939;hp=182df931230abf3f1715b49b361c39cb9be252a3;hpb=9cb17cdc59baad6fd8d175ec9a644575cdc8c5d5;p=spider.git

diff --git a/perl/Sun.pm b/perl/Sun.pm
index 182df931..301fa4a5 100644
--- a/perl/Sun.pm
+++ b/perl/Sun.pm
@@ -18,13 +18,14 @@
 #
 # $Id$
 # 
+# 2005/02/25 add calculation of civil dawn and dusk, defined to be times
+#            when solar zenith angle is 96 degrees.
 # 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... 
 
 package Sun;
 
-use POSIX;
 
 require Exporter;
 @ISA = qw(Exporter);
@@ -48,6 +49,9 @@ use vars qw(%keps);
 use Keps;
 use DXVars;
 use DXUtil;
+use DXDebug;
+
+use POSIX qw(:math_h);
 
 # reload the keps data
 sub load