From c5f01870362107b5dbecc665d280ef5b808b94c4 Mon Sep 17 00:00:00 2001 From: Steven Franke Date: Mon, 13 Jul 2020 19:59:14 -0500 Subject: [PATCH] Eliminate an unnecessary variable (NN2) in fst240sim.f90. --- lib/fst240/fst240sim.f90 | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/lib/fst240/fst240sim.f90 b/lib/fst240/fst240sim.f90 index b0790a768..fc09a9f73 100644 --- a/lib/fst240/fst240sim.f90 +++ b/lib/fst240/fst240sim.f90 @@ -59,8 +59,7 @@ program fst240sim baud=12000.0/nsps !Keying rate (baud) nmax=nsec*12000 nz=nsps*NN - nz2=nsps*NN2 - txt=nz2*dt !Transmission length (s) + txt=nz*dt !Transmission length (s) tt=nsps*dt !Duration of symbols (s) allocate( c0(0:nmax-1) ) allocate( c(0:nmax-1) )