diff --git a/astro.F b/astro.F index b97c9cc0b..955bd5957 100644 --- a/astro.F +++ b/astro.F @@ -19,7 +19,7 @@ C NB: may want to smooth the Tsky map to 10 degrees or so. equivalence (n1sky,nsky) data first/.true./ data rad/57.2957795/ - save first + save if(first) then do i=80,1,-1 diff --git a/map65.py b/map65.py index 8f1a50f49..521ab23fe 100644 --- a/map65.py +++ b/map65.py @@ -1,4 +1,4 @@ -#--------------------------------------------------------------------- MAP65 +#---------------------------------------------------------------------- MAP65 # $Date$ $Revision$ # from Tkinter import * diff --git a/moon2.f b/moon2.f index f212c7aa0..c2ab106dc 100644 --- a/moon2.f +++ b/moon2.f @@ -58,7 +58,7 @@ C Orbital elements for Moon: e = 0.054900d0 MM = mod(115.3654d0 + 13.0649929509d0 * d + 360000.d0,360.d0) - EE = MM + e*rad*sin(MM/rad) * (1.d0 + e*cos(M/rad)) + EE = MM + e*rad*sin(MM/rad) * (1.d0 + e*cos(MM/rad)) EE = EE - (EE - e*rad*sin(EE/rad)-MM) / (1.d0 - e*cos(EE/rad)) EE = EE - (EE - e*rad*sin(EE/rad)-MM) / (1.d0 - e*cos(EE/rad)) diff --git a/plrs_subs_win.c b/plrs_subs_win.c index 256ec07ed..6ca091e6a 100644 --- a/plrs_subs_win.c +++ b/plrs_subs_win.c @@ -4,7 +4,8 @@ #include #define HELLO_PORT 50004 -#define HELLO_GROUP "239.255.0.0" +//#define HELLO_GROUP "239.255.0.0" +#define HELLO_GROUP "127.0.0.1" struct sockaddr_in addr; int fd;