WSJT-X/audio_init.F90

!------------------------------------------------ audio_init
subroutine audio_init(ndin,ndout)

#ifdef Win32
  use dfmt
  integer Thread1,Thread2,Thread3
  external a2d,decode1,recvpkt
#endif

  include 'gcom1.f90'
  include 'gcom2.f90'

  nmode=2
  if(mode(5:5).eq.'A') mode65=1
  if(mode(5:5).eq.'B') mode65=2
  if(mode(5:5).eq.'C') mode65=4
  ndevout=ndout
  TxOK=0
  Transmitting=0
  nfsample=11025
  nspb=1024
  nbufs=2048
  nmax=nbufs*nspb
  nwave=60*nfsample
  ngo=1
  f0=800.0
  do i=1,nwave
     iwave(i)=nint(32767.0*sin(6.283185307*i*f0/nfsample))
  enddo

#ifdef Win32
!  Priority classes (for processes):
!     IDLE_PRIORITY_CLASS               64
!     NORMAL_PRIORITY_CLASS             32
!     HIGH_PRIORITY_CLASS              128

!  Priority definitions (for threads):
!     THREAD_PRIORITY_IDLE             -15
!     THREAD_PRIORITY_LOWEST            -2
!     THREAD_PRIORITY_BELOW_NORMAL      -1
!     THREAD_PRIORITY_NORMAL             0
!     THREAD_PRIORITY_ABOVE_NORMAL       1
!     THREAD_PRIORITY_HIGHEST            2
!     THREAD_PRIORITY_TIME_CRITICAL     15
    
  m0=SetPriorityClass(GetCurrentProcess(),NORMAL_PRIORITY_CLASS)
!  m0=SetPriorityClass(GetCurrentProcess(),HIGH_PRIORITY_CLASS)

! Start a thread for doing A/D and D/A with sound card.
!  (actually, only D/A is used in MAP65)
  Thread1=CreateThread(0,0,a2d,0,CREATE_SUSPENDED,id1)
  m1=SetThreadPriority(Thread1,THREAD_PRIORITY_ABOVE_NORMAL)
  m2=ResumeThread(Thread1)

! Start a thread for background decoding.
  Thread2=CreateThread(0,0,decode1,0,CREATE_SUSPENDED,id2)
  m3=SetThreadPriority(Thread2,THREAD_PRIORITY_BELOW_NORMAL)
  m4=ResumeThread(Thread2)

! Start a thread to receive packets from Linrad
  Thread3=CreateThread(0,0,recvpkt,0,CREATE_SUSPENDED,id3)
  m5=SetThreadPriority(Thread3,THREAD_PRIORITY_ABOVE_NORMAL)
  m6=ResumeThread(Thread3)

#else
!  print*,'Audio INIT called.'
  ierr=start_threads(ndevin,ndevout,y1,y2,nmax,iwrite,iwave,nwave,    &
       11025,NSPB,TRPeriod,TxOK,ndebug,Transmitting,            &
       Tsec,ngo,nmode,tbuf,ibuf,ndsec,PttPort,devin_name,devout_name)

#endif

  return
end subroutine audio_init