atrcpt.f File Reference

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...

Detailed Description

Add a tank receipt time to a BUFR message.

Author

J. Ator

Date

2009-03-23

Definition in file atrcpt.f.

Function/Subroutine Documentation

atrcpt()

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.

Remarks

• MSGIN and MSGOT must be separate arrays.
• MSGOT will be longer in length than MSGIN, so the user must allow for extra space when allocating MSGOT within the application program.

Parameters

[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

Author

J. Ator

Date

2009-03-23

Definition at line 29 of file atrcpt.f.

References bort(), getlens(), modv_im8b::im8b, iupbs01(), mvb(), pkb(), and x84().

Referenced by msgwrt().