Bugfix in AliPoints2Memory
[u/mrichter/AliRoot.git] / GEANT321 / ggeom / gfmoth.F
CommitLineData
fe4da5cc 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)
13C.
14C. ******************************************************************
15C. * *
16C. * Fetch MOTHER and ONLY-flag of volume NAME *
17C. * *
18C. * ==>Called by : no more used *
19C. * Author P.Zanarini ********* *
20C. * *
21C. ******************************************************************
22C.
23#include "geant321/gcbank.inc"
24#include "geant321/gcnum.inc"
25 COMMON/FMOTH/INGLOB,IVOMGL
26 CHARACTER*4 NAME,MOTHER
27C.
28C. ------------------------------------------------------------------
29C.
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