2017-12-21 20:55:38 +00:00
|
|
|
subroutine foxgen_wrap(msg40,msgbits,itone)
|
2017-12-08 23:58:18 +00:00
|
|
|
|
|
|
|
|
parameter (NN=79,ND=58,KK=87,NSPS=4*1920)
|
|
|
|
|
parameter (NWAVE=NN*NSPS)
|
|
|
|
|
|
2017-12-21 20:55:38 +00:00
|
|
|
character*40 msg40,cmsg
|
2017-12-22 18:00:47 +00:00
|
|
|
character*12 mycall12
|
2017-12-08 23:58:18 +00:00
|
|
|
integer*1 msgbits(KK),msgbits2
|
|
|
|
|
integer itone(NN)
|
2017-12-27 21:06:57 +00:00
|
|
|
common/foxcom/wave(NWAVE),nslots,nfreq,i3bit(5),cmsg(5),mycall12
|
2017-12-08 23:58:18 +00:00
|
|
|
common/foxcom2/itone2(NN),msgbits2(KK)
|
|
|
|
|
|
|
|
|
|
nslots=1
|
2017-12-27 21:06:57 +00:00
|
|
|
nfreq=300
|
2017-12-21 20:55:38 +00:00
|
|
|
i1=index(msg40,'<')
|
|
|
|
|
i2=index(msg40,'>')
|
2017-12-22 18:00:47 +00:00
|
|
|
mycall12=msg40(i1+1:i2-1)//' '
|
2017-12-21 20:55:38 +00:00
|
|
|
cmsg(1)=msg40
|
2017-12-08 23:58:18 +00:00
|
|
|
i3bit(1)=1
|
|
|
|
|
call foxgen()
|
|
|
|
|
msgbits=msgbits2
|
|
|
|
|
itone=itone2
|
|
|
|
|
|
|
|
|
|
return
|
|
|
|
|
end subroutine foxgen_wrap
|
