From 8acdbb9069b85cbb3a92607627c58a4dba39cd27 Mon Sep 17 00:00:00 2001
From: Joe Taylor <k1jt@arrl.org>
Date: Wed, 3 Sep 2008 15:40:52 +0000
Subject: [PATCH] Corrected typo in moon2.f Added "localhost" address to
 plrs_subs_win.c. Use static variables in Astro.F.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@1004 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
---
 astro.F         | 2 +-
 map65.py        | 2 +-
 moon2.f         | 2 +-
 plrs_subs_win.c | 3 ++-
 4 files changed, 5 insertions(+), 4 deletions(-)

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 <stdio.h>
 
 #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;