comicsansg/ft8d
1
0
Fork 0
mirror of https://github.com/pavel-demin/ft8d.git synced 2024-10-31 15:57:10 -04:00
Code Issues Packages Projects Releases Wiki Activity

remove save cx from sync8.f90

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
sync8.f90
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.