Extract or store arbitrary size values between packed bit string and integer or real scalars, or integer arrays. More...

Functions/Subroutines
subroutine	g2_gbytec (in, iout, iskip, nbits)
	Extract one arbitrary size big-endian value (up to 32 bits) from a packed bit string into one element of an integer array. More...

subroutine	g2_gbytec1 (in, siout, iskip, nbits)
	Extract one arbitrary size big-endian integer value (up to 32 bits) from a packed bit string into a scalar integer. More...

subroutine	g2_gbytec8 (in, iout, iskip, nbits)
	Extract one arbitrary sized (up to 64-bits) values from a packed bit string, right justifying each value in the unpacked array. More...

subroutine	g2_gbytesc (in, iout, iskip, nbits, nskip, n)
	Extract arbitrary size big-endian integer values (up to 32 bits each) from a packed bit string. More...

subroutine	g2_gbytesc8 (in, iout, iskip, nbits, nskip, n)
	Extract arbitrary sized (up to 64-bits) values from a packed bit string, right justifying each value in the unpacked array. More...

subroutine	g2_gbytescr (in, rout, iskip, nbits, nskip, n)
	Extract big-endian floating-point values (32 bits each) from a packed bit string. More...

subroutine	g2_sbytec (out, in, iskip, nbits)
	Put one arbitrary sized (up to 32 bits) value from an integer array, into a packed bit string, in big-endian format. More...

subroutine	g2_sbytec1 (out, in, iskip, nbits)
	Put one arbitrary sized (up to 32 bits) values from an integer scalar into a packed bit string, in big-endian format. More...

subroutine	g2_sbytec8 (out, in, iskip, nbits)
	Put one arbitrary sized (up to 64 bits) values into a packed bit string, taking the low order bits from each value in the unpacked array. More...

subroutine	g2_sbytesc (out, in, iskip, nbits, nskip, n)
	Put arbitrary size (up to 32 bits each) integer values into a packed bit string in big-endian order. More...

subroutine	g2_sbytesc8 (out, in, iskip, nbits, nskip, n)
	Put arbitrary sized (up to 64 bits each) values into a packed bit string, taking the low order bits from each value in the unpacked array. More...

subroutine	g2_sbytescr (out, rin, iskip, nbits, nskip, n)
	Put real values into a packed bit string in big-endian order. More...

subroutine	mkieee (a, rieee, num)
	Copy an array of real to an array of 32-bit IEEE floating points. More...

subroutine	rdieee (rieee, a, num)
	Copy array of 32-bit IEEE floating point values to local floating point representation. More...

subroutine	rdieeec (cieee, a, num)
	Copy array of 32-bit IEEE floating point values stored in char array to local floating point representation. More...

Detailed Description

Extract or store arbitrary size values between packed bit string and integer or real scalars, or integer arrays.

Author: Stephen Gilbert

Date: 2004-04-27

Definition in file g2bytes.F90.

Function/Subroutine Documentation

◆ g2_gbytec()

subroutine g2_gbytec	(	character1, dimension(), intent(in)	in,
		integer, dimension(*), intent(inout)	iout,
		integer, intent(in)	iskip,
		integer, intent(in)	nbits
	)

Extract one arbitrary size big-endian value (up to 32 bits) from a packed bit string into one element of an integer array.

This should be used converting one integer*4 value into an array element. If more values need to be converted, use g2_sbytesc(). To convert into a scalar integer, use g2_gbytec1().

Parameters

[in]	in	Array input.
[in,out]	iout	Unpacked array output.
[in]	iskip	Initial number of bits to skip.
[in]	nbits	Number of bits of each integer in IN to take. Must be 32 or less.

Author: Stephen Gilbert

Date: 2004-04-27

Definition at line 20 of file g2bytes.F90.

References g2_gbytesc().

Referenced by addfield(), addgrid(), addlocal(), comunpack(), gb_info(), getfield(), getgb2l2(), getgb2r2(), getgb2rp2(), getgb2s2(), getlocal(), gettemplates(), gf_getfld(), gf_unpack1(), gf_unpack2(), gf_unpack3(), gf_unpack4(), gf_unpack5(), gf_unpack6(), gf_unpack7(), gribend(), gribinfo(), ix2gb2(), skgb8(), unpack3(), unpack4(), unpack5(), and unpack6().

