From 33aa347e2490ca111f7dc3c2f402107f9d61c3e7 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Thu, 15 Feb 2024 13:24:06 -0500
Subject: [PATCH] Correct the argument list in second call to sfox_gen().

---
 lib/superfox/sfoxtest.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/superfox/sfoxtest.f90 b/lib/superfox/sfoxtest.f90
index f32b58df9..813c64f5e 100644
--- a/lib/superfox/sfoxtest.f90
+++ b/lib/superfox/sfoxtest.f90
@@ -144,7 +144,7 @@ program sfoxtest
            f1=1500.0 + 200.0*(ran1(idummy)-0.5)
 !           xdt=0.6*(ran1(idummy)-0.5)
            xdt=0.3*ran1(idummy)
-           call sfox_gen(chansym0,f1,fsample,syncwidth,cdat,clo)
+           call sfox_gen(chansym0,f1,fsample,syncwidth,cdat)
         endif
         
         crcvd=0.