***********************************************************************
c
c   last modified on: 11/08/06  by D. Gonzalez
c
      SUBROUTINE RPCINIT

***********************************************************************
      IMPLICIT NONE
#include "rpctuple.inc"

      INTEGER GETMEDNUM
      CHARACTER*15 RPCMED1
      DATA RPCMED1 /'GAS_RPC$'/

      NUMED_GLASS = GETMEDNUM(RPCMED1)   ! get medium number of RPC active volume

      IF(NUMED_GLASS.LE.0) THEN
         WRITE(6,'(/'' *** Unknown medium in RPCINIT: '',A15)') RPCMED1
      ENDIF
      RETURN
      END