adapt ft8d.f90 to input files with real values

This commit is contained in:
Pavel Demin 2018-03-31 10:02:18 +02:00
parent e91f25e1a2
commit df3cdfbf79

View File

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