SVN r8568

2018-03-17 12:56:24 -04:00
parent 587950f372
commit 45cc6416c1
633 changed files with 186 additions and 366401 deletions
@@ -1,70 +0,0 @@
-program allsim
-
-! Generate simulated data for WSJT-X slow modes: JT4, JT9, JT65, QRA64,
-! and WSPR.  Also unmodulated carrier and 20 WPM CW.
-  
-
-  use wavhdr
-  use packjt
-  parameter (NMAX=60*12000)
-  type(hdr) h
-  integer*2 iwave(NMAX)                  !Generated waveform (no noise)
-  integer itone(206)                     !Channel symbols (values 0-8)
-  integer icw(250)
-  real*4 dat(NMAX)
-  character message*22,msgsent*22,arg*8
-
-  nargs=iargc()
-  if(nargs.ne.1) then
-     print*,'Usage:   allsim <snr>'
-     go to 999
-  endif
-
-  call getarg(1,arg)
-  read(arg,*) snrdb                  !S/N in dB (2500 hz reference BW)
-
-  message='CQ KA2ABC FN20'
-  rmsdb=25.
-  rms=10.0**(0.05*rmsdb)
-  sig=10.0**(0.05*snrdb)
-  npts=NMAX
-
-  call init_random_seed()       !Seed Fortran RANDOM_NUMBER generator
-  call sgran()                  !Seed C rand generator (used in gran)
-
-  h=default_header(12000,npts)  
-  open(10,file='000000_0000.wav',access='stream',status='unknown')
-  do i=1,npts                   !Generate gaussian noise
-     dat(i)=gran()
-  enddo
-
-  itone=0
-  call addit(itone,12000,85,6912,400,sig,dat)    !Unmodulated carrier
-
-  call morse('CQ CQ DE KA2ABC KA2ABC',icw,ncw)
-!  print*,ncw
-!  write(*,3001) icw(1:ncw)
-!3001 format(50i1)
-  call addcw(icw,ncw,600,sig,dat)                !CW
-
-  call genwspr(message,msgsent,itone)
-  call addit(itone,12000,86,8192,800,sig,dat)    !WSPR (only 59 s of data)
-
-  call gen9(message,0,msgsent,itone,itype)
-  call addit(itone,12000,85,6912,1000,sig,dat)   !JT9
-
-  call gen4(message,0,msgsent,itone,itype)
-  call addit(itone,11025,206,2520,1200,sig,dat)  !JT4
-
-  call genqra64(message,0,msgsent,itone,itype)
-  call addit(itone,12000,84,6912,1400,sig,dat)   !QRA64
-
-  call gen65(message,0,msgsent,itone,itype)
-  call addit(itone,11025,126,4096,1600,sig,dat)  !JT65
-
-  iwave(1:npts)=nint(rms*dat(1:npts))
-  
-  write(10) h,iwave(1:npts)
-  close(10)
-
-999 end program allsim
@@ -1,139 +0,0 @@
-module ft8_decode
-
-  type :: ft8_decoder
-     procedure(ft8_decode_callback), pointer :: callback
-   contains
-     procedure :: decode
-  end type ft8_decoder
-
-  abstract interface
-     subroutine ft8_decode_callback (this,sync,snr,dt,freq,decoded,nap,qual)
-       import ft8_decoder
-       implicit none
-       class(ft8_decoder), intent(inout) :: this
-       real, intent(in) :: sync
-       integer, intent(in) :: snr
-       real, intent(in) :: dt
-       real, intent(in) :: freq
-       character(len=22), intent(in) :: decoded
-       integer, intent(in) :: nap 
-       real, intent(in) :: qual 
-     end subroutine ft8_decode_callback
-  end interface
-
-contains
-
-  subroutine decode(this,callback,iwave,nQSOProgress,nfqso,nftx,newdat,    &
-       nutc,nfa,nfb,nexp_decode,ndepth,nagain,lapon,napwid,mycall12,       &
-       mygrid6,hiscall12,hisgrid6)
-!    use wavhdr
-    use timer_module, only: timer
-    include 'fsk4hf/ft8_params.f90'
-!    type(hdr) h
-
-    class(ft8_decoder), intent(inout) :: this
-    procedure(ft8_decode_callback) :: callback
-    real s(NH1,NHSYM)
-    real sbase(NH1)
-    real candidate(3,200)
-    real dd(15*12000)
-    logical, intent(in) :: lapon,nagain
-    logical newdat,lsubtract,ldupe,bcontest
-    character*12 mycall12, hiscall12
-    character*6 mygrid6,hisgrid6
-    integer*2 iwave(15*12000)
-    integer apsym(KK)
-    character datetime*13,message*22
-    character*22 allmessages(100)
-    integer allsnrs(100)
-    save s,dd
-
-    bcontest=iand(nexp_decode,128).ne.0
-    this%callback => callback
-    write(datetime,1001) nutc        !### TEMPORARY ###
-1001 format("000000_",i6.6)
-
-    call ft8apset(mycall12,mygrid6,hiscall12,hisgrid6,bcontest,apsym,iaptype)
-    dd=iwave
-    ndecodes=0
-    allmessages='                      '
-    allsnrs=0
-    ifa=nfa
-    ifb=nfb
-    if(nagain) then
-       ifa=nfqso-10
-       ifb=nfqso+10
-    endif
-
-! For now:
-! ndepth=1: no subtraction, 1 pass, belief propagation only
-! ndepth=2: subtraction, 2 passes, belief propagation only
-! ndepth=3: subtraction, 2 passes, bp+osd
-    if(ndepth.eq.1) npass=1
-    if(ndepth.ge.2) npass=3
-    do ipass=1,npass
-      newdat=.true.  ! Is this a problem? I hijacked newdat.
-      syncmin=1.5
-      if(ipass.eq.1) then
-        lsubtract=.true.
-        if(ndepth.eq.1) lsubtract=.false.
-      elseif(ipass.eq.2) then
-        n2=ndecodes
-        if(ndecodes.eq.0) cycle
-        lsubtract=.true.
-      elseif(ipass.eq.3) then
-        if((ndecodes-n2).eq.0) cycle
-        lsubtract=.false. 
-      endif 
-
-      call timer('sync8   ',0)
-      call sync8(dd,ifa,ifb,syncmin,nfqso,s,candidate,ncand,sbase)
-      call timer('sync8   ',1)
-      do icand=1,ncand
-        sync=candidate(3,icand)
-        f1=candidate(1,icand)
-        xdt=candidate(2,icand)
-        xbase=10.0**(0.1*(sbase(nint(f1/3.125))-40.0))
-        nsnr0=min(99,nint(10.0*log10(sync) - 25.5))    !### empirical ###
-        call timer('ft8b    ',0)
-        call ft8b(dd,newdat,nQSOProgress,nfqso,nftx,ndepth,lapon,napwid,    &
-             lsubtract,nagain,iaptype,mygrid6,bcontest,sync,f1,xdt,xbase,   &
-             apsym,nharderrors,dmin,nbadcrc,iappass,iera,message,xsnr)
-        nsnr=nint(xsnr) 
-        xdt=xdt-0.5
-        hd=nharderrors+dmin
-        call timer('ft8b    ',1)
-        if(nbadcrc.eq.0) then
-!           call jtmsg(message,iflag)
-           if(bcontest) call fix_contest_msg(mygrid6,message)
-!           if(iand(iflag,31).ne.0) message(22:22)='?'
-           ldupe=.false.
-           do id=1,ndecodes
-              if(message.eq.allmessages(id).and.nsnr.le.allsnrs(id)) ldupe=.true.
-           enddo
-           if(.not.ldupe) then
-              ndecodes=ndecodes+1
-              allmessages(ndecodes)=message
-              allsnrs(ndecodes)=nsnr
-           endif
-!           write(81,1004) nutc,ncand,icand,ipass,iaptype,iappass,        &
-!                nharderrors,dmin,hd,min(sync,999.0),nint(xsnr),          &
-!                xdt,nint(f1),message
-!1004          format(i6.6,2i4,3i2,i3,3f6.1,i4,f6.2,i5,2x,a22)
-!           flush(81)
-           if(.not.ldupe .and. associated(this%callback)) then
-              qual=1.0-(nharderrors+dmin)/60.0 ! scale qual to [0.0,1.0]
-              call this%callback(sync,nsnr,xdt,f1,message,iaptype,qual)
-           endif
-        endif
-      enddo
-!     h=default_header(12000,NMAX)
-!     open(10,file='subtract.wav',status='unknown',access='stream')
-!     iwave=nint(dd)
-!     write(10) h,iwave
-!     close(10)
-  enddo
-  return
-  end subroutine decode
-
-end module ft8_decode