*********************************************************************** SUBROUTINE RICHINIT * * designed by W. Przygoda (TUM) * last modified on 01/09/2001 by L. Fabbietti *********************************************************************** IMPLICIT NONE #include "richtups.inc" INTEGER getmednum ! returns number of medium for given name MED_C4F10 = getmednum('C4F10$') IF (MED_C4F10 .EQ. 0) THEN MED_C4F10 = getmednum('C4F10_2012$') ENDIF IF (MED_C4F10 .EQ. 0) THEN MED_C4F10 = getmednum('C4F10_PMT$') ENDIF MED_C4H10 = getmednum('C4H10_PMT$') MED_GLASS_PMT = getmednum('GLASS_PMT$') MED_CAF2 = getmednum('CAF2$') IF (MED_CAF2 .EQ. 0) THEN MED_CAF2 = getmednum('CAF2_PMT$') ENDIF MED_CH4 = getmednum('METHAN$') IF (MED_CH4 .EQ. 0) THEN MED_CH4 = getmednum('METHAN_PMT$') ENDIF MED_N2_DIS = getmednum('RICH_GAS_N2_DIS$') MED_DET = getmednum('RICHPHOTDET$') IF (MED_DET .EQ. 0) THEN MED_DET = getmednum('RICHPHOTDET_PMT$') ENDIF MED_MIRROR = getmednum('RICHMIRROR$') IF (MED_MIRROR .EQ. 0) THEN MED_MIRROR = getmednum('RICHMIRROR_PMT$') ENDIF MED_GLASSMIRROR = getmednum('RICHGLASSMIRROR$') MED_PADS = getmednum('RICHPADS$') MED_SIO2A = getmednum('SIO2A$') MED_SIO2B = getmednum('SIO2B$') MED_MGF2A = getmednum('MGF2A$') MED_MGF2B = getmednum('MGF2B$') MED_N2 = getmednum('N2$') c write(*,*) 'RICH media: ' c write(*,*) ' C4F10 - ',MED_C4F10 c write(*,*) ' C4H10 - ',MED_C4H10 c write(*,*) ' glassPmt - ',MED_GLASS_PMT c write(*,*) ' CaF2 - ',MED_CAF2 c write(*,*) ' methan - ',MED_CH4 c write(*,*) ' N2 Dis - ',MED_N2_DIS c write(*,*) ' photon det. - ',MED_DET c write(*,*) ' mirrors - ',MED_MIRROR, MED_GLASSMIRROR c write(*,*) ' pads - ',MED_PADS c write(*,*) ' SiO2a - ',MED_SIO2A c write(*,*) ' SiO2b - ',MED_SIO2B c write(*,*) ' MgF2a - ',MED_MGF2A c write(*,*) ' MgF2b - ',MED_MGF2B c write(*,*) ' N2 - ',MED_N2 EVTNOW = 0 NMIRCOUNT =0 return end