5 * Revision 1.1.1.1 1995/10/24 10:20:28 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 29/03/94 15.41.27 by S.Giani
12 SUBROUTINE GDSON(N,NAME,ISON)
14 C. ******************************************************************
16 C. * Returns in ISON the N-th son of object NAME *
18 C. * ==>Called by : GDPRTR, GDSPEC, GDTR1 *
19 C. * Author : P.Zanarini ********* *
21 C. ******************************************************************
23 #include "geant321/gcbank.inc"
24 #include "geant321/gcnum.inc"
27 C. ------------------------------------------------------------------
30 CALL GLOOK(NAME,IQ(JVOLUM+1),NVOLUM,IVO)
31 IF (IVO.LE.0) GO TO 999
34 IF (NIN.EQ.0) GO TO 999
35 IF (NIN.GT.0) GO TO 10
41 CALL UHTOC(IQ(JVOLUM+IVOL),4,ISON,4)