| fe4da5cc |
1 | * |
| 2 | * $Id$ |
| 3 | * |
| 4 | * $Log$ |
| 5 | * Revision 1.1.1.1 1995/10/24 10:20:47 cernlib |
| 6 | * Geant |
| 7 | * |
| 8 | * |
| 9 | #include "geant321/pilot.h" |
| 10 | *CMZ : 3.21/02 29/03/94 15.41.32 by S.Giani |
| 11 | *-- Author : |
| 12 | SUBROUTINE GCKMAT (ITMED,NATMED) |
| 13 | * |
| 14 | * |
| 15 | * This routine check the material table coming from a Cadd system. |
| 16 | * It may help to take default/savety actions. |
| 17 | * |
| 18 | * |
| 19 | #include "geant321/gcbank.inc" |
| 20 | #include "geant321/gcnum.inc" |
| 21 | #include "geant321/gcunit.inc" |
| 22 | * |
| 23 | CHARACTER*20 NAME,NATMED |
| 24 | * |
| 25 | * *** check tracking media number |
| 26 | JTM = LQ(JTMED - ITMED) |
| 27 | IF (ITMED.GT.NTMED.OR.JTM.LE.0) THEN |
| 28 | WRITE (CHMAIL,10200) ITMED |
| 29 | CALL GMAIL (0,0) |
| 30 | IMATE = 1 |
| 31 | CALL GSTMED (ITMED,NATMED,IMATE, 0, 0, 1., 10., |
| 32 | + 100., 0.2, 0.005, 0.001, 0, 0) |
| 33 | ELSE |
| 34 | CALL UHTOC (IQ(JTM+1),4,NAME,20) |
| 35 | IF (NATMED.NE.NAME) THEN |
| 36 | WRITE (CHMAIL,10300) ITMED |
| 37 | CALL GMAIL (0,0) |
| 38 | ENDIF |
| 39 | ENDIF |
| 40 | * |
| 41 | 10000 FORMAT(' *** GCKMAT *** Warning, material number :', I3, |
| 42 | + ' does not exist; force by default IMATE = 1' ) |
| 43 | * |
| 44 | 10100 FORMAT(' *** GCKMAT *** Warning, material number :', I3, |
| 45 | + ' maybe not egal to the Geant definition. KEEP the old one') |
| 46 | * |
| 47 | 10200 FORMAT(' *** GCKMAT *** Warning, tracking media :', I3, |
| 48 | + ' does not exist; It will be created with default parameters') |
| 49 | * |
| 50 | 10300 FORMAT(' *** GCKMAT *** Warning, tracking media :', I3, |
| 51 | + ' maybe not egal to the Geant definition. KEEP the old one') |
| 52 | * |
| 53 | END |
git://git.uio.no / u / mrichter / AliRoot.git / blame