pkb8.f File Reference

Encode an 8-byte integer value within an integer array. More...

Go to the source code of this file.

Functions/Subroutines
subroutine	pkb8 (nval, nbits, ibay, ibit)
	This subroutine encodes an 8-byte integer value 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 an 8-byte integer value within an integer array.

Author

J. Woollen

Date

2022-05-06

Definition in file pkb8.f.

Function/Subroutine Documentation

pkb8()

subroutine pkb8	(	integer(8)	nval,
		integer(4)	nbits,
		integer(4), dimension(*)	ibay,
		integer(4)	ibit
	)

This subroutine encodes an 8-byte integer value within a specified number of bits of an integer array, starting at the bit immediately after a specified bit within the array.

This subroutine will not work properly if NBITS is less than 0 or greater than 64, as determined via an internal call to subroutine wrdlen().

This subroutine is the logical inverse of subroutine up8().

Parameters

[in]	NVAL	- integer*8: Value to be encoded.
[in]	NBITS	- integer: Number of bits of IBAY within which to encode NVAL. Must be between 0 and 64.
[out]	IBAY	- integer(*): Array containing encoded NVAL.
[in,out]	IBIT	- integer: Bit pointer within IBAY On input, IBIT points to the bit within IBAY after which to begin encoding NVAL. On output, IBIT points to the last bit of IBAY which contains the encoded NVAL.

Author

J. Woollen

Date

2022-05-06

Definition at line 27 of file pkb8.f.

References bort(), and pkb().

Referenced by wrcmps(), and wrtree().