nwords.f

Go to the documentation of this file.

C> @file
C> @brief Compute the length of a delayed replication sequence
C>
C> @author Woollen @date 1996-10-09
 
C> This function adds up the complete length of the delayed
C> replication sequence beginning at index N of the data subset.
C>
C> @param[in] N - integer: index to start of delayed replication sequence.
C> @param[in] LUN - integer: I/O stream index into internal memory arrays.
C>
C> @return complete length of delayed replication sequence within data subset.
C>
C> @author Woollen @date 1996-10-09
      FUNCTION nwords(N,LUN)
 
      USE moda_usrint
 
C-----------------------------------------------------------------------
C-----------------------------------------------------------------------
 
      nwords = 0
 
      DO k=1,nint(val(n,lun))
      nwords = nwords + nint(val(nwords+n+1,lun))
      ENDDO
 
      RETURN
      END