jpcpack.F90 File Reference

Pack a data field into a JPEG2000 code stream. More...

Go to the source code of this file.

Functions/Subroutines
subroutine	jpcpack (fld, width, height, idrstmpl, cpack, lcpack)
	Pack a data field into a JPEG2000 code stream. More...

Detailed Description

Pack a data field into a JPEG2000 code stream.

Author

Stephen Gilbert

Date

2002-12-17

Definition in file jpcpack.F90.

Function/Subroutine Documentation

jpcpack()

subroutine jpcpack	(	real, dimension(width*height), intent(in)	fld,
		integer, intent(in)	width,
		integer, intent(in)	height,
		integer, dimension(*), intent(inout)	idrstmpl,
		character(len=1), dimension(*), intent(out)	cpack,
		integer, intent(inout)	lcpack
	)

Pack a data field into a JPEG2000 code stream.

After the data field is scaled, and the reference value is subtracted out, it is treated as a grayscale image and passed to a JPEG2000 encoder. It also fills in GRIB2 - TABLE 5.40 TYPE OF COMPRESSION.

Parameters

[in]	fld	The data values to pack.
[in]	width	number of points in the x direction
[in]	height	number of points in the y direction
[in,out]	idrstmpl	Contains the array of values for Data Representation Template 5.2 or 5.3 idrstmpl(1) Reference value - ignored on input. idrstmpl(2) Binary Scale Factor. idrstmpl(3) Decimal Scale Factor. idrstmpl(4) Number of bits containing each grayscale pixel value idrstmpl(5) Original field type, currently set = 0 on output Data values assumed to be reals. idrstmpl(6) = 0 use lossless compression; = 1 use lossy compression. idrstmpl(7) Desired compression ratio, if idrstmpl(6)=1.
[out]	cpack	The packed data field (character*1 array).
[in,out]	lcpack	When function is called, contains the length of buffer cpack. After functions returns, contains the length of the packed data in bytes.

Author

Stephen Gilbert

Date

2002-12-17

Definition at line 31 of file jpcpack.F90.

References enc_jpeg2000(), g2_sbytesc(), and mkieee().

Referenced by addfield().