Don't need to pass s into ft8b anymore.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7760 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Steven Franke 2017-07-01 14:36:08 +00:00
parent c4f056dca8
commit ff4e4b1828

View File

@ -1,4 +1,4 @@
subroutine ft8b(dd0,s,nfqso,f1,xdt,nharderrors,dmin,nbadcrc,message,xsnr) subroutine ft8b(dd0,nfqso,f1,xdt,nharderrors,dmin,nbadcrc,message,xsnr)
use timer_module, only: timer use timer_module, only: timer
include 'ft8_params.f90' include 'ft8_params.f90'
@ -6,7 +6,6 @@ subroutine ft8b(dd0,s,nfqso,f1,xdt,nharderrors,dmin,nbadcrc,message,xsnr)
character*12 recent_calls(NRECENT) character*12 recent_calls(NRECENT)
character message*22,msgsent*22 character message*22,msgsent*22
real a(5) real a(5)
real s(NH1,NHSYM)
real s1(0:7,ND),s2(0:7,NN) real s1(0:7,ND),s2(0:7,NN)
real ps(0:7) real ps(0:7)
real rxdata(3*ND),llr(3*ND) !Soft symbols real rxdata(3*ND),llr(3*ND) !Soft symbols