mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2025-10-30 12:30:23 -04:00
7369062c4a
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@2635 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
31 lines
501 B
Fortran
31 lines
501 B
Fortran
subroutine entail(dgen,data0)
|
|
|
|
! Move 72-bit packed data from 6-bit to 8-bit symbols and add a zero tail.
|
|
integer dgen(13)
|
|
integer*1 data0(13)
|
|
|
|
i4=0
|
|
k=0
|
|
m=0
|
|
do i=1,12
|
|
n=dgen(i)
|
|
do j=1,6
|
|
k=k+1
|
|
i4=i4+i4+iand(1,ishft(n,j-6))
|
|
i4=iand(i4,255)
|
|
if(k.eq.8) then
|
|
m=m+1
|
|
if(i4.gt.127) i4=i4-256
|
|
data0(m)=i4
|
|
k=0
|
|
endif
|
|
enddo
|
|
enddo
|
|
do m=10,13
|
|
data0(m)=0
|
|
enddo
|
|
|
|
return
|
|
end subroutine entail
|
|
|