NCEPLIBS-bufr  12.0.0
rtrcptb.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 rtrcptb (MBAY, 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
2013-10-07

Definition in file rtrcptb.f.

Function/Subroutine Documentation

◆ rtrcptb()

recursive subroutine rtrcptb ( dimension (*)  MBAY,
  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 rtrcpt(), except that it operates on a BUFR message passed in via a memory array, whereas rtrcpt() 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]MBAY– integer(*): BUFR message.
[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 MBAY.
Author
J. Ator
Date
2013-10-07

Definition at line 25 of file rtrcptb.f.

References modv_im8b::im8b, iupb(), iupbs01(), and x48().

Referenced by fdebufr_c(), and rtrcpt().