newwin.f

Go to the documentation of this file.

C> @file
C> @brief Computes the ending index of the window.
C>
C> @author J. Woollen @date 1994-01-06
 
C> Given an index within the internal jump/link table which
C> points to the start of an "rpc" window (which is the iteration of an 8-bit
C> or 16-bit delayed replication sequence), this subroutine computes
C> the ending index of the window. Alternatively, if the given index
C> points to the start of a "sub" window (which is the first node of a
C> subset), then the subroutine returns the index of the last node.
C>
C> @note See the docblock in bufr archive library subroutine getwin() for an
C> explanation of "windows" within the context of a bufr data subset.
C>
C> @param[in] LUN - integer: i/o stream index into internal memory arrays.
C> @param[in] IWIN - integer: starting index of window iteration.
C> @param[out] JWIN - integer: ending index of window iteration.
C>
C> @author J. Woollen @date 1994-01-06
      SUBROUTINE newwin(LUN,IWIN,JWIN)
 
      USE moda_usrint
 
      CHARACTER*128 BORT_STR
 
C----------------------------------------------------------------------
C----------------------------------------------------------------------
 
      IF(iwin.EQ.1) THEN
 
C        This is a "SUB" (subset) node, so return JWIN as pointing to
C        the last value of the entire subset.
 
         jwin = nval(lun)
         GOTO 100
      ENDIF
 
C     Confirm that IWIN points to an RPC node and then compute JWIN.
 
      node = inv(iwin,lun)
      IF(lstjpb(node,lun,'RPC').NE.node) GOTO 900
      jwin = iwin+nint(val(iwin,lun))
 
C  EXITS
C  -----
 
100   RETURN
900   WRITE(bort_str,'("BUFRLIB: NEWWIN - LSTJPB FOR NODE",I6,'//
     . '" (LSTJPB=",I5,") DOES NOT EQUAL VALUE OF NODE, NOT RPC '//
     . '(IWIN =",I8,")")') node,lstjpb(node,lun,'RPC'),iwin
      CALL bort(bort_str)
      END