33 COMMON /charac/ iascii,iatoe(0:255),ietoa(0:255)
49 IF(iascii.EQ.0) CALL
ipkm(str(i:i),1,iatoe(
iupm(str(i:i),8)))
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...
subroutine chrtrna(STR, CHR, N)
This subroutine copies a specified number of characters from an array of characters into a character ...