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.

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.

Author

J. Woollen

Date

2022-05-06

Parameters

[in]	NVAL	– integer*8: Value to be encoded
[in]	NBITS	– integer: Number of bits of IBAY within which to encode NVAL
[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.

Remarks

• This subroutine is the logical inverse of subroutine up8().
• 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().
  

Program history log:

Date	Programmer	Comments
2022-05-06	J. Woollen	Original author

Definition at line 35 of file pkb8.f.

References bort(), and pkb().

Referenced by wrcmps(), and wrtree().