remove save cx from sync8.f90

This commit is contained in:
Pavel Demin 2018-10-15 23:41:25 +02:00
parent ae19dcded2
commit cd8ec61296

View File

@ -19,7 +19,6 @@ subroutine sync8(dd,nfa,nfb,syncmin,nfqso,s,candidate,ncand,sbase)
integer icos7(0:6) integer icos7(0:6)
data icos7/2,5,6,0,4,1,3/ !Costas 7x7 tone pattern data icos7/2,5,6,0,4,1,3/ !Costas 7x7 tone pattern
equivalence (x,cx) equivalence (x,cx)
save cx
! Compute symbol spectra, stepping by NSTEP steps. ! Compute symbol spectra, stepping by NSTEP steps.
savg=0. savg=0.