w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-05-30 05:12:26 -04:00
Code Issues Packages Projects Releases Wiki Activity

Update one more file name, and the *.f90 references to 'include' it.

Browse Source
This commit is contained in:
Joe Taylor 2020-06-16 16:33:15 -04:00
parent 26260049d8
commit abcb7c3ff5
5 changed files with 14 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lib/fst280/fst280_params.f90 Normal file
View File

@ -0,0 +1,8 @@
! FT4S280
! LDPC(280,101)/CRC24 code, six 4x4 Costas arrays for sync, ramp-up and ramp-down symbols
parameter (KK=77) !Information bits (77 + CRC24)
parameter (ND=140) !Data symbols
parameter (NS=24) !Sync symbols
parameter (NN=NS+ND) !Sync and data symbols (164)
parameter (NN2=NS+ND+2) !Total channel symbols (166)

4
lib/fst280/fst280d.f90
View File

@ -3,7 +3,7 @@ program fst280d
! Decode fst280 data read from *.c2 or *.wav files. ! Decode fst280 data read from *.c2 or *.wav files.
use packjt77 use packjt77
include 'ft4s280_params.f90' include 'fst280_params.f90'
character arg*8,infile*80,fname*16,datetime*11 character arg*8,infile*80,fname*16,datetime*11
! character ch1*1,ch4*4,cseq*31 ! character ch1*1,ch4*4,cseq*31
! character*22 decodes(100) ! character*22 decodes(100)
@ -336,7 +336,7 @@ subroutine sync_fst280(cd0,i0,f0,hmod,ncoh,np,nss,fs,sync)
! Compute sync power for a complex, downsampled FST280 signal. ! Compute sync power for a complex, downsampled FST280 signal.
include 'ft4s280_params.f90' include 'fst280_params.f90'
complex cd0(0:np-1) complex cd0(0:np-1)
complex, allocatable, save :: csync(:) complex, allocatable, save :: csync(:)
complex, allocatable, save :: csynct(:) complex, allocatable, save :: csynct(:)

2
lib/fst280/fst280sim.f90
View File

@ -4,7 +4,7 @@ program fst280sim
use wavhdr use wavhdr
use packjt77 use packjt77
include 'ft4s280_params.f90' !Set various constants include 'fst280_params.f90' !Set various constants
type(hdr) h !Header for .wav file type(hdr) h !Header for .wav file
character arg*12,fname*17 character arg*12,fname*17
character msg37*37,msgsent37*37,c77*77 character msg37*37,msgsent37*37,c77*77

4
lib/fst280/genfst280.f90
View File

@ -13,7 +13,7 @@ subroutine genfst280(msg0,ichk,msgsent,msgbits,i4tone,iwspr)
! Message duration: TxT = 164*8400/12000 = 114.8 s ! Message duration: TxT = 164*8400/12000 = 114.8 s
use packjt77 use packjt77
include 'ft4s280_params.f90' include 'fst280_params.f90'
character*37 msg0 character*37 msg0
character*37 message !Message to be generated character*37 message !Message to be generated
character*37 msgsent !Message as it will be received character*37 msgsent !Message as it will be received
@ -68,7 +68,7 @@ subroutine genfst280(msg0,ichk,msgsent,msgbits,i4tone,iwspr)
msgsent='*** bad message *** ' msgsent='*** bad message *** '
go to 999 go to 999
entry get_ft4s280_tones_from_bits(msgbits,i4tone,iwspr) entry get_fst280_tones_from_bits(msgbits,i4tone,iwspr)
2 continue 2 continue

2
lib/fst280/get_fst280_bitmetrics.f90
View File

@ -1,6 +1,6 @@
subroutine get_fst280_bitmetrics(cd,nss,hmod,bitmetrics,badsync) subroutine get_fst280_bitmetrics(cd,nss,hmod,bitmetrics,badsync)
include 'ft4s280_params.f90' include 'fst280_params.f90'
complex cd(0:NN*nss-1) complex cd(0:NN*nss-1)
complex cs(0:3,NN) complex cs(0:3,NN)
complex csymb(nss) complex csymb(nss)