NCEPLIBS-bufr
11.5.0
|
Write one data value to a data subset. More...
Go to the source code of this file.
Functions/Subroutines | |
subroutine | setvalnb (LUNIT, TAGPV, NTAGPV, TAGNB, NTAGNB, R8VAL, IRET) |
This subroutine can be used to write a data value corresponding to a specific occurrence of a mnemonic within a data subset, based on its position relative to a different mnemonic within the subset. More... | |
Write one data value to a data subset.
Definition in file setvalnb.f.
subroutine setvalnb | ( | LUNIT, | |
character*(*) | TAGPV, | ||
NTAGPV, | |||
character*(*) | TAGNB, | ||
NTAGNB, | |||
real*8 | R8VAL, | ||
IRET | |||
) |
This subroutine can be used to write a data value corresponding to a specific occurrence of a mnemonic within a data subset, based on its position relative to a different mnemonic within the subset.
The subroutine first searches for a specific occurrence of a pivot mnemonic, counting from the beginning of the subset. From there, it then searches in either a forward or backward direction for a specific occurrence of a nearby mnemonic, and if found stores the specified data value in the corresponding location within the subset.
[in] | LUNIT | - integer: Fortran logical unit number for BUFR file |
[in] | TAGPV | - character*(*): Pivot mnemonic; the subroutine will first search for the (NTAGPV)th occurrence of this mnemonic, counting from the beginning of the overall subset definition |
[in] | NTAGPV | - integer: Ordinal occurrence of TAGPV to search for, counting from the beginning of the overall subset definition |
[in] | TAGNB | - character*(*): Nearby mnemonic; assuming TAGPV is successfully found, the subroutine will then search nearby for the (NTAGNB)th occurrence of TAGNB and store R8VAL as the corresponding value |
[in] | NTAGNB | - integer: Ordinal occurrence of TAGNB to search for, counting from the location of TAGPV within the overall subset definition. If NTAGNB is positive, the subroutine will search in a forward direction from the location of TAGPV; otherwise, if NTAGNB is negative, it will instead search in a backwards direction from the location of TAGPV. |
[in] | R8VAL | - real*8: Value to be stored corresponding to (NTAGNB)th occurrence of TAGNB within the subset |
[out] | IRET | - integer: return code
|
Before calling this subroutine, a BUFR message should already be opened and initialized for output via a previous call to one of the BUFRLIB message-writing subroutines.
Program history log:
Definition at line 53 of file setvalnb.f.