GEANT321/gdraw/gdtr8.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1995/10/24 10:20:29  cernlib
   6 * Geant
   7 *
   8 *
   9 #include "geant321/pilot.h"
  10 *CMZ :  3.21/02 29/03/94  15.41.27  by  S.Giani
  11 *-- Author :
  12       SUBROUTINE GDTR8(NAME,MOTH,IONL)
  13 C.
  14 C.    ******************************************************************
  15 C.    *                                                                *
  16 C.    *       Like routine GFMOTH                                      *
  17 C.    *                                                                *
  18 C.    *       NAME = volume name (input)                               *
  19 C.    *       MOTH = mother name of NAME (output)                      *
  20 C.    *       IONL = 'ONLY' flag (1 for 'ONLY', 0 for 'MANY') (output) *
  21 C.    *                                                                *
  22 C.    *    ==>Called by : GDTREE                                       *
  23 C.    *       Author : P.Zanarini   *********                          *
  24 C.    *                                                                *
  25 C.    ******************************************************************
  26 C.
  27 #include "geant321/gcdraw.inc"
  28 #include "geant321/gcbank.inc"
  29 #include "geant321/gcnum.inc"
  30       CHARACTER*4 NAME,MOTH
  31 C.
  32 C.    ------------------------------------------------------------------
  33 C.
  34       IONL=1
  35       CALL GLOOK(NAME,IQ(JNAM1+1),NUMND1,J)
  36       JM=IQ(JMOT1+J)
  37       IF (JM.EQ.0) GO TO 999
  38       CALL UHTOC(IQ(JNAM1+JM),4,MOTH,4)
  39       CALL GLOOK(MOTH,IQ(JVOLUM+1),NVOLUM,IVOMOT)
  40       CALL GLOOK(NAME,IQ(JVOLUM+1),NVOLUM,IVOSON)
  41       JVO=LQ(JVOLUM-IVOMOT)
  42       NIN=Q(JVO+3)
  43       MNIN=NIN
  44       IF (NIN.LT.0) MNIN=1
  45       DO 10 IN=1,MNIN
  46          JIN=LQ(JVO-IN)
  47          IVO=Q(JIN+2)
  48          IF (IVO.EQ.IVOSON) GO TO 20
  49    10 CONTINUE
  50       GO TO 999
  51    20 CONTINUE
  52       IF (NIN.GT.0) IONL=Q(JIN+8)
  53   999 RETURN
  54       END
  55