NCEPLIBS-bufr
11.7.0
|
Determine the bit settings equivalent to a numerical flag table value. More...
Go to the source code of this file.
Functions/Subroutines | |
subroutine | upftbv (LUNIT, NEMO, VAL, MXIB, IBIT, NIB) |
Given a Table B mnemonic with flag table units and a corresponding numerical data value, this subroutine determines the bit settings equivalent to that numerical value. More... | |
Determine the bit settings equivalent to a numerical flag table value.
Definition in file upftbv.f.
subroutine upftbv | ( | LUNIT, | |
character*(*) | NEMO, | ||
real*8 | VAL, | ||
MXIB, | |||
integer, dimension (*) | IBIT, | ||
NIB | |||
) |
Given a Table B mnemonic with flag table units and a corresponding numerical data value, this subroutine determines the bit settings equivalent to that numerical value.
[in] | LUNIT | – integer: Fortran logical unit number for BUFR file |
[in] | NEMO | – character*(*): Table B mnemonic with flag table units |
[in] | VAL | – real*8: Value corresponding to NEMO |
[in] | MXIB | – integer: Dimensioned size (in integers) of IBIT; used by the subroutine to ensure that it doesn't overflow the IBIT array |
[out] | IBIT | – integer(*): Bit numbers which were set to "On" (i.e. set to "1") in VAL |
[out] | NIB | – integer: Number of bit numbers returned in IBIT |
Program history log:
Date | Programmer | Comments |
---|---|---|
2005-11-29 | J. Ator | Original version |
2014-12-10 | J. Ator | Use modules instead of COMMON blocks |
Definition at line 37 of file upftbv.f.