42 SUBROUTINE upbb(NVAL,NBITS,IBIT,IBAY)
46 COMMON /hrdwrd/ nbytw,nbitw,iord(8)
63 int = ishft(
irev(ibay(nwd)),nbt)
64 int = ishft(int,nbits-nbitw)
67 jnt =
irev(ibay(nwd+1))
68 int = ior(int,ishft(jnt,lbt-2*nbitw))
subroutine upbb(NVAL, NBITS, IBIT, IBAY)
THIS SUBROUTINE UNPACKS AND RETURNS A BINARY INTEGER CONTAINED WITHIN NBITS BITS OF IBAY...
function irev(N)
THIS FUNCTION WILL, WHEN THE LOCAL MACHINE IS "LITTLE- ENDIAN" (I.E., USES A RIGHT TO LEFT SCHEME ...