mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2025-10-30 20:40:28 -04:00
c470611cc9
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8446 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
18 lines
330 B
Fortran
18 lines
330 B
Fortran
subroutine unpacktext2(n1,ng,msg)
|
|
|
|
character*22 msg
|
|
real*8 dn
|
|
character*41 c
|
|
data c/'0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ +./?'/
|
|
|
|
msg=' '
|
|
dn=32768.d0*n1 + ng
|
|
do i=8,1,-1
|
|
j=mod(dn,41.d0)
|
|
msg(i:i)=c(j+1:j+1)
|
|
dn=dn/41.d0
|
|
enddo
|
|
|
|
return
|
|
end subroutine unpacktext2
|