w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2026-08-01 16:37:31 -04:00
Code Issues Packages Projects Releases Wiki Activity

Repair argument type mismatch

Browse Source
This commit is contained in:
Bill Somerville
2021-04-15 02:57:02 +01:00
parent bd9c7a5785
commit 84f193c5a9
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
map65/libm65/ccf65.f90
+2 -2
View File
@@ -44,8 +44,8 @@ subroutine ccf65(ss,nhsym,ssmax,sync1,ipol1,jpz,dt1,flipk, &
! Not sure why, but it works significantly better without the following line:
! pr(j-1)=pr(j)
enddo
call four2a(pr,NFFT,1,-1,0)
call four2a(pr2,NFFT,1,-1,0)
call four2a(cpr,NFFT,1,-1,0)
call four2a(cpr2,NFFT,1,-1,0)
first=.false.
endif