NCEPLIBS-bufr
12.0.0
|
Copy a BUFR data subset. More...
Go to the source code of this file.
Functions/Subroutines | |
recursive subroutine | ufbcpy (LUBIN, LUBOT) |
Copy a BUFR data subset. More... | |
recursive subroutine ufbcpy | ( | LUBIN, | |
LUBOT | |||
) |
Copy a BUFR data subset.
This subroutine copies a BUFR data subset from one Fortran logical unit to another.
It is similar to subroutine copysb(), except that here a BUFR data subset should have already been read into internal arrays for logical unit LUBIN via a previous call to one of the subset-reading subroutines, whereas copysb() only requires that a BUFR message should have already been read into internal arrays via a previous call to one of the message-reading subroutines.
For logical unit LUBOT, a BUFR message should already be open for output within internal arrays via a previous call to one of the message-writing subroutines.
The DX BUFR Table information associated with each of the logical units LUBIN and LUBOT must contain identical definitions for the data subset to be copied.
[in] | LUBIN | - integer: Fortran logical unit number for source BUFR file. |
[in] | LUBOT | - integer: Fortran logical unit number for target BUFR file. |
Definition at line 33 of file ufbcpy.f.
References bort(), modv_im8b::im8b, moda_msgcwd::inode, moda_usrint::inv, iok2cpy(), moda_ufbcpl::luncpy, moda_usrint::nrfelm, moda_usrint::nval, status(), moda_tables::tag, moda_usrint::val, and x84().
Referenced by copysb().