w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-22 12:23:37 -05:00
Code Issues Packages Projects Releases Wiki Activity

Add /echocom2/echo_spread to astro0.f90.

Browse Source
This commit is contained in:
Joe Taylor 2022-04-22 11:00:42 -04:00
parent 64a124ff20
commit d0dd88de40
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/astro0.f90
View File

@ -11,6 +11,7 @@ subroutine astro0(nyear,month,nday,uth8,freq8,mygrid,hisgrid, &
real*8 uth8,techo8,freq8 real*8 uth8,techo8,freq8
real*8 xl,b real*8 xl,b
common/librcom/xl(2),b(2) common/librcom/xl(2),b(2)
common/echocom2/echo_spread
data uth8z/0.d0/ data uth8z/0.d0/
save save
@ -42,6 +43,7 @@ subroutine astro0(nyear,month,nday,uth8,freq8,mygrid,hisgrid, &
dbdt2=DEGS*(b2a-b2) dbdt2=DEGS*(b2a-b2)
rate1=2.0*sqrt(dldt1**2 + dbdt1**2) rate1=2.0*sqrt(dldt1**2 + dbdt1**2)
width1=0.5*6741*fghz*rate1 width1=0.5*6741*fghz*rate1
echo_spread=width1 !Save echo_spread for avecho()
rate2=sqrt((dldt1+dldt2)**2 + (dbdt1+dbdt2)**2) rate2=sqrt((dldt1+dldt2)**2 + (dbdt1+dbdt2)**2)
width2=0.5*6741*fghz*rate2 width2=0.5*6741*fghz*rate2