From b49a90f5301e9e141379857ba63adc8b7ec6ff84 Mon Sep 17 00:00:00 2001 From: Steven Franke Date: Mon, 14 Sep 2020 13:03:33 -0500 Subject: [PATCH] Remove a redundant array. --- lib/fst4/get_fst4_bitmetrics.f90 | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/lib/fst4/get_fst4_bitmetrics.f90 b/lib/fst4/get_fst4_bitmetrics.f90 index 87255e2ba..181be6f56 100644 --- a/lib/fst4/get_fst4_bitmetrics.f90 +++ b/lib/fst4/get_fst4_bitmetrics.f90 @@ -7,7 +7,7 @@ subroutine get_fst4_bitmetrics(cd,nss,hmod,nmax,nhicoh,bitmetrics,s4,nsync_qual, complex csymb(nss) complex, allocatable, save :: ci(:,:) ! ideal waveforms, 20 samples per symbol, 4 tones complex cp(0:3) ! accumulated phase shift over symbol types 0:3 - complex c1(4,8),c2(16,4),c4(256,2),c8(655356),cterm + complex c1(4,8),c2(16,4),c4(256,2),cterm integer isyncword1(0:7),isyncword2(0:7) integer graymap(0:3) integer ip(1) @@ -150,8 +150,7 @@ subroutine get_fst4_bitmetrics(cd,nss,hmod,nmax,nhicoh,bitmetrics,s4,nsync_qual, do i=1,256 do j=1,256 is=(i-1)*256+j - c8(is)=c4(i,1)+c4(j,2) - s2(is-1)=abs(c8(is)) + s2(is-1)=abs(c4(i,1)+c4(j,2)) enddo enddo ipt=(k-1)*2+1