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
This commit is contained in:
Joe Taylor 2008-09-03 15:40:52 +00:00
parent 453d3c11c8
commit 2f2c111860
4 changed files with 5 additions and 4 deletions

View File

@ -19,7 +19,7 @@ C NB: may want to smooth the Tsky map to 10 degrees or so.
equivalence (n1sky,nsky) equivalence (n1sky,nsky)
data first/.true./ data first/.true./
data rad/57.2957795/ data rad/57.2957795/
save first save
if(first) then if(first) then
do i=80,1,-1 do i=80,1,-1

View File

@ -1,4 +1,4 @@
#--------------------------------------------------------------------- MAP65 #---------------------------------------------------------------------- MAP65
# $Date$ $Revision$ # $Date$ $Revision$
# #
from Tkinter import * from Tkinter import *

View File

@ -58,7 +58,7 @@ C Orbital elements for Moon:
e = 0.054900d0 e = 0.054900d0
MM = mod(115.3654d0 + 13.0649929509d0 * d + 360000.d0,360.d0) 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))
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))

View File

@ -4,7 +4,8 @@
#include <stdio.h> #include <stdio.h>
#define HELLO_PORT 50004 #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; struct sockaddr_in addr;
int fd; int fd;