mirror of https://github.com/saitohirga/WSJT-X.git
Disabled azel.dat in Linux.
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/WSJT/trunk@9 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
parent
5fe2bfacb4
commit
b2cad6e8fa
27
Audio.f90
27
Audio.f90
|
@ -283,16 +283,7 @@ subroutine decode3(d2,jz,istart,filename)
|
||||||
do i=1,jz
|
do i=1,jz
|
||||||
d2(i)=d2(i)-nave
|
d2(i)=d2(i)-nave
|
||||||
d2d(i)=d2(i)
|
d2d(i)=d2(i)
|
||||||
! if(abs(d2d(i)).gt.5) then
|
|
||||||
! sq=sq+dfloat(d2d(i))**2
|
|
||||||
! nsq=nsq+1
|
|
||||||
! endif
|
|
||||||
enddo
|
enddo
|
||||||
! rms=sqrt(sq/nsq)
|
|
||||||
! sig=(1.414/rms) * 10.0**(0.05*(-24.0)) * (2500.0/5512.5)
|
|
||||||
! do i=1,jz
|
|
||||||
! d2d(i)=nint(500.0 * (gasdev(idum) + sig*d2d(i)))
|
|
||||||
! enddo
|
|
||||||
|
|
||||||
if(nblank.ne.0) call blanker(d2d,jz)
|
if(nblank.ne.0) call blanker(d2d,jz)
|
||||||
|
|
||||||
|
@ -1224,22 +1215,24 @@ subroutine astro0(nyear,month,nday,uth8,nfreq,grid,cauxra,cauxdec, &
|
||||||
imin=60*uth8
|
imin=60*uth8
|
||||||
isec=3600*uth8
|
isec=3600*uth8
|
||||||
|
|
||||||
|
#ifdef Win32
|
||||||
if(isec.ne.isec0) then
|
if(isec.ne.isec0) then
|
||||||
ih=uth8
|
ih=uth8
|
||||||
im=mod(imin,60)
|
im=mod(imin,60)
|
||||||
is=mod(isec,60)
|
is=mod(isec,60)
|
||||||
rewind 14
|
rewind 14
|
||||||
write(14,1010) ih,im,is,AzMoon,ElMoon
|
write(14,1010) ih,im,is,AzMoon,ElMoon, &
|
||||||
1010 format(i2.2,':',i2.2,':',i2.2,',',f5.1,',',f5.1,',Moon')
|
ih,im,is,AzSun,ElSun, &
|
||||||
write(14,1012) ih,im,is,AzSun,ElSun
|
ih,im,is,AzAux,ElAux, &
|
||||||
1012 format(i2.2,':',i2.2,':',i2.2,',',f5.1,',',f5.1,',Sun')
|
nfreq,doppler,dfdt,doppler00,dfdt0
|
||||||
write(14,1013) ih,im,is,AzAux,ElAux
|
1010 format(i2.2,':',i2.2,':',i2.2,',',f5.1,',',f5.1,',Moon'/ &
|
||||||
1013 format(i2.2,':',i2.2,':',i2.2,',',f5.1,',',f5.1,',Source')
|
i2.2,':',i2.2,':',i2.2,',',f5.1,',',f5.1,',Sun'/ &
|
||||||
write(14,1014) nfreq,doppler,dfdt,doppler00,dfdt0
|
i2.2,':',i2.2,':',i2.2,',',f5.1,',',f5.1,',Source'/ &
|
||||||
1014 format(i4,',',f6.1,',',f6.2,',',f6.1,',',f6.2,',Doppler')
|
i4,',',f6.1,',',f6.2,',',f6.1,',',f6.2,',Doppler')
|
||||||
rewind 14
|
rewind 14
|
||||||
isec0=isec
|
isec0=isec
|
||||||
endif
|
endif
|
||||||
|
#endif
|
||||||
|
|
||||||
return
|
return
|
||||||
end subroutine astro0
|
end subroutine astro0
|
||||||
|
|
2
wsjt.py
2
wsjt.py
|
@ -1427,7 +1427,7 @@ def update():
|
||||||
except:
|
except:
|
||||||
Audio.gcom2.nport=0
|
Audio.gcom2.nport=0
|
||||||
|
|
||||||
# Queue up the next update
|
# Queue up the next update
|
||||||
ldate.after(100,update)
|
ldate.after(100,update)
|
||||||
|
|
||||||
#------------------------------------------------------ Top level frame
|
#------------------------------------------------------ Top level frame
|
||||||
|
|
Loading…
Reference in New Issue