◆ g2_gbytec1()

subroutine g2_gbytec1	(	character1, dimension(), intent(in)	in,
		integer, intent(inout)	siout,
		integer, intent(in)	iskip,
		integer, intent(in)	nbits
	)

Extract one arbitrary size big-endian integer value (up to 32 bits) from a packed bit string into a scalar integer.

This should be used converting one integer*4 value. If more values need to be converted, use g2_sbytesc().

Parameters

[in]	in	Character array input.
[in,out]	siout	Unpacked scalar integer output.
[in]	iskip	Initial number of bits to skip.
[in]	nbits	Number of bits of each integer to take. Must be 32 or less.

Author: Stephen Gilbert

Date: 2004-04-27

Definition at line 42 of file g2bytes.F90.

References g2_gbytesc().

◆ g2_gbytec8()

subroutine g2_gbytec8	(	character1, dimension(), intent(in)	in,
		integer (kind = 8), dimension(*), intent(inout)	iout,
		integer, intent(in)	iskip,
		integer, intent(in)	nbits
	)

Extract one arbitrary sized (up to 64-bits) values from a packed bit string, right justifying each value in the unpacked array.

This should be used when input array in has only one element. If in has more elements, use g2_sbytesc().

Parameters

[in]	in	Array input.
[in,out]	iout	Unpacked array output.
[in]	iskip	Initial number of bits to skip.
[in]	nbits	Number of bits of each integer in IN to take. Must be 64 or less.

Author: Stephen Gilbert

Date: 2004-04-27

Definition at line 151 of file g2bytes.F90.

References g2_gbytesc8().

Referenced by getgb2l2(), getgb2r2(), and getgb2rp2().

◆ g2_gbytesc()

subroutine g2_gbytesc	(	character1, dimension(), intent(in)	in,
		integer, dimension(*), intent(out)	iout,
		integer, intent(in)	iskip,
		integer, intent(in)	nbits,
		integer, intent(in)	nskip,
		integer, intent(in)	n
	)

Extract arbitrary size big-endian integer values (up to 32 bits each) from a packed bit string.

Parameters

[in]	in	array input
[out]	iout	unpacked array output
[in]	iskip	initial number of bits to skip
[in]	nbits	Number of bits of each integer in IN to take. Must be 32 or less.
[in]	nskip	Additional number of bits to skip on each iteration.
[in]	n	Number of integers to extract.

Author: Stephen Gilbert

Date: 2004-04-27

Definition at line 93 of file g2bytes.F90.

Referenced by comunpack(), g2_gbytec(), g2_gbytec1(), g2_gbytescr(), gf_unpack3(), gf_unpack6(), pngunpack(), simunpack(), specunpack(), unpack3(), and unpack6().

◆ g2_gbytesc8()

subroutine g2_gbytesc8	(	character1, dimension(), intent(in)	in,
		integer (kind = 8), dimension(*), intent(out)	iout,
		integer, intent(in)	iskip,
		integer, intent(in)	nbits,
		integer, intent(in)	nskip,
		integer, intent(in)	n
	)

Extract arbitrary sized (up to 64-bits) values from a packed bit string, right justifying each value in the unpacked array.

Parameters

[in]	in	array input
[out]	iout	unpacked array output
[in]	iskip	initial number of bits to skip
[in]	nbits	Number of bits of each integer in IN to take. Must be 64 or less.
[in]	nskip	Additional number of bits to skip on each iteration.
[in]	n	Number of integers to extract.

Author: Stephen Gilbert

Date: 2004-04-27

Definition at line 172 of file g2bytes.F90.

Referenced by g2_gbytec8().

◆ g2_gbytescr()

subroutine g2_gbytescr	(	character1, dimension(), intent(in)	in,
		real (kind = 4), dimension(*), intent(out)	rout,
		integer, intent(in)	iskip,
		integer, intent(in)	nbits,
		integer, intent(in)	nskip,
		integer, intent(in)	n
	)

Extract big-endian floating-point values (32 bits each) from a packed bit string.

Parameters

