mirror of https://github.com/pavel-demin/ft8d.git
update unpacktext in packjt.f90
This commit is contained in:
parent
df334d9ec7
commit
7e0d334ca4
|
@ -640,13 +640,15 @@ subroutine packcall(callsign,ncall,text)
|
||||||
return
|
return
|
||||||
end subroutine packtext
|
end subroutine packtext
|
||||||
|
|
||||||
subroutine unpacktext(nc1,nc2,nc3,msg)
|
subroutine unpacktext(nc1a,nc2a,nc3a,msg)
|
||||||
|
|
||||||
character*22 msg
|
character*22 msg
|
||||||
character*44 c
|
character*44 c
|
||||||
data c/'0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ +-./?'/
|
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
|
if(iand(nc1,1).ne.0) nc3=nc3+32768
|
||||||
nc1=nc1/2
|
nc1=nc1/2
|
||||||
if(iand(nc2,1).ne.0) nc3=nc3+65536
|
if(iand(nc2,1).ne.0) nc3=nc3+65536
|
||||||
|
|
Loading…
Reference in New Issue