mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-13 23:51:49 -05:00
21 lines
328 B
Fortran
21 lines
328 B
Fortran
|
subroutine unpackname(n1,n2,name,len)
|
||
|
|
|
||
|
|
character*9 name
|
||
|
|
real*8 dn
|
||
|
|
|
||
|
|
dn=32768.d0*n1 + n2
|
||
|
|
len=0
|
||
|
|
do i=9,1,-1
|
||
|
|
j=mod(dn,27.d0)
|
||
|
|
if(j.ge.1) then
|
||
|
|
name(i:i)=char(64+j)
|
||
|
|
len=len+1
|
||
|
|
else
|
||
|
|
name(i:i)=' '
|
||
|
|
endif
|
||
|
|
dn=dn/27.d0
|
||
|
|
enddo
|
||
|
|
|
||
|
|
return
|
||
|
|
end subroutine unpackname
|