[in]	in	array input
[out]	rout	unpacked array output
[in]	iskip	initial number of bits to skip
[in]	nbits	Number of bits of each real in IN to take. Must be 32.
[in]	nskip	Additional number of bits to skip on each
[in]	n	Number of floats to extract.

Author: Stephen Gilbert

Date: 2004-04-27

Definition at line 67 of file g2bytes.F90.

References g2_gbytesc().

Referenced by gf_unpack4(), and unpack4().

◆ g2_sbytec()

subroutine g2_sbytec	(	character1, dimension(), intent(inout)	out,
		integer, dimension(*), intent(in)	in,
		integer, intent(in)	iskip,
		integer, intent(in)	nbits
	)

Put one arbitrary sized (up to 32 bits) value from an integer array, into a packed bit string, in big-endian format.

This should be used when input is an array and one value is to be packed. If more values are to be packed, use g2_sbytesc(). If packing a scalar integer, use g2_sytec1().

Parameters

[in,out]	out	packed array output
[in]	in	unpacked array input
[in]	iskip	initial number of bits to skip
[in]	nbits	Number of bits of each integer in OUT to fill.

Author: Stephen Gilbert

Date: 2004-04-27

Definition at line 237 of file g2bytes.F90.

References g2_sbytesc().

Referenced by addfield(), addgrid(), addlocal(), compack(), getgb2rp2(), gribcreate(), gribend(), ix2gb2(), misspack(), and simpack().

◆ g2_sbytec1()

subroutine g2_sbytec1	(	character1, dimension(), intent(inout)	out,
		integer, intent(in)	in,
		integer, intent(in)	iskip,
		integer, intent(in)	nbits
	)

Put one arbitrary sized (up to 32 bits) values from an integer scalar into a packed bit string, in big-endian format.

This should be used when input array in is a scalar. If an array element is to be packed, use g1_sbytec(). If more than one integer is to be packed, use g2_sbytesc().

Parameters

[in,out]	out	packed characeter array output.
[in]	in	unpacked scalar integer input.
[in]	iskip	initial number of bits to skip.
[in]	nbits	Number of bits of each integer in OUT to fill.

Author: Stephen Gilbert

Date: 2004-04-27

Definition at line 259 of file g2bytes.F90.

References g2_sbytesc().

◆ g2_sbytec8()

subroutine g2_sbytec8	(	character1, dimension(), intent(inout)	out,
		integer (kind = 8), dimension(*), intent(in)	in,
		integer, intent(in)	iskip,
		integer, intent(in)	nbits
	)

Put one arbitrary sized (up to 64 bits) values into a packed bit string, taking the low order bits from each value in the unpacked array.

This should be used when input array IN has only one element. If IN has more elements, use g2_sbytesc().

Parameters

[in,out]	out	packed array output
[in]	in	unpacked array input
[in]	iskip	initial number of bits to skip
[in]	nbits	Number of bits of each integer in OUT to fill. Must be 64 or less.

Author: Stephen Gilbert

Date: 2004-04-27

Definition at line 379 of file g2bytes.F90.

References g2_sbytesc8().

Referenced by ix2gb2().

◆ g2_sbytesc()

subroutine g2_sbytesc	(	character1, dimension(), intent(out)	out,
		integer, dimension(n), intent(in)	in,
		integer, intent(in)	iskip,
		integer, intent(in)	nbits,
		integer, intent(in)	nskip,
		integer, intent(in)	n
	)

Put arbitrary size (up to 32 bits each) integer values into a packed bit string in big-endian order.

Parameters

[out]	out	Packed character array output.
[in]	in	Integer array input.
[in]	iskip	Initial number of bits to skip.
[in]	nbits	Number of bits of each integer in OUT to fill. Must be 32 or less.
[in]	nskip	Additional number of bits to skip on each iteration.
[in]	n	Number of iterations.

Author: Stephen Gilbert

Date: 2004-04-27

Definition at line 307 of file g2bytes.F90.

Referenced by addfield(), addgrid(), compack(), g2_sbytec(), g2_sbytec1(), g2_sbytescr(), jpcpack(), misspack(), pngpack(), and simpack().

◆ g2_sbytesc8()

