mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-16 09:01:59 -05:00
22 lines
372 B
Fortran
22 lines
372 B
Fortran
|
subroutine packbits(dbits,nsymd,m0,sym)
|
||
|
|
|
||
|
|
! Pack 0s and 1s from dbits() into sym() with m0 bits per word.
|
||
|
|
! NB: nsymd is the number of packed output words.
|
||
|
|
|
||
|
|
integer sym(nsymd)
|
||
|
|
integer*1 dbits(*)
|
||
|
|
|
||
|
|
k=0
|
||
|
|
do i=1,nsymd
|
||
|
|
n=0
|
||
|
|
do j=1,m0
|
||
|
|
k=k+1
|
||
|
|
m=dbits(k)
|
||
|
|
n=ior(ishft(n,1),m)
|
||
|
|
enddo
|
||
|
|
sym(i)=n
|
||
|
|
enddo
|
||
|
|
|
||
|
|
return
|
||
|
|
end subroutine packbits
|