NCEPLIBS-bufr
11.6.0
|
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... | |
Get the parent for a specified occurrence of a Table B or Table D mnemonic.
Definition in file gettagpr.f.
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.
[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
|
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.