w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-07-30 20:52:28 -04:00
Code Issues Packages Projects Releases Wiki Activity

Several corrections in cfom_iq.f90.

Browse Source
This commit is contained in:
Joe Taylor 2023-12-18 13:28:03 -05:00
parent 97fac57830
commit 8be6d702d2
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
qmap/libqmap/cfom_iq.f90
View File

@ -2,19 +2,19 @@ program cfom_iq
parameter(NMAX=60*96000) parameter(NMAX=60*96000)
integer*2 id2(2,NMAX) integer*2 id2(2,NMAX)
complex c,w,wstep complex*16 c,w,wstep
real*8 fcenter,uth8,twopi real*8 fcenter,uth8,twopi,dphi
character*6 mygrid character*6 mygrid
twopi=8.d0*atan(1.d0) twopi=8.d0*atan(1.d0)
open(10,file='231028_0140.iq',status='old',access='stream') open(10,file='231028_0131.iq',status='old',access='stream')
open(12,file='231028_0140.cfom',status='unknown',access='stream') open(12,file='231028_0131.cfom',status='unknown',access='stream')
mygrid='FN20OG' mygrid='FN20OG'
nyear=2023 nyear=2023
month=10 month=10
nday=28 nday=28
uth8=01 + 40.d0/60 uth8=01 + 31.d0/60
nfreq=1296 nfreq=1296
call astrosub00(nyear,month,nday,uth8,nfreq,mygrid,ndop0) call astrosub00(nyear,month,nday,uth8,nfreq,mygrid,ndop0)
call astrosub00(nyear,month,nday,uth8+1.d0/60.d0,nfreq,mygrid,ndop1) call astrosub00(nyear,month,nday,uth8+1.d0/60.d0,nfreq,mygrid,ndop1)
@ -29,17 +29,17 @@ program cfom_iq
j=0 j=0
w=1.0 w=1.0
do isec=1,60 do isec=1,60
dop=dop0 + (i-0.5)*(dop1-dop0)/60. dop=dop0 + (isec-0.5)*(dop1-dop0)/60.
dphi=-dop*twopi/96000.0 dphi=dop*twopi/96000.0
wstep=cmplx(cos(dphi),sin(dphi)) wstep=cmplx(cos(dphi),sin(dphi))
do n=1,96000 do n=1,96000
j=j+1 j=j+1
x=id2(1,j) x=id2(1,j)
y=id2(2,j) y=id2(2,j)
w=w*wstep w=w*wstep
c=100.0*w*cmplx(x,y) c=100.d0*w*cmplx(x,y)
id2(1,j)=0.01*real(c) id2(1,j)=0.01d0*real(c)
id2(2,j)=0.01*aimag(c) id2(2,j)=0.01d0*aimag(c)
enddo enddo
enddo enddo