*********************************************************************** c called by uginit and by gukine before particle is generated c c last modified on: 10/02/2014 by I. Koenig c SUBROUTINE STARTINIT *********************************************************************** IMPLICIT NONE #include "starttuple.inc" INTEGER GETMEDNUM CHARACTER*17 STARTMED DATA STARTMED /'DIAMOND_ACTIVE$ '/ NUMED_START = GETMEDNUM(STARTMED) ! get medium number of ! diamond material IF(NUMED_START.LE.0) THEN WRITE(6,'(/'' *** Unknown medium in STARTINIT: '',A17)') + STARTMED ENDIF RETURN END