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 program sfrx
! Command-line SuperFox decoder
use sfox_mod use sfox_mod
use julian use julian
! use popen_module, only: get_command_as_string
integer*2 iwave(NMAX) integer*2 iwave(NMAX)
integer ihdr(11) integer ihdr(11)
@ -55,7 +56,4 @@ program sfrx
nf=nf+1 nf=nf+1
enddo enddo
if(ncarg.gt.ifile1) write(*,1999) nf,nd,nv
1999 format('nfiles:',i5,' ndecodes:',i5,' nverified:',i5)
999 end program sfrx 999 end program sfrx