5 * Revision 1.1.1.1 1995/10/24 10:20:30 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 29/03/94 15.41.28 by S.Giani
12 SUBROUTINE GFIND(NAME,IAT,ISVALS)
14 C. ******************************************************************
16 C. * For attribute IAT find value ISVALS *
17 C. * for the volume NAME *
19 C. * 1: 'WORK' 0=volume inactive 1=active volume *
20 C. * 2: 'SEEN' 0=unseen 1=seen -1,-2=tree unseen -3=tree opt. *
21 C. * 3: 'LSTY' line style 1,2,3,... *
22 C. * 4: 'LWID' line width 1,2,3,... *
23 C. * 5: 'COLO' color code 1,2,3,... *
24 C. * 6: 'FILL' fill area 0,1,2,... *
25 C. * 7: 'SET ' set number associated to this volume *
26 C. * 8: 'DET ' detector number associated to this volume *
27 C. * 9: 'DTYP' detector type (1,2) *
28 C. * 10: 'NODE' <>0=a node is created for 3D (PIONS,GMR,etc.) *
30 C. * ==>Called by : <USER>, <GXINT>, GDPRTR,GDSPEC,GDTREE,GSDET, *
31 C. * GSDETV,GSDVN,GSDVN2,GSDVT,GSDVT2,GSVOLU *
32 C. * Author S.Giani ********* *
34 C. ******************************************************************
36 #include "geant321/gcbank.inc"
37 #include "geant321/gcnum.inc"
38 #include "geant321/gcunit.inc"
39 CHARACTER*4 KATT(10),NAME,IAT
42 DATA KATT/'WORK','SEEN','LSTY','LWID','COLO','FILL','SET ',
43 +'DET ','DTYP','NODE'/
46 C. ------------------------------------------------------------------
48 C CHECK IF OPTION EXISTS
52 CALL UCTOH(KATT,LATT,4,40)
58 C CHECK IF OPTION EXISTS
60 CALL GLOOK(IAT,LATT,10,IOP)
65 C CHECK IF VOLUME EXISTS
67 10 IF(JVOLUM.GT.0)GO TO 20
68 WRITE(CHMAIL,1000)NAME
72 20 IF(NAME(1:1).EQ.'*')GO TO 40
73 CALL GLOOK(NAME,IQ(JVOLUM+1),NVOLUM,IVOLU)
74 IF(IVOLU.GT.0)GO TO 30
75 WRITE(CHMAIL,1000)NAME
79 30 JVO=LQ(JVOLUM-IVOLU)
81 ISVALS=Q(JVO+NPAR+IPS-1+IOP)
84 C SET OPTION VALUE FOR ALL DEFINED VOLUMES
91 ISVALS=Q(JVO+NPAR+IPS-1+IOP)
94 1000 FORMAT(' GSATT VOLUME ',A4,' DOES NOT EXIST ')
95 2000 FORMAT(' GSATT OPTION ',A4,' NOT IMPLEMENTED ')