lcmgdf.f File Reference

Check for the existence of any long character strings (greater than 8 bytes) within a data subset definition. More...

Go to the source code of this file.

Functions/Subroutines
recursive function	lcmgdf (LUNIT, SUBSET)
	This function checks whether the subset definition for a given message type contains any long character strings (greater than 8 bytes). More...

Detailed Description

Check for the existence of any long character strings (greater than 8 bytes) within a data subset definition.

Author

J. Ator

Date

2009-07-09

Definition in file lcmgdf.f.

Function/Subroutine Documentation

lcmgdf()

recursive function lcmgdf	(		LUNIT,
		character*8	SUBSET
	)

This function checks whether the subset definition for a given message type contains any long character strings (greater than 8 bytes).

Parameters

[in]	LUNIT	- integer: Fortran logical unit number for BUFR file.
[in]	SUBSET	- character*8: Table A mnemonic of message type to be checked.

Returns

lcmgdf - integer:

• 0 = SUBSET does not contain any long character strings
• 1 = SUBSET contains at least one long character string

Remarks

• LUNIT may be open for either input or output operations via a previous call to subroutine openbf(). However, in either case, SUBSET must already be defined within the BUFR tables that are associated with LUNIT, typically as DX BUFR tables information supplied via argument LUNDX when openbf() was called, or, if openbf() was called with IO = 'SEC3', then as master BUFR table information during a previous call to one of the message-reading subroutines.
• Note that this function does not return mnemonic(s) associated with any long character string(s) found within SUBSET; rather, it only checks whether at least one such mnemonic exists. If any are found, the application program can process them via a separate call to subroutine readlc() (when reading BUFR data subsets) or subroutine writlc() (when writing BUFR data subsets).

Author

J. Ator

Date

2009-07-09

Definition at line 36 of file lcmgdf.f.

References bort(), moda_tables::ibt, modv_im8b::im8b, moda_tables::isc, nemtba(), status(), moda_tables::typ, and x84().