*********************************************************************** c called by gukine before particle is generated c c last modified on: 12/2/98 by R.Holzmann c SUBROUTINE TOFINIT *********************************************************************** IMPLICIT NONE #include "toftuple.inc" INTEGER GETMEDNUM CHARACTER*15 TOFMED1 DATA TOFMED1 /'SCINTILLATOR$ '/ NUMED_SCIN = GETMEDNUM(TOFMED1) ! get medium number of plastic ! scintillator material IF(NUMED_SCIN.LE.0) THEN WRITE(6,'(/'' *** Unknown medium in TOFINIT: '',A15)') TOFMED1 ENDIF RETURN END