This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / GEANT321 / neutron / gtmed.F
1 *
2 * $Id$
3 *
4 * $Log$
5 * Revision 1.1.1.1  1995/10/24 10:21:57  cernlib
6 * Geant
7 *
8 *
9 #include "geant321/pilot.h"
10 *CMZ :  3.21/02 29/03/94  15.41.48  by  S.Giani
11 *-- Author :
12       SUBROUTINE GTMED(MEDGEA,MEDMOR)
13 #include "geant321/mmicap.inc"
14 #include "geant321/minput.inc"
15 C get MICAP material number
16       DO 10 I=1,MEDIA
17          IF(LD(LGE2MO+I).EQ.MEDGEA) THEN
18             MEDMOR = I
19             GOTO 20
20          ENDIF
21    10 CONTINUE
22       WRITE(IOUT,'('' MICAP GTMED: GEANT Medium '',I5,
23      +             '' not found ==> STOP'')') MEDGEA
24       STOP
25    20 RETURN
26       END