ufbcnt.f

Go to the documentation of this file.

C> @file
C> @brief Get the current message number and data subset number within
C> a BUFR file.
C>
C> @author J. Woollen @date 1994-01-06
 
C> Get the current message number and data subset number within
C> a BUFR file.
C>
C> This subroutine returns the current location of the file pointer
C> within a BUFR file, in terms of a message number counting from the
C> beginning of the file, and a data subset number counting from the
C> beginning of that message.
C>
C> @remarks
C> - Logical unit LUNIT should have already been opened via a previous
C> call to subroutine openbf(). If LUNIT was opened for input
C> operations, then KMSG is incremented with each call to any of the
C> [message-reading subroutines](@ref hierarchy), and KSUB is
C> incremented with each call to any of the
C> [subset-reading subroutines](@ref hierarchy) for that message.
C> Otherwise, if LUNIT was opened for output operations, then KMSG is
C> incremented with each call to any of the
C> [message-writing subroutines](@ref hierarchy), and KSUB is
C> incremented with each call to any of the
C> [subset-writing subroutines](@ref hierarchy) for that message.
C> - The value returned for KMSG does <b>not</b> include any messages
C> which contain DX BUFR tables information.
C>
C> @param[in] LUNIT - integer: Fortran logical unit number for BUFR file.
C> @param[out] KMSG - integer: Ordinal number of current message,
C> counting from the beginning of the BUFR file, but
C> not counting any messages which contain DX BUFR
C> tables information.
C> @param[out] KSUB - integer: Ordinal number of current data subset
C> within (KMSG)th message, counting from the
C> beginning of the message.
C>
C> @author J. Woollen @date 1994-01-06
      RECURSIVE SUBROUTINE ufbcnt(LUNIT,KMSG,KSUB)
 
      USE moda_msgcwd
      USE modv_im8b
 
C-----------------------------------------------------------------------
C-----------------------------------------------------------------------
 
C  CHECK FOR I8 INTEGERS
C  ---------------------
 
      IF(im8b) THEN
         im8b=.false.
 
         CALL x84(lunit,my_lunit,1)
         CALL ufbcnt(my_lunit,kmsg,ksub)
         CALL x48(kmsg,kmsg,1)
         CALL x48(ksub,ksub,1)
 
         im8b=.true.
         RETURN
      ENDIF
 
C  CHECK THE FILE STATUS - RETURN THE MESSAGE AND SUBSET COUNTERS
C  --------------------------------------------------------------
 
      CALL status(lunit,lun,il,im)
      IF(il.EQ.0) GOTO 900
      kmsg = nmsg(lun)
      ksub = nsub(lun)
 
C  EXITS
C  -----
 
      RETURN
900   CALL bort('BUFRLIB: UFBCNT - BUFR FILE IS CLOSED, IT MUST BE '//
     . 'OPEN FOR EITHER INPUT OR OUTPUT')
      END