From 1f16beeafe3b37618ac14e1f1b3c571e7763c554 Mon Sep 17 00:00:00 2001
From: Steven Franke <s.j.franke@icloud.com>
Date: Sat, 27 Jun 2020 14:11:37 -0500
Subject: [PATCH] Make T/R=300s work from the command line.

---
 lib/fst240/fst240sim.f90 | 2 +-
 lib/fst240_decode.f90    | 5 ++---
 2 files changed, 3 insertions(+), 4 deletions(-)

diff --git a/lib/fst240/fst240sim.f90 b/lib/fst240/fst240sim.f90
index 842e32876..9cca82504 100644
--- a/lib/fst240/fst240sim.f90
+++ b/lib/fst240/fst240sim.f90
@@ -51,7 +51,7 @@ program fst240sim
    if(nsec.eq.30) nsps=1680
    if(nsec.eq.60) nsps=3888
    if(nsec.eq.120) nsps=8200
-   if(nsec.eq.300) nsps=21168
+   if(nsec.eq.300) nsps=21504
    if(nsps.eq.0) then
       print*,'Invalid TR sequence length.'
       go to 999
diff --git a/lib/fst240_decode.f90 b/lib/fst240_decode.f90
index 231e00e84..b857e3dc1 100644
--- a/lib/fst240_decode.f90
+++ b/lib/fst240_decode.f90
@@ -155,7 +155,7 @@ contains
 ! The size of the downsampled c2 array is nfft2=nfft1/ndown
 
       call fst240_downsample(c_bigfft,nfft1,ndown,fc0,c2)
-      
+
       call timer('sync240 ',0)
       do isync=0,1
          if(isync.eq.0) then
@@ -376,7 +376,7 @@ write(21,'(8i4,f7.1,f7.2,3f7.1,1x,a37)') &
    integer hmod,isyncword(0:7)
    real f0save
    data isyncword/0,1,3,2,1,0,2,3/
-   data first/.true./,f0save/0.0/,nss0/-1/
+   data first/.true./,f0save/-99.9/,nss0/-1/
    save first,twopi,dt,fac,f0save,nss0
    p(z1)=(real(z1*fac)**2 + aimag(z1*fac)**2)**0.5     !Compute power
 
@@ -444,7 +444,6 @@ write(21,'(8i4,f7.1,f7.2,3f7.1,1x,a37)') &
       s4=s4+abs(z4)/(8*nss)
       s5=s5+abs(z5)/(8*nss)
    enddo
-
    sync = s1+s2+s3+s4+s5
 
    return