Bugfix in AliPoints2Memory
[u/mrichter/AliRoot.git] / GEANT321 / gdraw / gdtr8.F
CommitLineData
fe4da5cc 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)
13C.
14C. ******************************************************************
15C. * *
16C. * Like routine GFMOTH *
17C. * *
18C. * NAME = volume name (input) *
19C. * MOTH = mother name of NAME (output) *
20C. * IONL = 'ONLY' flag (1 for 'ONLY', 0 for 'MANY') (output) *
21C. * *
22C. * ==>Called by : GDTREE *
23C. * Author : P.Zanarini ********* *
24C. * *
25C. ******************************************************************
26C.
27#include "geant321/gcdraw.inc"
28#include "geant321/gcbank.inc"
29#include "geant321/gcnum.inc"
30 CHARACTER*4 NAME,MOTH
31C.
32C. ------------------------------------------------------------------
33C.
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