30 SUBROUTINE pkc(CHR,NCHR,IBAY,IBIT)
32 COMMON /hrdwrd/ nbytw,nbitw,iord(8)
36 dimension ibay(*),ival(2)
37 equivalence(cval,ival)
51 IF(i.LE.len(chr))
THEN
59 int = ishft(ival(1),nbitw-nbit)
61 msk = ishft( -1,nbitw-nbit)
63 ibay(nwd) =
irev(ior(iand(
irev(ibay(nwd)),not(msk)),int))
64 IF(nbt+nbit.GT.nbitw)
THEN
71 int = ishft(ival(1),2*nbitw-(nbt+nbit))
72 msk = ishft( -1,2*nbitw-(nbt+nbit))
73 ibay(nwd+1) =
irev(ior(iand(
irev(ibay(nwd+1)),not(msk)),int))
function irev(N)
This function will, when the local machine is "little-endian" (i.e., when it uses a right to left sch...
subroutine pkc(CHR, NCHR, IBAY, IBIT)
Encode a character string within an integer array.