NCEPLIBS-bufr  11.5.0
 All Data Structures Files Functions Variables Pages
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().