From 16d85d0867bf2d9ad4c1433e7765fb08f53239f9 Mon Sep 17 00:00:00 2001 From: Steven Franke Date: Sun, 22 Sep 2024 10:00:20 -0500 Subject: [PATCH] Minor tweaks to sfrx.f90. --- lib/superfox/sfrx.f90 | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/lib/superfox/sfrx.f90 b/lib/superfox/sfrx.f90 index b35b6b925..86c9e7930 100644 --- a/lib/superfox/sfrx.f90 +++ b/lib/superfox/sfrx.f90 @@ -1,8 +1,9 @@ program sfrx +! Command-line SuperFox decoder + use sfox_mod use julian -! use popen_module, only: get_command_as_string integer*2 iwave(NMAX) integer ihdr(11) @@ -55,7 +56,4 @@ program sfrx nf=nf+1 enddo - if(ncarg.gt.ifile1) write(*,1999) nf,nd,nv -1999 format('nfiles:',i5,' ndecodes:',i5,' nverified:',i5) - 999 end program sfrx