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

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
No known key found for this signature in database
GPG Key ID: D864B06D1E81618F
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
map65/libm65/ccf65.f90
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: ! Not sure why, but it works significantly better without the following line:
! pr(j-1)=pr(j) ! pr(j-1)=pr(j)
enddo enddo
call four2a(pr,NFFT,1,-1,0) call four2a(cpr,NFFT,1,-1,0)
call four2a(pr2,NFFT,1,-1,0) call four2a(cpr2,NFFT,1,-1,0)
first=.false. first=.false.
endif endif