[u/mrichter/AliRoot.git] / GEANT321 / neutron / gtmed.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1995/10/24 10:21:57  cernlib
* Geant
*
*
#include "geant321/pilot.h"
*CMZ :  3.21/02 29/03/94  15.41.48  by  S.Giani
*-- Author :
      SUBROUTINE GTMED(MEDGEA,MEDMOR)
#include "geant321/mmicap.inc"
#include "geant321/minput.inc"
C get MICAP material number
      DO 10 I=1,MEDIA
         IF(LD(LGE2MO+I).EQ.MEDGEA) THEN
            MEDMOR = I
            GOTO 20
         ENDIF
   10 CONTINUE
      WRITE(IOUT,'('' MICAP GTMED: GEANT Medium '',I5,
     +             '' not found ==> STOP'')') MEDGEA
      STOP
   20 RETURN
      END
Commit	Line	Data
fe4da5cc	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