From 7e0d334ca43dc027955f2d752e198600828189c8 Mon Sep 17 00:00:00 2001
From: Pavel Demin <pavel-demin@outlook.com>
Date: Tue, 23 Oct 2018 08:54:07 +0200
Subject: [PATCH] update unpacktext in packjt.f90

---
 packjt.f90 | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/packjt.f90 b/packjt.f90
index 25b6012..c9b4001 100644
--- a/packjt.f90
+++ b/packjt.f90
@@ -640,13 +640,15 @@ subroutine packcall(callsign,ncall,text)
    return
  end subroutine packtext
 
- subroutine unpacktext(nc1,nc2,nc3,msg)
+ subroutine unpacktext(nc1a,nc2a,nc3a,msg)
 
    character*22 msg
    character*44 c
    data c/'0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ +-./?'/
 
-   nc3=iand(nc3,32767)                      !Remove the "plain text" bit
+   nc1=nc1a
+   nc2=nc2a
+   nc3=iand(nc3a,32767)                    !Remove the "plain text" bit
    if(iand(nc1,1).ne.0) nc3=nc3+32768
    nc1=nc1/2
    if(iand(nc2,1).ne.0) nc3=nc3+65536