40 SUBROUTINE pkc(CHR,NCHR,IBAY,IBIT)
42 COMMON /charac/ iascii,iatoe(0:255),ietoa(0:255)
43 COMMON /hrdwrd/ nbytw,nbitw,iord(8)
47 dimension ibay(*),ival(2)
48 equivalence(cval,ival)
62 IF(i.LE.len(chr))
THEN
71 IF(iascii.EQ.0) CALL
ipkm(cval(lb),1,ietoa(
iupm(cval(lb),8)))
75 int = ishft(ival(1),nbitw-nbit)
77 msk = ishft( -1,nbitw-nbit)
79 ibay(nwd) =
irev(ior(iand(
irev(ibay(nwd)),not(msk)),int))
80 IF(nbt+nbit.GT.nbitw)
THEN
87 int = ishft(ival(1),2*nbitw-(nbt+nbit))
88 msk = ishft( -1,2*nbitw-(nbt+nbit))
89 ibay(nwd+1) =
irev(ior(iand(
irev(ibay(nwd+1)),not(msk)),int))
subroutine pkc(CHR, NCHR, IBAY, IBIT)
This subroutine encodes a character string within a specified number of bits of an integer array...
function irev(N)
THIS FUNCTION WILL, WHEN THE LOCAL MACHINE IS "LITTLE- ENDIAN" (I.E., USES A RIGHT TO LEFT SCHEME ...
function iupm(CBAY, NBITS)
THIS FUNCTION UNPACKS AND RETURNS A BINARY INTEGER WORD CONTAINED WITHIN NBITS BITS OF A CHARACTER ST...
subroutine ipkm(CBAY, NBYT, N)
This subroutine encodes an integer value within a specified number of bytes of a character string...