invwin.f

Go to the documentation of this file.

C> @file
C> @brief Search for a specified node 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 node within the portion
C> of the current subset buffer bounded by the indices inv1 and inv2.
C> It is similar to library function invtag(), except that
C> invtag() searches based on the mnemonic corresponding to the node.
C>
C> @param[in] NODE - integer: jump/link table index 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 invwin(NODE,LUN,INV1,INV2)
 
      USE moda_usrint
 
      COMMON /quiet/  iprt
 
C----------------------------------------------------------------------
C----------------------------------------------------------------------
 
      invwin = 0
      IF(node.EQ.0) GOTO 200
 
C  SEARCH BETWEEN INV1 AND INV2
C  ----------------------------
 
      DO invwin=inv1,inv2
      IF(inv(invwin,lun).EQ.node) GOTO 100
      ENDDO
 
      invwin = 0
 
 200  IF(iprt.GE.2) THEN
      CALL errwrt('++++++++++++++BUFR ARCHIVE LIBRARY+++++++++++++++++')
      CALL errwrt('BUFRLIB: INVWIN - RETURNING WITH A VALUE OF 0')
      CALL errwrt('++++++++++++++BUFR ARCHIVE LIBRARY+++++++++++++++++')
      CALL errwrt(' ')
      ENDIF
 
C  EXIT
C  ----
 
100   RETURN
      END