mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-07-23 16:13:00 -04:00
c470611cc9
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8446 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
31 lines
512 B
Fortran
31 lines
512 B
Fortran
subroutine unpack50(dat,n1,n2)
|
|
|
|
integer*1 dat(11)
|
|
|
|
i=dat(1)
|
|
i4=iand(i,255)
|
|
n1=ishft(i4,20)
|
|
i=dat(2)
|
|
i4=iand(i,255)
|
|
n1=n1 + ishft(i4,12)
|
|
i=dat(3)
|
|
i4=iand(i,255)
|
|
n1=n1 + ishft(i4,4)
|
|
i=dat(4)
|
|
i4=iand(i,255)
|
|
n1=n1 + iand(ishft(i4,-4),15)
|
|
n2=ishft(iand(i4,15),18)
|
|
i=dat(5)
|
|
i4=iand(i,255)
|
|
n2=n2 + ishft(i4,10)
|
|
i=dat(6)
|
|
i4=iand(i,255)
|
|
n2=n2 + ishft(i4,2)
|
|
i=dat(7)
|
|
i4=iand(i,255)
|
|
n2=n2 + iand(ishft(i4,-6),3)
|
|
|
|
return
|
|
end subroutine unpack50
|
|
|