c**********************************************************************

      SUBROUTINE SHOWINIT
c
c  last modified on: 7/4/98 by: R.Holzmann
c**********************************************************************
      IMPLICIT NONE

#include "showtups.inc"

      INTEGER GETMEDNUM
      CHARACTER*16 SHOWMED1, SHOWMED2, SHOWMED3
      DATA SHOWMED1 /'DRIFTGAS_SHOWER$'/
      DATA SHOWMED2 /'LEAD$           '/
      DATA SHOWMED3 /'TU_CU_BE_WIRES$ '/

      NUMED_DRIFTGAS = GETMEDNUM(SHOWMED1) ! get medium number of shower
                                           ! drift gas
      NUMED_LEAD = GETMEDNUM(SHOWMED2)     ! get medium number of shower
                                           ! lead converter
      NUMED_WIRES = GETMEDNUM(SHOWMED3)    ! get medium number of wire plane

      IF(NUMED_DRIFTGAS.LE.0) THEN
         WRITE(6,'(/'' *** Unknown medium in SHOWINIT: '',A16)') 
     +                                            SHOWMED1         
      ENDIF
      IF(NUMED_LEAD.LE.0) THEN
         WRITE(6,'(/'' *** Unknown medium in SHOWINIT: '',A16)') 
     +                                            SHOWMED2         
      ENDIF

      RETURN
      END