NCEPLIBS-bufr
12.0.1
|
Write DX BUFR tables messages to a BUFR file. More...
Go to the source code of this file.
Functions/Subroutines | |
recursive subroutine | wrdxtb (LUNDX, LUNOT) |
This subroutine generates one or more BUFR messages from the DX BUFR tables information associated with a given BUFR file, and it then writes the messages out to the same or possibly a different BUFR file. More... | |
recursive subroutine wrdxtb | ( | LUNDX, | |
LUNOT | |||
) |
This subroutine generates one or more BUFR messages from the DX BUFR tables information associated with a given BUFR file, and it then writes the messages out to the same or possibly a different BUFR file.
Logical units LUNDX and LUNOT should have already been opened via previous calls to subroutine openbf(), and in particular logical unit LUNOT must have been opened for output operations. LUNDX and LUNOT may be the same if it is desired to append to LUNOT with DX BUFR messages generated from its own internal tables.
[in] | LUNDX | - integer: Fortran logical unit number associated with DX BUFR table information to be written out. |
[in] | LUNOT | - integer: Fortran logical unit number of BUFR file to which messages are to be written. |
Definition at line 25 of file wrdxtb.f.
References adn30(), bort(), cpbfdx(), dxmini(), getlens(), modv_im8b::im8b, iupb(), iupm(), moda_mgwa::mgwa, msgfull(), msgwrt(), moda_tababd::ntba, moda_tababd::ntbb, moda_tababd::ntbd, pkb(), pkc(), status(), moda_tababd::taba, moda_tababd::tabb, moda_tababd::tabd, and x84().
Referenced by makestab(), and writdx().