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
|
program ft8d
|
||||||
|
|
||||||
! Decode FT8 data read from *.wav files.
|
! Decode FT8 data read from *.c2 files.
|
||||||
|
|
||||||
include 'ft8_params.f90'
|
include 'ft8_params.f90'
|
||||||
character infile*80,datetime*13,message*22,msg37*37
|
character infile*80,datetime*13,message*22,msg37*37
|
||||||
@ -13,8 +13,6 @@ program ft8d
|
|||||||
real dd(NMAX)
|
real dd(NMAX)
|
||||||
logical newdat,lsubtract,ldupe,bcontest
|
logical newdat,lsubtract,ldupe,bcontest
|
||||||
integer apsym(KK)
|
integer apsym(KK)
|
||||||
integer ihdr(11)
|
|
||||||
integer*2 iwave(NMAX)
|
|
||||||
integer allsnrs(100)
|
integer allsnrs(100)
|
||||||
save s,dd
|
save s,dd
|
||||||
|
|
||||||
@ -39,12 +37,11 @@ program ft8d
|
|||||||
do ifile=1,nfiles
|
do ifile=1,nfiles
|
||||||
call getarg(ifile,infile)
|
call getarg(ifile,infile)
|
||||||
open(10,file=infile,status='old',access='stream')
|
open(10,file=infile,status='old',access='stream')
|
||||||
read(10,end=999) ihdr,iwave
|
read(10,end=999) dd
|
||||||
close(10)
|
close(10)
|
||||||
j2=index(infile,'.wav')
|
j2=index(infile,'.c2')
|
||||||
read(infile(j2-6:j2-1),*) nutc
|
read(infile(j2-6:j2-1),*) nutc
|
||||||
datetime=infile(j2-13:j2-1)
|
datetime=infile(j2-13:j2-1)
|
||||||
dd=iwave
|
|
||||||
ndecodes=0
|
ndecodes=0
|
||||||
allmessages=' '
|
allmessages=' '
|
||||||
allsnrs=0
|
allsnrs=0
|
||||||
|
Loading…
Reference in New Issue
Block a user