Increase width of "result" from 60 to 64, to accommodate longest messages.

This commit is contained in:
Joe Taylor 2024-01-18 16:25:08 -05:00
parent 3a5da4b2ac
commit b3d8750949
6 changed files with 6 additions and 7 deletions

View File

@ -93,7 +93,7 @@ extern struct {
int nQDecoderDone; //1 for real-time decodes, 2 for data from disk
int nWDecoderBusy; //Set to 1 when WSJT-X decoder is busy
int nWTransmitting; //Set to TRperiod when WSJT-X is transmitting
char result[50][60]; //Staging area for QMAP decodes
char result[50][64]; //Staging area for QMAP decodes
} decodes_;
extern struct {

View File

@ -10,7 +10,7 @@ subroutine decode0(dd,ss,savg)
logical*1 bAlso30
character mycall*12,hiscall*12,mygrid*6,hisgrid*6,datetime*20
character mycall0*12,hiscall0*12,hisgrid0*6
character*60 result
character*64 result
common/decodes/ndecodes,ncand,nQDecoderDone,nWDecoderBusy, &
nWTransmitting,result(50)
common/npar/fcenter,nutc,fselected,mousedf,mousefqso,nagain, &

View File

@ -26,7 +26,7 @@ subroutine q65b(nutc,nqd,fcenter,nfcal,nfsample,ikhz,mousedf,ntol, &
character*6 hisgrid
character*4 grid4
character*3 csubmode
character*60 result,ctmp
character*64 result,ctmp
character*20 datetime,datetime1
common/decodes/ndecodes,ncand,nQDecoderDone,nWDecoderBusy, &
nWTransmitting,result(50)
@ -118,7 +118,6 @@ subroutine q65b(nutc,nqd,fcenter,nfcal,nfsample,ikhz,mousedf,ntol, &
do i=1,ndecodes !Check for dupes
i1=index(result(i)(42:),trim(msg0))
if(bClickDecode) print*,'C',i,i1,result(i)(42:),trim(msg0)
! If this is a dupe, don't save it again:
if(i1.gt.0 .and. (.not.bClickDecode .or. nhsym.eq.390)) go to 800
enddo

View File

@ -20,7 +20,7 @@ subroutine q65c
character*12 mycall,hiscall
character*6 mygrid,hisgrid
character*20 datetime
character*60 result
character*64 result
common/decodes/ndecodes,ncand,nQDecoderDone,nWDecoderBusy, &
nWTransmitting,result(50)
common/datcom2/dd(2,5760000),ss(400,NFFT),savg(NFFT),nparams0

View File

@ -27,7 +27,7 @@ subroutine qmapa(dd,ss,savg,newdat,nutc,fcenter,ntol,nfa,nfb, &
logical*1 bAlso30,bClickDecode
character mycall*12,hiscall*12,hisgrid*6
type(candidate) :: cand(MAX_CANDIDATES)
character*60 result
character*64 result
character*20 datetime
common/decodes/ndecodes,ncand,nQDecoderDone,nWDecoderBusy, &
nWTransmitting,result(50)

View File

@ -225,7 +225,7 @@ struct {
int nQDecoderDone; //QMAP decoder is finished (0 or 1)
int nWDecoderBusy; //WSJT-X decoder is busy (0 or 1)
int nWTransmitting; //WSJT-X is transmitting (0 or 1)
char result[50][60]; //Decodes as character*60 arrays
char result[50][64]; //Decodes as character*64 arrays
} qmapcom;
int* ipc_qmap;