Minor tweaks to sfrx.f90.

This commit is contained in:
Steven Franke 2024-09-22 10:00:20 -05:00
parent 6a154b4e6f
commit 16d85d0867

View File

@ -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