mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-16 00:51:56 -05:00
2c17544f3f
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/WSJT/trunk@1 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
30 lines
476 B
Fortran
30 lines
476 B
Fortran
subroutine pix2d65(d2,jz)
|
|
|
|
! Compute data for green line in JT65 mode.
|
|
|
|
integer*2 d2(jz) !Raw input data
|
|
include 'gcom2.f90'
|
|
|
|
sum=0.
|
|
do i=1,jz
|
|
sum=sum+d2(i)
|
|
enddo
|
|
nave=nint(sum/jz)
|
|
nadd=nint(53.0*11025.0/500.0)
|
|
ngreen=min(jz/nadd,500)
|
|
k=0
|
|
j=0
|
|
do i=1,ngreen
|
|
sq=0.
|
|
do n=1,nadd
|
|
k=k+1
|
|
d2(k)=d2(k)-nave
|
|
x=d2(k)
|
|
sq=sq + x*x
|
|
enddo
|
|
green(i)=db(sq)-96.0
|
|
enddo
|
|
|
|
return
|
|
end subroutine pix2d65
|