invtag.f

Go to the documentation of this file.

C> @file
C> @brief Search for a specified mnemonic within a specified portion
C> of the current data subset.
C>
C> @author Woollen @date 1994-01-06
 
C> This function looks for a specified mnemonic within the
C> portion of the current subset buffer bounded by the indices inv1
C> and inv2. It is similar to library function invwin(),
C> except that invwin() searches based on the actual node within the
C> internal jump/link table, rather than on the mnemonic corresponding
C> to that node.
C>
C> @param[in] NODE - integer: jump/link table index of mnemonic to look for
C> @param[in] LUN - integer: file ID
C> @param[in] INV1 - integer: starting index of the portion of the subset buffer in which to look
C> @param[in] INV2 - integer: ending index of the portion of the subset buffer in which to look
C>
C> @return - integer: location index of node within specified portion of subset buffer
C> - 0 not found
C>
C> @author Woollen @date 1994-01-06
      FUNCTION invtag(NODE,LUN,INV1,INV2)
 
      USE moda_usrint
      USE moda_tables
 
      COMMON /quiet/  iprt
 
      CHARACTER*10 tagn
 
C----------------------------------------------------------------------
C----------------------------------------------------------------------
 
      invtag = 0
      IF(node.EQ.0) GOTO 200
      tagn = tag(node)
 
C  SEARCH BETWEEN INV1 AND INV2
C  ----------------------------
 
      DO invtag=inv1,inv2
      IF(tag(inv(invtag,lun)).EQ.tagn) GOTO 100
      ENDDO
 
      invtag = 0
 
200   IF(iprt.GE.2) THEN
      CALL errwrt('++++++++++++++BUFR ARCHIVE LIBRARY+++++++++++++++++')
      CALL errwrt('BUFRLIB: INVTAG - RETURNING WITH A VALUE OF 0')
      CALL errwrt('++++++++++++++BUFR ARCHIVE LIBRARY+++++++++++++++++')
      CALL errwrt(' ')
      ENDIF
 
C  EXIT
C  ----
 
100   RETURN
      END