From 7708881e6b8bc96f6eda675303a58e563a20455f Mon Sep 17 00:00:00 2001
From: Pavel Demin <pavel-demin@outlook.com>
Date: Thu, 18 Oct 2018 14:34:24 +0200
Subject: [PATCH] set msgcall size to 6

---
 extractmessage174.f90 | 2 +-
 ft8b.f90              | 2 +-
 ft8d.f90              | 4 ++--
 packjt.f90            | 4 ++--
 4 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/extractmessage174.f90 b/extractmessage174.f90
index f6e263c..fd8fafb 100644
--- a/extractmessage174.f90
+++ b/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)
diff --git a/ft8b.f90 b/ft8b.f90
index 5c024d9..335db2f 100644
--- a/ft8b.f90
+++ b/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)
diff --git a/ft8d.f90 b/ft8d.f90
index 62c708b..46d5ec7 100644
--- a/ft8d.f90
+++ b/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
diff --git a/packjt.f90 b/packjt.f90
index 22f7311..25b6012 100644
--- a/packjt.f90
+++ b/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