pkc.f File Reference

Encode a character string within an integer array. More...

Go to the source code of this file.

Functions/Subroutines
subroutine	pkc (CHR, NCHR, IBAY, IBIT)
	This subroutine encodes a character string within a specified number of bits of an integer array, starting at the bit immediately after a specified bit within the array. More...

Detailed Description

Encode a character string within an integer array.

Definition in file pkc.f.

Function/Subroutine Documentation

subroutine pkc	(	character*(*)	CHR,
			NCHR,
		dimension(*)	IBAY,
			IBIT
	)

This subroutine encodes a character string within a specified number of bits of an integer array, starting at the bit immediately after a specified bit within the array.

Author

J. Woollen

Date

1994-01-06

Parameters

[in]	CHR	– character*(*): String to be encoded
[in]	NCHR	– integer: Number of bytes of IBAY within which to encode CHR (i.e. the number of characters in CHR)
[out]	IBAY	– integer(*): Array containing encoded CHR
[in,out]	IBIT	– integer: Bit pointer within IBAY On input, IBIT points to the bit within IBAY after which to begin encoding CHR. On output, IBIT points to the last bit of IBAY which contains the encoded CHR.

Remarks

• This subroutine is the logical inverse of subroutine upc().
• On input, there is no requirement that IBIT must point to the first bit of a byte within IBAY. Correspondingly, on output there is no guarantee that the NCHR characters of CHR will be aligned on byte boundaries when encoded within IBAY.

Program history log:

Date	Programmer	Comments
1994-01-06	J. Woollen	Original author
1998-07-08	J. Woollen	Replaced call to Cray library routine ABORT with call to new internal routine bort()
2003-11-04	J. Woollen	Modified to be endian-independent
2003-11-04	J. Ator	Added documentation
2003-11-04	S. Bender	Added remarks and routine interdependencies
2003-11-04	D. Keyser	Unified/portable for WRF; added documentation; outputs more complete diagnostic info when routine terminates abnormally; use bort2() instead of bort()
2004-08-18	J. Ator	Modified to be compatible with writlc()

Definition at line 40 of file pkc.f.

References ipkm(), irev(), and iupm().

Referenced by cmsgini(), dxmini(), msgini(), msgwrt(), stndrd(), wrcmps(), wrdxtb(), writlc(), and wrtree().