WSJT-X/lib/qso50/unpackname.f90

21 lines
328 B
Fortran
Raw Permalink Normal View History

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