More cleanup: Q65 SNRs, reported irc values.

This commit is contained in:
Joe Taylor 2020-10-27 16:08:50 -04:00
parent bbad483aaf
commit 494a8fc9a7
2 changed files with 3 additions and 3 deletions

View File

@ -118,6 +118,7 @@ contains
endif
decoded=' '
if(irc.ge.0) then
irc=0 !### TEMPORARY ??? ###
write(c77,1000) dat4
1000 format(12b6.6,b5.5)
call unpack77(c77,0,decoded,unpk77_success) !Unpack to get msgsent
@ -125,7 +126,7 @@ contains
call this%callback(nutc,sync,nsnr,xdt,f0,decoded, &
irc,qual,ntrperiod,fmid,w50)
else
nsnr=db(snr1) - 32.0
nsnr=db(snr1) - 35.0
!### TEMPORARY? ###
call this%callback(nutc,sync,nsnr,xdt,f0,decoded, &
irc,qual,ntrperiod,fmid,w50)

View File

@ -91,8 +91,7 @@ void q65_dec_(float s3[], int APmask[], int APsymbols[], int* submode,
*snr2500 = -31.0;
if(rc<0) return;
// rc = q65_esnodb_fastfading(&codec,&esnodb,ydec,s3);
rc = q65_esnodb(&codec,&esnodb,ydec,s3);
rc = q65_esnodb_fastfading(&codec,&esnodb,ydec,s3);
if(rc<0) {
printf("error in q65_esnodb_fastfading()\n");
exit(0);