5 * Revision 1.1.1.1 1995/10/24 10:21:57 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 29/03/94 15.41.48 by S.Giani
12 SUBROUTINE GTMED(MEDGEA,MEDMOR)
13 #include "geant321/mmicap.inc"
14 #include "geant321/minput.inc"
15 C get MICAP material number
17 IF(LD(LGE2MO+I).EQ.MEDGEA) THEN
22 WRITE(IOUT,'('' MICAP GTMED: GEANT Medium '',I5,
23 + '' not found ==> STOP'')') MEDGEA