From 17d9c6bf81aaed0af8b4c20724fda25a9d95134f Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Thu, 15 Feb 2024 13:36:48 -0500
Subject: [PATCH] Print column headings on first isnr pass.

---
 lib/superfox/sfoxtest.f90 | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lib/superfox/sfoxtest.f90 b/lib/superfox/sfoxtest.f90
index 813c64f5e..ee1d5220e 100644
--- a/lib/superfox/sfoxtest.f90
+++ b/lib/superfox/sfoxtest.f90
@@ -114,8 +114,9 @@ program sfoxtest
   
 ! Generate cdat, the SuperFox waveform
   call sfox_gen(chansym0,f0,fsample,syncwidth,cdat)
+  isnr0=-8
 
-  do isnr=-8,-20,-1
+  do isnr=isnr0,-20,-1
      snr=isnr
      if(snrdb.ne.0.0) snr=snrdb
      sig=sqrt(2*bandwidth_ratio)*10.0**(0.05*snr)
@@ -218,7 +219,7 @@ program sfoxtest
      enddo  ! ifile
      fgoodsync=float(ngoodsync)/nfiles
      fgood=float(ngood)/nfiles
-     if(isnr.eq.0) write(*,1300)
+     if(isnr.eq.isnr0) write(*,1300)
 1300 format('    SNR  iters fsync  fgood  averr  worst  rmsf  rmst'/  &
             '------------------------------------------------------')
      ave_harderr=float(ntot)/nfiles