mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-04 08:21:17 -05:00
Add missing routine.
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8304 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
parent
50216ef103
commit
1b22496ce4
24
lib/ft8/foxgen_wrap.f90
Normal file
24
lib/ft8/foxgen_wrap.f90
Normal file
@ -0,0 +1,24 @@
|
||||
subroutine foxgen_wrap(msg32,msgbits,itone)
|
||||
|
||||
parameter (NN=79,ND=58,KK=87,NSPS=4*1920)
|
||||
parameter (NWAVE=NN*NSPS)
|
||||
|
||||
character*32 msg32,cmsg
|
||||
character*6 mycall6
|
||||
integer*1 msgbits(KK),msgbits2
|
||||
integer itone(NN)
|
||||
common/foxcom/wave(NWAVE),nslots,i3bit(5),cmsg(5),mycall6
|
||||
common/foxcom2/itone2(NN),msgbits2(KK)
|
||||
|
||||
nslots=1
|
||||
i1=index(msg32,'<')
|
||||
i2=index(msg32,'>')
|
||||
mycall6=msg32(i1+1:i2-1)//' '
|
||||
cmsg(1)=msg32
|
||||
i3bit(1)=1
|
||||
call foxgen()
|
||||
msgbits=msgbits2
|
||||
itone=itone2
|
||||
|
||||
return
|
||||
end subroutine foxgen_wrap
|
Loading…
Reference in New Issue
Block a user