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
subroutine	ufbcnt (LUNIT, KMSG, KSUB)
	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. More...

Detailed Description

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

Definition in file ufbcnt.f.

Function/Subroutine Documentation

ufbcnt()

subroutine ufbcnt	(		LUNIT,
			KMSG,
			KSUB
	)

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.

Author

J. Woollen

Date

1994-01-06

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

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.

Program history log:

Date	Programmer	Comments
1994-01-06	J. Woollen	Original author
1998-07-08	J. Woollen	Replaced call to Cray library routine ABORT with call to new internal routine bort()
1999-11-18	J. Woollen	The number of BUFR files which can be opened at one time increased from 10 to 32
2014-12-10	J. Ator	Use modules instead of COMMON blocks

Definition at line 45 of file ufbcnt.f.

References bort(), and status().

Referenced by ufbpos().