mirror of https://github.com/saitohirga/WSJT-X.git
75 lines
2.1 KiB
Fortran
75 lines
2.1 KiB
Fortran
!------------------------------------------------ audio_init
|
|
subroutine audio_init(ndin,ndout)
|
|
|
|
#ifdef CVF
|
|
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 CVF
|
|
! 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
|