INTEGER FUNCTION RC_NDRP ( iubfma, tagch, ntagch )
C************************************************************************
C* RC_NDRP                                                              *
C*                                                                      *
C* This function returns the number of delayed replications for the     *
C* parent mnemonic of the NTAGCHth occurrence of TAGCH within the       *
C* current BUFR subset.                                                 *
C*                                                                      *
C* RC_NDRP  ( IUBFMA, TAGCH, NTAGCH )                                   *
C*                                                                      *
C* Input parameters:                                                    *
C*      IUBFMA          INTEGER         Logical unit number of messages *
C*                                      file for BUFR input stream      *
C*      TACGH           CHAR*           Child mnemonic within subset    *
C*      NTAGCH          INTEGER         Ordinal occurrence of TAGCH     *
C*                                      (counting from the beginning of *
C*                                      the subset) for which the parent*
C*                                      mnmeonic is to be checked       *
C*                                                                      *
C* Output parameters:                                                   *
C*      RC_NDRP         INTEGER         Number of delayed replications  *
C*                                      for the parent mnemonic of the  *
C*                                      NTAGCHth occurrence of TAGCH    *
C*                                      within the subset               *
C**                                                                     *
C* Log:                                                                 *
C* J. Ator/NCEP         10/20                                           *
C************************************************************************
        INCLUDE         'GEMPRM.PRM'
C*
        CHARACTER*(*)   tagch
C*
        CHARACTER       tagpr*8, tagprp*10
C*
        REAL*8          r8val
C*-----------------------------------------------------------------------
        RC_NDRP = 0
C
        CALL GETTAGPR ( iubfma, tagch, ntagch, tagpr, ierptg )
        IF ( ierptg .ne. 0 ) RETURN
        CALL ST_LSTR ( tagpr, ltagpr, ier )
        tagprp = '(' // tagpr(1:ltagpr) // ')'
        CALL UFBINT ( iubfma, r8val, 1, 1, ierufb, tagprp ) 
        RC_NDRP = IDINT ( r8val )
C*
        RETURN
        END