comicsansg/ft8d
1
0
Fork 0
mirror of https://github.com/pavel-demin/ft8d.git synced 2025-02-21 04:58:45 -05:00
Code Issues Packages Projects Releases Wiki Activity

set msgcall size to 6

Browse Source
This commit is contained in:
Pavel Demin 2018-10-18 14:34:24 +02:00
parent cc368b7d6d
commit 7708881e6b
4 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extractmessage174.f90
View File

@ -3,7 +3,7 @@ subroutine extractmessage174(decoded,msgreceived,msgcall,msggrid,ncrcflag)
use crc use crc
use packjt use packjt
character msgreceived*22, msgcall*12, msggrid*4 character msgreceived*22, msgcall*6, msggrid*4
character*87 cbits character*87 cbits
integer*1 decoded(87) integer*1 decoded(87)
integer*1, target:: i1Dec8BitBytes(11) integer*1, target:: i1Dec8BitBytes(11)

2
ft8b.f90
View File

@ -5,7 +5,7 @@ subroutine ft8b(dd0,newdat,nQSOProgress,nfqso,nftx,ndepth,lapon,lapcqonly, &
use crc use crc
include 'ft8_params.f90' include 'ft8_params.f90'
parameter(NP2=2812) parameter(NP2=2812)
character msgcall*12,msggrid*4,message*22 character msgcall*6,msggrid*4,message*22
real a(5) real a(5)
real s1(0:7,ND),s2(0:7,NN),s1sort(8*ND) real s1(0:7,ND),s2(0:7,NN),s1sort(8*ND)
real ps(0:7),psl(0:7) real ps(0:7),psl(0:7)

4
ft8d.f90
View File

@ -4,7 +4,7 @@ program ft8d
include 'ft8_params.f90' include 'ft8_params.f90'
character infile*80,date*6 character infile*80,date*6
character msgcall*12, msggrid*4 character msgcall*6,msggrid*4
real s(NFFT1,NHSYM) real s(NFFT1,NHSYM)
real sbase(NFFT1) real sbase(NFFT1)
real candidate(3,200) real candidate(3,200)
@ -59,7 +59,7 @@ program ft8d
if(nbadcrc.eq.0) then if(nbadcrc.eq.0) then
write(*,1004) date,nutc+15*(ipart-1),min(sync,999.0),nint(xsnr), & write(*,1004) date,nutc+15*(ipart-1),min(sync,999.0),nint(xsnr), &
xdt,nint(f1-2000+dialfreq),msgcall,msggrid xdt,nint(f1-2000+dialfreq),msgcall,msggrid
1004 format(a6,1x,i6,f6.1,i4,f6.2,i9,1x,a12,1x,a4) 1004 format(a6,1x,i6,f6.1,i4,f6.2,i9,1x,a6,1x,a4)
endif endif
enddo enddo
enddo ! ipart loop enddo ! ipart loop

4
packjt.f90
View File

@ -494,7 +494,7 @@ subroutine packcall(callsign,ncall,text)
parameter (NBASE=37*36*10*27*27*27) parameter (NBASE=37*36*10*27*27*27)
parameter (NGBASE=180*180) parameter (NGBASE=180*180)
integer dat(:) integer dat(:)
character c1*12,c2*12,grid*4,msg*22,msgcall*12,msggrid*4,grid6*6,psfx*4,junk2*4 character c1*12,c2*12,grid*4,msg*22,msgcall*6,msggrid*4,grid6*6,psfx*4,junk2*4
logical cqnnn logical cqnnn
cqnnn=.false. cqnnn=.false.
@ -526,7 +526,7 @@ subroutine packcall(callsign,ncall,text)
endif endif
call unpackcall(nc2,c2,junk1,junk2) call unpackcall(nc2,c2,junk1,junk2)
msgcall=c2 msgcall=c2(:6)
msggrid=' ' msggrid=' '
if(ng.lt.32400 .and. ng.ne.533) then if(ng.lt.32400 .and. ng.ne.533) then
dlat=mod(ng,180)-90 dlat=mod(ng,180)-90