set msgcall size to 6

extractmessage174.f90

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

ft8b.f90

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

ft8d.f90

@@ -4,7 +4,7 @@ program ft8d
 
   include 'ft8_params.f90'
   character infile*80,date*6
-  character msgcall*12, msggrid*4
+  character msgcall*6,msggrid*4
   real s(NFFT1,NHSYM)
   real sbase(NFFT1)
   real candidate(3,200)
@@ -59,7 +59,7 @@ program ft8d
       if(nbadcrc.eq.0) then
         write(*,1004) date,nutc+15*(ipart-1),min(sync,999.0),nint(xsnr), &
             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
     enddo
   enddo ! ipart loop

packjt.f90

@@ -494,7 +494,7 @@ subroutine packcall(callsign,ncall,text)
    parameter (NBASE=37*36*10*27*27*27)
    parameter (NGBASE=180*180)
    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
 
    cqnnn=.false.
@@ -526,7 +526,7 @@ subroutine packcall(callsign,ncall,text)
    endif
 
    call unpackcall(nc2,c2,junk1,junk2)
-   msgcall=c2
+   msgcall=c2(:6)
    msggrid='    '
    if(ng.lt.32400 .and. ng.ne.533) then
       dlat=mod(ng,180)-90