mirror of
https://github.com/pavel-demin/ft8d.git
synced 2024-10-31 15:57:10 -04:00
adapt ft8d.f90 to input files with real values
This commit is contained in:
parent
e91f25e1a2
commit
df3cdfbf79
9
ft8d.f90
9
ft8d.f90
@ -1,6 +1,6 @@
|
||||
program ft8d
|
||||
|
||||
! Decode FT8 data read from *.wav files.
|
||||
! Decode FT8 data read from *.c2 files.
|
||||
|
||||
include 'ft8_params.f90'
|
||||
character infile*80,datetime*13,message*22,msg37*37
|
||||
@ -13,8 +13,6 @@ program ft8d
|
||||
real dd(NMAX)
|
||||
logical newdat,lsubtract,ldupe,bcontest
|
||||
integer apsym(KK)
|
||||
integer ihdr(11)
|
||||
integer*2 iwave(NMAX)
|
||||
integer allsnrs(100)
|
||||
save s,dd
|
||||
|
||||
@ -39,12 +37,11 @@ program ft8d
|
||||
do ifile=1,nfiles
|
||||
call getarg(ifile,infile)
|
||||
open(10,file=infile,status='old',access='stream')
|
||||
read(10,end=999) ihdr,iwave
|
||||
read(10,end=999) dd
|
||||
close(10)
|
||||
j2=index(infile,'.wav')
|
||||
j2=index(infile,'.c2')
|
||||
read(infile(j2-6:j2-1),*) nutc
|
||||
datetime=infile(j2-13:j2-1)
|
||||
dd=iwave
|
||||
ndecodes=0
|
||||
allmessages=' '
|
||||
allsnrs=0
|
||||
|
Loading…
Reference in New Issue
Block a user