conwin.f

Go to the documentation of this file.

C> @file
C> @brief Search consecutive subset buffer segments
C> for an element identified in the user string as a conditional node.
C> @author Woollen @date 1994-01-06
 
C> This subroutine searches consecutive subset buffer segments for an
C> element identified in the user string as a conditional node. A conditional
C> node is an element which must meet a condition in order to be read
C> from or written to a data subset. If a conditional element is
C> found and it conforms to the condition, then the internal subset
C> buffer indices of the "window" (see below remarks) are returned to
C> the caller for processing.
C>
C> The four conditions which can be exercised are:
C> - '<' - less than
C> - '>' - greater than
C> - '=' - equal
C> - '!' - not equal
C>
C> Each condition in a string is applied to one element, and all
C> conditions are 'and'ed to evaluate an outcome. For example, if the
C> condition string is: "POB<500 TOB>30 TQM<4" then the only levels of
C> data read or written are those with pressure lt 500 mb, temperature
C> gt 30 deg, and temperature quality mark < 4.
C>
C> See getwin() for an explanation of "windows" within the context of a
C> BUFR data subset.
C>
C> Function conwin() works with function invcon() to identify subset
C> buffer segments which conform to the set of conditions.
C>
C> @param[in] LUN integer I/O stream index into internal memory arrays.
C> @param[out] INC1 integer subset buffer start index
C> @param[inout] INC2 integer subset buffer ending index
C>
C> @author Woollen @date 1994-01-06
      SUBROUTINE conwin(LUN,INC1,INC2)
 
      USE moda_usrint
 
      COMMON /usrstr/ nnod,ncon,nods(20),nodc(10),ivls(10),kons(10)
 
C----------------------------------------------------------------------
C----------------------------------------------------------------------
 
C  SPECIAL CASE
C  ------------
 
      IF(ncon.EQ.0) THEN
c  .... There are no condition nodes in the string
         inc1 = 1
         inc2 = nval(lun)
         GOTO 100
      ENDIF
 
C  EVALUATE CONDITIONS TO SEE IF ANY MORE CASES
C  --------------------------------------------
 
15    CALL getwin(nodc(1),lun,inc1,inc2)
      IF(inc1.GT.0) THEN
         DO nc=1,ncon
           icon = invcon(nc,lun,inc1,inc2)
           IF(icon.EQ.0) GOTO 15
         ENDDO
      ENDIF
 
C  EXIT
C  ----
 
100   RETURN
      END