NCEPLIBS-bufr  12.0.0
ufbcnt.f File Reference

Get the current message number and data subset number within a BUFR file. More...

Go to the source code of this file.

Functions/Subroutines

recursive subroutine ufbcnt (LUNIT, KMSG, KSUB)
 Get the current message number and data subset number within a BUFR file. More...
 

Detailed Description

Get the current message number and data subset number within a BUFR file.

Author
J. Woollen
Date
1994-01-06

Definition in file ufbcnt.f.

Function/Subroutine Documentation

◆ ufbcnt()

recursive subroutine ufbcnt (   LUNIT,
  KMSG,
  KSUB 
)

Get the current message number and data subset number within a BUFR file.

This subroutine returns the current location of the file pointer within a BUFR file, in terms of a message number counting from the beginning of the file, and a data subset number counting from the beginning of that message.

Remarks
  • Logical unit LUNIT should have already been opened via a previous call to subroutine openbf(). If LUNIT was opened for input operations, then KMSG is incremented with each call to any of the message-reading subroutines, and KSUB is incremented with each call to any of the subset-reading subroutines for that message. Otherwise, if LUNIT was opened for output operations, then KMSG is incremented with each call to any of the message-writing subroutines, and KSUB is incremented with each call to any of the subset-writing subroutines for that message.
  • The value returned for KMSG does not include any messages which contain DX BUFR tables information.
Parameters
[in]LUNIT- integer: Fortran logical unit number for BUFR file.
[out]KMSG- integer: Ordinal number of current message, counting from the beginning of the BUFR file, but not counting any messages which contain DX BUFR tables information.
[out]KSUB- integer: Ordinal number of current data subset within (KMSG)th message, counting from the beginning of the message.
Author
J. Woollen
Date
1994-01-06

Definition at line 40 of file ufbcnt.f.

References bort(), modv_im8b::im8b, moda_msgcwd::nmsg, moda_msgcwd::nsub, status(), x48(), and x84().

Referenced by cmpbqm(), readbp(), and ufbpos().