*********************************************************************** 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 PHOTLEN(1) = 5.63e-9 PHOTEFF(1) = 0.00000 PHOTLEN(2) = 5.68e-9 PHOTEFF(2) = 0.00124 PHOTLEN(3) = 5.74e-9 PHOTEFF(3) = 0.00249 PHOTLEN(4) = 5.79e-9 PHOTEFF(4) = 0.00373 PHOTLEN(5) = 5.84e-9 PHOTEFF(5) = 0.00497 PHOTLEN(6) = 5.90e-9 PHOTEFF(6) = 0.00622 PHOTLEN(7) = 5.96e-9 PHOTEFF(7) = 0.00746 PHOTLEN(8) = 6.01e-9 PHOTEFF(8) = 0.00870 PHOTLEN(9) = 6.07e-9 PHOTEFF(9) = 0.00994 PHOTLEN(10) = 6.13e-9 PHOTEFF(10) = 0.01119 PHOTLEN(11) = 6.19e-9 PHOTEFF(11) = 0.01243 PHOTLEN(12) = 6.26e-9 PHOTEFF(12) = 0.02006 PHOTLEN(13) = 6.32e-9 PHOTEFF(13) = 0.02768 PHOTLEN(14) = 6.39e-9 PHOTEFF(14) = 0.03597 PHOTLEN(15) = 6.45e-9 PHOTEFF(15) = 0.04490 PHOTLEN(16) = 6.52e-9 PHOTEFF(16) = 0.05384 PHOTLEN(17) = 6.59e-9 PHOTEFF(17) = 0.06564 PHOTLEN(18) = 6.66e-9 PHOTEFF(18) = 0.07743 PHOTLEN(19) = 6.73e-9 PHOTEFF(19) = 0.08640 PHOTLEN(20) = 6.81e-9 PHOTEFF(20) = 0.09256 PHOTLEN(21) = 6.88e-9 PHOTEFF(21) = 0.09872 PHOTLEN(22) = 6.96e-9 PHOTEFF(22) = 0.11135 PHOTLEN(23) = 7.04e-9 PHOTEFF(23) = 0.12398 PHOTLEN(24) = 7.12e-9 PHOTEFF(24) = 0.13198 PHOTLEN(25) = 7.20e-9 PHOTEFF(25) = 0.13537 PHOTLEN(26) = 7.29e-9 PHOTEFF(26) = 0.13875 PHOTLEN(27) = 7.38e-9 PHOTEFF(27) = 0.14903 PHOTLEN(28) = 7.46e-9 PHOTEFF(28) = 0.15930 PHOTLEN(29) = 7.56e-9 PHOTEFF(29) = 0.16958 PHOTLEN(30) = 7.65e-9 PHOTEFF(30) = 0.17986 PHOTLEN(31) = 7.74e-9 PHOTEFF(31) = 0.19014 PHOTLEN(32) = 7.84e-9 PHOTEFF(32) = 0.20482 PHOTLEN(33) = 7.94e-9 PHOTEFF(33) = 0.21950 PHOTLEN(34) = 8.05e-9 PHOTEFF(34) = 0.23419 PHOTLEN(35) = 8.15e-9 PHOTEFF(35) = 0.24887 PHOTLEN(36) = 8.26e-9 PHOTEFF(36) = 0.26355 PHOTLEN(37) = 8.37e-9 PHOTEFF(37) = 0.27824 PHOTLEN(38) = 8.49e-9 PHOTEFF(38) = 0.29292 PHOTLEN(39) = 8.61e-9 PHOTEFF(39) = 0.30760 PHOTLEN(40) = 8.73e-9 PHOTEFF(40) = 0.32228 PHOTLEN(41) = 8.85e-9 PHOTEFF(41) = 0.33697 PHOTLEN(42) = 8.98e-9 PHOTEFF(42) = 0.35561 PHOTLEN(43) = 9.11e-9 PHOTEFF(43) = 0.37425 PHOTLEN(44) = 9.25e-9 PHOTEFF(44) = 0.39290 PHOTLEN(45) = 9.39e-9 PHOTEFF(45) = 0.41154 PHOTLEN(46) = 9.53e-9 PHOTEFF(46) = 0.43018 MED_C4F10 = getmednum('C4F10$') MED_CAF2 = getmednum('CAF2$') MED_CH4 = getmednum('METHAN$') MED_DET = getmednum('RICHPHOTDET$') MED_MIRROR = getmednum('RICHMIRROR$') 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(*,*) ' CaF2 - ',MED_CAF2 c write(*,*) ' methan - ',MED_CH4 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