[u/mrichter/AliRoot.git] / GEANT321 / ggeom / gfatt.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1995/10/24 10:20:48  cernlib
* Geant
*
*
#include "geant321/pilot.h"
*CMZ :  3.21/02 29/03/94  15.41.28  by  S.Giani
*-- Author :
      SUBROUTINE GFATT(NAME,IAT,IVAL)
C.
C.    ******************************************************************
C.    *                                                                *
C.    *        Fetch value IVAL of attribute IAT                       *
C.    *        for the volume NAME                                     *
C.    *                                                                *
C.    *    ==>Called by : GDPRTR,GDSPEC,GDTREE,GDTR1                   *
C.    *       Author  R.Brun, P.Zanarini  **********                   *
C.    *                                                                *
C.    ******************************************************************
C.
#include "geant321/gcbank.inc"
#include "geant321/gcnum.inc"
#include "geant321/gcunit.inc"
      CHARACTER*4 NAME,IAT,KATT(10)
      DIMENSION LATT(10)
      SAVE IFIRST,KATT,LATT
      DATA KATT/'WORK','SEEN','LSTY','LWID','COLO','FILL','SET ',
     +'DET ','DTYP','NODE'/
      DATA IFIRST/0/
C.
C.    ------------------------------------------------------------------
C.
C              CHECK IF OPTION EXISTS
C
      IF(NAME.EQ.' ')GO TO 99
      IF(IFIRST.EQ.0)THEN
         IFIRST=1
         CALL UCTOH(KATT,LATT,4,40)
      ENDIF
C
      CALL GLOOK(IAT,LATT,10,IOP)
      IF(IOP.GT.0)GO TO 10
      WRITE(CHMAIL,2000)IAT
      CALL GMAIL(0,0)
      GO TO 99
C
C              CHECK IF VOLUME EXISTS
C
  10  CALL GLOOK(NAME,IQ(JVOLUM+1),NVOLUM,IVOLU)
      IF(IVOLU.GT.0)GO TO 30
      WRITE(CHMAIL,1000)NAME
      CALL GMAIL(0,0)
      GO TO 99
C
  30  JVO=LQ(JVOLUM-IVOLU)
      NPAR=Q(JVO+5)
      IVAL=Q(JVO+NPAR+6+IOP)
      GO TO 99
C
 1000 FORMAT(' GFATT VOLUME ',A4,' DOES NOT EXIST ')
 2000 FORMAT(' GFATT OPTION ',A4,' NOT IMPLEMENTED ')
  99  RETURN
      END
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.1.1.1 1995/10/24 10:20:48 cernlib
	6	* Geant
	7	*
	8	*
	9	#include "geant321/pilot.h"
	10	*CMZ : 3.21/02 29/03/94 15.41.28 by S.Giani
	11	*-- Author :
	12	SUBROUTINE GFATT(NAME,IAT,IVAL)
	13	C.
	14	C. ******************************************************************
	15	C. * *
	16	C. * Fetch value IVAL of attribute IAT *
	17	C. * for the volume NAME *
	18	C. * *
	19	C. * ==>Called by : GDPRTR,GDSPEC,GDTREE,GDTR1 *
	20	C. * Author R.Brun, P.Zanarini ********** *
	21	C. * *
	22	C. ******************************************************************
	23	C.
	24	#include "geant321/gcbank.inc"
	25	#include "geant321/gcnum.inc"
	26	#include "geant321/gcunit.inc"
	27	CHARACTER*4 NAME,IAT,KATT(10)
	28	DIMENSION LATT(10)
	29	SAVE IFIRST,KATT,LATT
	30	DATA KATT/'WORK','SEEN','LSTY','LWID','COLO','FILL','SET ',
	31	+'DET ','DTYP','NODE'/
	32	DATA IFIRST/0/
	33	C.
	34	C. ------------------------------------------------------------------
	35	C.
	36	C CHECK IF OPTION EXISTS
	37	C
	38	IF(NAME.EQ.' ')GO TO 99
	39	IF(IFIRST.EQ.0)THEN
	40	IFIRST=1
	41	CALL UCTOH(KATT,LATT,4,40)
	42	ENDIF
	43	C
	44	CALL GLOOK(IAT,LATT,10,IOP)
	45	IF(IOP.GT.0)GO TO 10
	46	WRITE(CHMAIL,2000)IAT
	47	CALL GMAIL(0,0)
	48	GO TO 99
	49	C
	50	C CHECK IF VOLUME EXISTS
	51	C
	52	10 CALL GLOOK(NAME,IQ(JVOLUM+1),NVOLUM,IVOLU)
	53	IF(IVOLU.GT.0)GO TO 30
	54	WRITE(CHMAIL,1000)NAME
	55	CALL GMAIL(0,0)
	56	GO TO 99
	57	C
	58	30 JVO=LQ(JVOLUM-IVOLU)
	59	NPAR=Q(JVO+5)
	60	IVAL=Q(JVO+NPAR+6+IOP)
	61	GO TO 99
	62	C
	63	1000 FORMAT(' GFATT VOLUME ',A4,' DOES NOT EXIST ')
	64	2000 FORMAT(' GFATT OPTION ',A4,' NOT IMPLEMENTED ')
65	99 RETURN
66	END