Merged master 8748

2018-08-05 11:33:30 -04:00
parent 8f8772f1bd
commit 62899069bf
1222 changed files with 70382 additions and 406763 deletions
@@ -0,0 +1,25 @@
+subroutine foxgen_wrap(msg40,msgbits,itone)
+
+  parameter (NN=79,ND=58,KK=87,NSPS=4*1920)
+  parameter (NWAVE=NN*NSPS)
+
+  character*40 msg40,cmsg
+  character*12 mycall12
+  integer*1 msgbits(KK),msgbits2
+  integer itone(NN)
+  common/foxcom/wave(NWAVE),nslots,nfreq,i3bit(5),cmsg(5),mycall12
+  common/foxcom2/itone2(NN),msgbits2(KK)
+
+  nslots=1
+  nfreq=300
+  i1=index(msg40,'<')
+  i2=index(msg40,'>')
+  mycall12=msg40(i1+1:i2-1)//'    '
+  cmsg(1)=msg40
+  i3bit(1)=1
+  call foxgen()
+  msgbits=msgbits2
+  itone=itone2
+
+  return
+end subroutine foxgen_wrap