subroutine g2_sbytesc8	(	character1, dimension(), intent(out)	out,
		integer (kind = 8), dimension(n), intent(in)	in,
		integer, intent(in)	iskip,
		integer, intent(in)	nbits,
		integer, intent(in)	nskip,
		integer, intent(in)	n
	)

Put arbitrary sized (up to 64 bits each) values into a packed bit string, taking the low order bits from each value in the unpacked array.

Parameters

[out]	out	Packed array output.
[in]	in	Unpacked array input.
[in]	iskip	Initial number of bits to skip.
[in]	nbits	Number of bits of each integer in OUT to fill. Must be 64 or less.
[in]	nskip	Additional number of bits to skip on each iteration.
[in]	n	Number of iterations.

Author: Stephen Gilbert

Date: 2004-04-27

Definition at line 401 of file g2bytes.F90.

Referenced by g2_sbytec8().

◆ g2_sbytescr()

subroutine g2_sbytescr	(	character1, dimension(), intent(out)	out,
		real, dimension(n), intent(in)	rin,
		integer, intent(in)	iskip,
		integer, intent(in)	nbits,
		integer, intent(in)	nskip,
		integer, intent(in)	n
	)

Put real values into a packed bit string in big-endian order.

Parameters

[out]	out	Packed character array output.
[in]	rin	real array input.
[in]	iskip	Initial number of bits to skip.
[in]	nbits	Number of bits of each integer in OUT to fill. Must be 32.
[in]	nskip	Additional number of bits to skip on each iteration.
[in]	n	Number of iterations.

Author: Stephen Gilbert

Date: 2004-04-27

Definition at line 281 of file g2bytes.F90.

References g2_sbytesc().

Referenced by addfield().

◆ mkieee()

subroutine mkieee	(	real(4), dimension(num), intent(in)	a,
		real(4), dimension(num), intent(out)	rieee,
		integer, intent(in)	num
	)

Copy an array of real to an array of 32-bit IEEE floating points.

Parameters

[in]	a	Input array of floating point values.
[out]	rieee	Output array of floating point values in 32-bit IEEE format. Note that this array is always 32-bit floats, even when compiled with -d.
[in]	num	Number of floating point values to convert.

Author: Stephen Gilbert

Date: 2000-05-09

Definition at line 539 of file g2bytes.F90.

Referenced by addfield(), compack(), jpcpack(), misspack(), pngpack(), simpack(), and specpack().

◆ rdieee()

subroutine rdieee	(	real(4), dimension(num), intent(in)	rieee,
		real, dimension(num), intent(out)	a,
		integer, intent(in)	num
	)

Copy array of 32-bit IEEE floating point values to local floating point representation.

Parameters

[in]	rieee	Input array of floating point values in 32-bit IEEE format. Note that this array is always 32-bit floats, even when compiled with -d.
[out]	a	Output array of real values.
[in]	num	Number of floating point values to convert.

Author: Stephen Gilbert

Date: 2000-05-09

Definition at line 491 of file g2bytes.F90.

Referenced by comunpack(), getfield(), gf_unpack4(), gf_unpack7(), jpcunpack(), misspack(), pngunpack(), rdieeec(), simunpack(), specunpack(), and unpack4().

◆ rdieeec()

subroutine rdieeec	(	character(len = 1), dimension(*), intent(in)	cieee,
		real, dimension(num), intent(out)	a,
		integer, intent(in)	num
	)

Copy array of 32-bit IEEE floating point values stored in char array to local floating point representation.

Parameters

[in]	cieee	Input char array containing floating point values in 32-bit IEEE format.
[out]	a	Output array of real values.
[in]	num	Number of floating point values to convert.

Author: Edward Hartnett

Date: Mar 12, 2024

Definition at line 469 of file g2bytes.F90.

References rdieee().

Referenced by specunpack().

Functions/Subroutines

Detailed Description

Function/Subroutine Documentation

◆ g2_gbytec()

◆ g2_gbytec1()

◆ g2_gbytec8()

◆ g2_gbytesc()

◆ g2_gbytesc8()

◆ g2_gbytescr()

◆ g2_sbytec()

◆ g2_sbytec1()

◆ g2_sbytec8()

◆ g2_sbytesc()

◆ g2_sbytesc8()

◆ g2_sbytescr()

◆ mkieee()

◆ rdieee()

◆ rdieeec()