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:

Date	Programmer	Comments
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 41 of file gettagpr.f.

References fstag(), and status().