rtrcpt.f File Reference

Read the tank receipt time from Section 1 of a BUFR message. More...

Go to the source code of this file.

Functions/Subroutines
recursive subroutine	rtrcpt (LUNIT, IYR, IMO, IDY, IHR, IMI, IRET)
	This subroutine reads the tank receipt time (if one exists) from Section 1 of a BUFR message. More...

Detailed Description

Read the tank receipt time from Section 1 of a BUFR message.

Author

J. Ator

Date

2009-03-23

Definition in file rtrcpt.f.

Function/Subroutine Documentation

rtrcpt()

recursive subroutine rtrcpt	(		LUNIT,
			IYR,
			IMO,
			IDY,
			IHR,
			IMI,
			IRET
	)

This subroutine reads the tank receipt time (if one exists) from Section 1 of a BUFR message.

It is similar to subroutine rtrcptb(), except that rtrcptb() operates on a BUFR message passed in via a memory array, whereas this subroutine operates on the BUFR message that was read into internal arrays via the most recent call to any of the other message-reading subroutines for a specified Fortran logical unit.

Parameters

[in]	LUNIT	– integer: Fortran logical unit number for BUFR file
[out]	IYR	– integer: Tank receipt year
[out]	IMO	– integer: Tank receipt month
[out]	IDY	– integer: Tank receipt day
[out]	IHR	– integer: Tank receipt hour
[out]	IMI	– integer: Tank receipt minute
[out]	IRET	– integer: return code 0 = normal return -1 = no tank receipt time exists within the BUFR message currently open for input within internal arrays

Author

J. Ator

Date

2009-03-23

Definition at line 28 of file rtrcpt.f.

References bort(), modv_im8b::im8b, moda_bitbuf::mbay, rtrcptb(), status(), x48(), and x84().