mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-15 08:31:57 -05:00
23 lines
379 B
Fortran
23 lines
379 B
Fortran
|
subroutine unpacktext77(c71,c13)
|
||
|
|
|
||
|
|
real*16 q,q1
|
||
|
|
integer*8 n1,n2
|
||
|
|
character*13 c13
|
||
|
|
character*71 c71
|
||
|
|
character*42 c
|
||
|
|
data c/' 0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ+-./?'/
|
||
|
|
|
||
|
|
read(c71,1001) n1,n2
|
||
|
|
1001 format(b63,b8)
|
||
|
|
q=n1*256.q0 + n2
|
||
|
|
|
||
|
|
do i=13,1,-1
|
||
|
|
q1=mod(q,42.q0)
|
||
|
|
j=q1+1.q0
|
||
|
|
c13(i:i)=c(j:j)
|
||
|
|
q=(q-q1)/42.q0
|
||
|
|
enddo
|
||
|
|
|
||
|
|
return
|
||
|
|
end subroutine unpacktext77
|