w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-28 23:28:49 -05:00
Code Issues Packages Projects Releases Wiki Activity

Add a missing file; tweak the FT2 decoder.

Browse Source
This commit is contained in:
Joe Taylor 2019-01-18 12:33:45 -05:00
parent 5f03d97a9e
commit 2033a2b33d
2 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lib/ft2/cdatetime.f90 Normal file
View File

@ -0,0 +1,6 @@
character*17 function cdatetime()
character cdate*8,ctime*10
call date_and_time(cdate,ctime)
cdatetime=cdate(3:8)//'_'//ctime
return
end function cdatetime

6
lib/ft2/ft2_decode.f90
View File

@ -7,7 +7,7 @@ subroutine ft2_decode(cdatetime0,nfqso,iwave,ndecodes,mycall,hiscall,nrx,line)
character*61 line character*61 line
character*37 decodes(100) character*37 decodes(100)
character*120 data_dir character*120 data_dir
character*17 cdatetime0,cdatetime,cdt character*17 cdatetime0,cdatetime
character*6 mycall,hiscall,hhmmss character*6 mycall,hiscall,hhmmss
complex c2(0:NMAX/16-1) !Complex waveform complex c2(0:NMAX/16-1) !Complex waveform
complex cb(0:NMAX/16-1) complex cb(0:NMAX/16-1)
@ -33,8 +33,8 @@ subroutine ft2_decode(cdatetime0,nfqso,iwave,ndecodes,mycall,hiscall,nrx,line)
hhmmss=' ' hhmmss=' '
if(cdatetime0==' ') then if(cdatetime0==' ') then
cdt=cdatetime() cdatetime0=cdatetime()
hhmmss=cdt(8:13) hhmmss=cdatetime0(8:13)
endif endif
fs=12000.0/NDOWN !Sample rate fs=12000.0/NDOWN !Sample rate