w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-09-03 13:47:51 -04:00
Code Issues Packages Projects Releases Wiki Activity

Activate the Gain co0ntrol in QMAP's "File -> Settings -> I/O Devices".

Browse Source
This commit is contained in:
Joe Taylor 2023-12-08 14:06:15 -05:00
parent ac1b5d03b2
commit 115c4c4e30
3 changed files with 13 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
qmap/libqmap/recvpkt.f90
View File

@ -1,4 +1,4 @@
subroutine recvpkt(nsam,nblock2,userx_no,k,buf4,buf8) subroutine recvpkt(nsam,nblock2,userx_no,k,buf4,buf8,ndb)
! Reformat timf2 data from Linrad and stuff data into r*4 array dd(). ! Reformat timf2 data from Linrad and stuff data into r*4 array dd().
@ -16,6 +16,7 @@ subroutine recvpkt(nsam,nblock2,userx_no,k,buf4,buf8)
equivalence (kd,d4) equivalence (kd,d4)
equivalence (jd,d8,yd) equivalence (jd,d8,yd)
gain=10.0**(0.05*ndb)
if(nblock2.eq.-9999) nblock2=-9998 !Silence a compiler warning if(nblock2.eq.-9999) nblock2=-9998 !Silence a compiler warning
if(nsam.eq.-1) then if(nsam.eq.-1) then
! Move data from the UDP packet buffer into array dd(). ! Move data from the UDP packet buffer into array dd().
@ -23,15 +24,15 @@ subroutine recvpkt(nsam,nblock2,userx_no,k,buf4,buf8)
do i=1,174 !One RF channel, r*4 data do i=1,174 !One RF channel, r*4 data
k=k+1 k=k+1
d8=buf8(i) d8=buf8(i)
dd(1,k)=yd(1) dd(1,k)=yd(1)*gain
dd(2,k)=yd(2) dd(2,k)=yd(2)*gain
enddo enddo
else if(userx_no.eq.1) then else if(userx_no.eq.1) then
do i=1,348 !One RF channel, i*2 data do i=1,348 !One RF channel, i*2 data
k=k+1 k=k+1
d4=buf4(i) d4=buf4(i)
dd(1,k)=kd(1) dd(1,k)=kd(1)*gain
dd(2,k)=kd(2) dd(2,k)=kd(2)*gain
enddo enddo
endif endif
else else
@ -39,12 +40,12 @@ subroutine recvpkt(nsam,nblock2,userx_no,k,buf4,buf8)
do i=1,nsam !One RF channel, r*4 data do i=1,nsam !One RF channel, r*4 data
k=k+1 k=k+1
d4=buf4(i) d4=buf4(i)
dd(1,k)=kd(1) dd(1,k)=kd(1)*gain
dd(2,k)=kd(2) dd(2,k)=kd(2)*gain
k=k+1 k=k+1
dd(1,k)=kd(1) dd(1,k)=kd(1)*gain
dd(2,k)=kd(2) dd(2,k)=kd(2)*gain
enddo enddo
endif endif
endif endif

2
qmap/soundin.cpp
View File

@ -208,7 +208,7 @@ void SoundInThread::inputUDP()
// If buffer will not overflow, move data into datcom_ // If buffer will not overflow, move data into datcom_
if ((k+iz) <= 60*96000) { if ((k+iz) <= 60*96000) {
int nsam=-1; int nsam=-1;
recvpkt_(&nsam, &b.iblk, &b.nrx, &k, b.d8, b.d8); recvpkt_(&nsam, &b.iblk, &b.nrx, &k, b.d8, b.d8, &m_dB);
datcom_.fcenter=b.cfreq + m_fAdd; datcom_.fcenter=b.cfreq + m_fAdd;
} }
m_hsym=(k-2048)/14400; //14400 = 0.15 * 96000 m_hsym=(k-2048)/14400; //14400 = 0.15 * 96000

3
qmap/soundin.h
View File

@ -67,7 +67,8 @@ private:
}; };
extern "C" { extern "C" {
void recvpkt_(int* nsam, quint16* iblk, qint8* nrx, int* k, double s1[], double s2[]); void recvpkt_(int* nsam, quint16* iblk, qint8* nrx, int* k,
double s1[], double s2[], int* ndb);
} }
#endif // SOUNDIN_H #endif // SOUNDIN_H