From 26950346395fd5a91cc86bb229cdc43075330ff4 Mon Sep 17 00:00:00 2001
From: Pavel Demin <pavel-demin@outlook.com>
Date: Tue, 16 Oct 2018 00:00:22 +0200
Subject: [PATCH] fix msgcall

---
 packjt.f90 | 1 +
 1 file changed, 1 insertion(+)

diff --git a/packjt.f90 b/packjt.f90
index 5009ec8..22f7311 100644
--- a/packjt.f90
+++ b/packjt.f90
@@ -526,6 +526,7 @@ subroutine packcall(callsign,ncall,text)
    endif
 
    call unpackcall(nc2,c2,junk1,junk2)
+   msgcall=c2
    msggrid='    '
    if(ng.lt.32400 .and. ng.ne.533) then
       dlat=mod(ng,180)-90