mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2025-05-24 02:12:37 -04:00
Minor tweaks to sfrx.f90.
This commit is contained in:
parent
6a154b4e6f
commit
16d85d0867
@ -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
|
||||||
|
Loading…
x
Reference in New Issue
Block a user