*********************************************************************** c called by gukine before particle is generated c c last modified on: 15/11/2004 by F.Krizek c SUBROUTINE WALLINIT *********************************************************************** IMPLICIT NONE #include "walltuple.inc" INTEGER GETMEDNUM CHARACTER*23 WLMED1 DATA WLMED1 /'SCINTILLATOR_NOFIELD$ '/ NUMED_WLSC = GETMEDNUM(WLMED1) ! get medium number of plastic ! scintillator material IF(NUMED_WLSC.LE.0) THEN WRITE(6,'(/'' *** Unknown medium in WALLINIT: '',A15)') WLMED1 ENDIF RETURN END