GEANT321/geocad/gckmat.F

   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