*********************************************************************** SUBROUTINE MDCINIT * * * last modified on 30/7/99 by R.Holzmann *********************************************************************** IMPLICIT NONE #include "drtups.inc" INTEGER I, JD, IW, GETMEDNUM REAL DEG MEDCOIL1 = GETMEDNUM('COIL_MIXT$') ! medium numbers for coil materials MEDCOIL2 = GETMEDNUM('COIL_STEEL$') MEDCOIL3 = GETMEDNUM('COIL_ALU$') DEG = 45./ATAN(1.) c wire turning angles for 4 detectors and 6 wire planes + 1 cathode plane DO JD = 1,4 PHI(JD,1) = 40./DEG PHI(JD,2) =-20./DEG PHI(JD,3) = 0. PHI(JD,4) = -0. PHI(JD,5) = 20./DEG PHI(JD,6) =-40./DEG PHI(JD,7) = 0. ENDDO RETURN END