49 SUBROUTINE upc(CHR,NCHR,IBAY,IBIT,CNVNULL)
53 COMMON /charac/ iascii,iatoe(0:255),ietoa(0:255)
54 COMMON /hrdwrd/ nbytw,nbitw,iord(8)
58 dimension ibay(*),ival(2)
59 equivalence(cval,ival)
69 numchr = min(nchr,len(chr))
71 CALL
upb(ival(1),8,ibay,ibit)
72 IF((ival(1).EQ.0).AND.(cnvnull))
THEN
75 chr(i:i) = cval(lb:lb)
77 IF(iascii.EQ.0) CALL
ipkm(chr(i:i),1,iatoe(
iupm(chr(i:i),8)))
subroutine upb(NVAL, NBITS, IBAY, IBIT)
THIS SUBROUTINE UNPACKS AND RETURNS A BINARY INTEGER CONTAINED WITHIN NBITS BITS OF IBAY...
function iupm(CBAY, NBITS)
THIS FUNCTION UNPACKS AND RETURNS A BINARY INTEGER WORD CONTAINED WITHIN NBITS BITS OF A CHARACTER ST...
subroutine upc(CHR, NCHR, IBAY, IBIT, CNVNULL)
THIS SUBROUTINE UNPACKS AND RETURNS A CHARACTER STRING OF LENGTH NCHR CONTAINED WITHIN NCHR BYTES OF ...
subroutine ipkm(CBAY, NBYT, N)
This subroutine encodes an integer value within a specified number of bytes of a character string...