GEANT321/ggeom/gfmoth.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1995/10/24 10:20:49  cernlib
   6 * Geant
   7 *
   8 *
   9 #include "geant321/pilot.h"
  10 *CMZ :  3.21/03 17/10/94  10.37.07  by  S.Giani
  11 *-- Author :
  12       SUBROUTINE GFMOTH(NAME,MOTHER,KONLY)
  13 C.
  14 C.    ******************************************************************
  15 C.    *                                                                *
  16 C.    *       Fetch MOTHER and ONLY-flag of volume NAME                *
  17 C.    *                                                                *
  18 C.    *    ==>Called by : no more used                                 *
  19 C.    *         Author  P.Zanarini  *********                          *
  20 C.    *                                                                *
  21 C.    ******************************************************************
  22 C.
  23 #include "geant321/gcbank.inc"
  24 #include "geant321/gcnum.inc"
  25       COMMON/FMOTH/INGLOB,IVOMGL
  26       CHARACTER*4 NAME,MOTHER
  27 C.
  28 C.    ------------------------------------------------------------------
  29 C.
  30       MOTHER=' '
  31       CALL GLOOK(NAME,IQ(JVOLUM+1),NVOLUM,IVOSON)
  32       IF(IVOSON.LE.0)GO TO 999
  33       DO 20 IVOMOT=1,NVOLUM
  34         IVOMGL=IVOMOT
  35         JVO=LQ(JVOLUM-IVOMOT)
  36         NIN=Q(JVO+3)
  37         MNIN=NIN
  38         IF (NIN.LT.0) MNIN=1
  39         DO 10 IN=1,MNIN
  40           INGLOB=IN
  41           JIN = LQ(JVO-IN)
  42           IVO=Q(JIN+2)
  43           IF (IVO.EQ.IVOSON) GO TO 30
  44    10   CONTINUE
  45    20 CONTINUE
  46    30 CALL UHTOC(IQ(JVOLUM+IVOMOT),4,MOTHER,4)
  47       KONLY=1
  48       IF (NIN.GT.0) KONLY=Q(JIN+8)
  49  999  RETURN
  50       END