mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-10-31 15:47:10 -04:00
c470611cc9
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8446 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
23 lines
431 B
Fortran
23 lines
431 B
Fortran
subroutine packtext2(msg,n1,ng)
|
|
|
|
character*8 msg
|
|
real*8 dn
|
|
character*41 c
|
|
data c/'0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ +./?'/
|
|
|
|
dn=0.
|
|
do i=1,8
|
|
do j=1,41
|
|
if(msg(i:i).eq.c(j:j)) go to 10
|
|
enddo
|
|
j=37
|
|
10 j=j-1 !Codes should start at zero
|
|
dn=41.d0*dn + j
|
|
enddo
|
|
|
|
ng=mod(dn,32768.d0)
|
|
n1=(dn-ng)/32768.d0
|
|
|
|
return
|
|
end subroutine packtext2
|