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
1 changed files with 0 additions and 1 deletions

View File

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