NCEPLIBS-bufr
12.0.0
|
Add a tank receipt time to a BUFR message. More...
Go to the source code of this file.
Functions/Subroutines | |
recursive subroutine | atrcpt (MSGIN, LMSGOT, MSGOT) |
This subroutine reads an input message and outputs an equivalent BUFR message with a tank receipt time added to Section 1. More... | |
recursive subroutine atrcpt | ( | dimension(*) | MSGIN, |
LMSGOT, | |||
dimension(*) | MSGOT | ||
) |
This subroutine reads an input message and outputs an equivalent BUFR message with a tank receipt time added to Section 1.
The tank receipt time to be added must have been specified via a previous call to subroutine strcpt(). This subroutine performs the same function as subroutine strcpt() when the latter is called with CF = 'Y', except that the latter subroutine operates on BUFR messages internally within the software, whereas this subroutine operates on a single BUFR message passed in via a memory array.
[in] | MSGIN | - integer(*): BUFR message |
[in] | LMSGOT | - integer: Dimensioned size (in integers) of MSGOT; used by the subroutine to ensure that it doesn't overflow the MSGOT array |
[out] | MSGOT | - integer(*): Copy of MSGIN with a tank receipt time added to Section 1 |
Definition at line 29 of file atrcpt.f.
References bort(), getlens(), modv_im8b::im8b, iupbs01(), mvb(), pkb(), and x84().
Referenced by msgwrt().