*********************************************************************** c SUBROUTINE RPCINIT c Modified on 11/08/2006 by D. Gonzalez. c Modified on 19/09/2012 by Alessio Mangiarotti. c To perform the test on particles generated c inside the RPC gap, the medium number of the c gap gas and of the RPC box are stored in c common /RPCMED/ (see rpctuple.inc). *********************************************************************** IMPLICIT NONE #include "rpctuple.inc" INTEGER GETMEDNUM CHARACTER*20 RPCMED1 DATA RPCMED1 /'GAS_RPC$'/ CHARACTER*20 RPCMED2 DATA RPCMED2 /'AIR_ACTIVE$'/ c Get medium number of RPC GAP active volume NUMED_GAP = GETMEDNUM(RPCMED1) IF(NUMED_GAP.LE.0) THEN WRITE(6,100) RPCMED1 ENDIF c Get medium number of RPC EBOX active volume NUMED_EBOX = GETMEDNUM(RPCMED2) IF(NUMED_EBOX.LE.0) THEN WRITE(6,100) RPCMED2 ENDIF RETURN ************************************************************************ 100 FORMAT(' *** Unknown medium in RPCINIT: ',A15) ************************************************************************ END