gettagpr.f File Reference

Get the parent for a specified occurrence of a Table B or Table D mnemonic. More...

Go to the source code of this file.

Functions/Subroutines
subroutine	gettagpr (LUNIT, TAGCH, NTAGCH, TAGPR, IRET)
	This subroutine returns the Table D mnemonic corresponding to the parent sequence of a specified Table B or Table D mnemonic within a data subset definition. More...

Detailed Description

Get the parent for a specified occurrence of a Table B or Table D mnemonic.

Definition in file gettagpr.f.

Function/Subroutine Documentation

subroutine gettagpr	(		LUNIT,
		character*(*)	TAGCH,
			NTAGCH,
		character*(*)	TAGPR,
			IRET
	)

This subroutine returns the Table D mnemonic corresponding to the parent sequence of a specified Table B or Table D mnemonic within a data subset definition.

Author

J. Ator

Date

2012-09-12

Parameters

[in]	LUNIT	- integer: Fortran logical unit number for BUFR file
[in]	TAGCH	- character*(*): Table B or Table D mnemonic
[in]	NTAGCH	- integer: Ordinal occurrence of TAGCH for which the parent Table D mnemonic is to be returned, counting from the beginning of the overall subset definition
[out]	TAGPR	- character*(*): Table D mnemonic corresponding to parent sequence of (NTAGCH)th occurrence of TAGCH
[out]	IRET	- integer: return code 0 = normal return -1 = TAGPR could not be found, or some other error occurred

A data subset must already be in scope within the BUFRLIB internal arrays for LUNIT, either via a previous call to one of the subset-reading subroutines (when reading BUFR data subsets) or via a previous call to one of the message-writing subroutines (when writing BUFR data subsets).

Program history log:

• 2012-09-12 J. Ator – Original author
• 2014-10-02 J. Ator – Modified to use fstag()
• 2014-12-10 J. Ator – Use modules instead of COMMON blocks

Definition at line 39 of file gettagpr.f.

References fstag(), and status().