[u/mrichter/AliRoot.git] / GEANT321 / geocad / getshp.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1999/05/18 15:55:17  fca
* AliRoot sources
*
* Revision 1.1.1.1  1995/10/24 10:20:46  cernlib
* Geant
*
*
#include "geant321/pilot.h"
*CMZ :  3.21/02 29/03/94  15.41.32  by  S.Giani
*-- Author :
      SUBROUTINE GETSHP(ISHAPE,PAR)
C.
C.    ******************************************************************
C.    *                                                                *
C.    *       Converts GEANT SHAPES to SET. Calls  Subroutines for     *
C.    *       shape definition in SET are called
C.    *                                                                *
C.    *                                                                *
C.    *                                                                *
C.    * SHAPE     SHAPE    SHAPE                                       *
C.    * NUMBER    TYPE     PARAMETERS                                  *
C.    * -------------------------------------------------------------- *
C.    *                                                                *
C.    *   1       BOX      DX,DY,DZ                                    *
C.    *   2       TRD1     DX1,DX2,DY,DZ                               *
C.    *   3       TRD2     DX1,DX2,DY1,DY2,DZ                          *
C.    *   4       TRAP     DZ,TX,TY,H1,BL1,TL1,TTH1,H2,BL2,TL2,TTH2    *
C.    *                                                                *
C.    *   5       TUBE     RMIN,RMAX,DZ                                *
C.    *   6       TUBS     RMIN,RMAX,DZ,PHIMIN,PHIMAX                  *
C.    *   7       CONE     DZ,RMIN1,RMAX1,RMIN2,RMAX2                  *
C.    *   8       CONS     DZ,RMIN1,RMAX1,RMIN2,RMAX2,PHIMIN,PHIMAX    *
C.    *                                                                *
C.    *   9       SPHE     RMIN,RMAX,THEMIN,THEMAX,PHIMIN,PHIMAX       *
C.    *                                                                *
C.    *  10       PARA     DX,DY,DZ,TXY,TXZ,TYZ                        *
C.    *  11       PGON     PHIMIN,DPHI,NDIV,NZ,Z(1),RMIN(1),RMAX(1),...*
C.    *  12       PCON     PHIMIN,DPHI,NZ,Z(1),RMIN(1),RMAX(1),Z(2),...*
C.    *  13       ELTU     A,B,DZ                                      *
C.    *  14       HYPE     RMIN,RMAX,DZ,PHI
C.    *  NSGTRA   GTRA     DZ,TH,PHI,TWIST,Y1,XL1,XH1,TH1,Y2,XL2,XH2,..*
C.    *  NSCTUB   CTUB     RMIN,RMAX,DZ,PHIMIN,PHIMAX,LXL,LYL,LZL,LXH,.*
C.    *                                                                *
C.    *    ==>Called by : GDEXCA
C.    *                                                                *
C.    *       Authors : NJ Hoimyr, J Vuoskoski     *********           *
C.    ******************************************************************
C. -------------------------------------------------------
#include "geant321/gcsetf.inc"
 
 
      DIMENSION PAR(100)
C
C----------------------------------------------------------
C     IF SHAPE THEN LOOP FOR SET OUTPUT
C
      IF (ISHAPE.EQ.1) THEN
C
C       BOX
         CALL GBOSET(PAR)
C
      ELSEIF (ISHAPE.EQ.2) THEN
C
C       TRD1
         CALL GTRDSE(PAR,ISHAPE)
C
      ELSEIF (ISHAPE.EQ.3) THEN
C
C       TRD2
         CALL GTRDSE(PAR,ISHAPE)
C
      ELSEIF (ISHAPE.EQ.4) THEN
C       TRAP
         CALL GTRASE(PAR)
C
      ELSEIF (ISHAPE.EQ.5) THEN
C
C             TUBE
         CALL GTUSET(PAR,ISHAPE)
C
      ELSEIF (ISHAPE.EQ.6) THEN
C
C             TUBS
         CALL GTUSET(PAR,ISHAPE)
C
      ELSEIF (ISHAPE.EQ.7) THEN
C
C             CONE
         CALL GCOSET(PAR,ISHAPE)
C
      ELSEIF (ISHAPE.EQ.8) THEN
C
C             CONS
         CALL GCOSET(PAR,ISHAPE)
C
      ELSEIF (ISHAPE.EQ.9) THEN
C
C             SPHE
         CALL GSPSET(PAR)
C
      ELSEIF (ISHAPE.EQ.10) THEN
C
C             PARA
         CALL GPASET(PAR)
C
      ELSEIF (ISHAPE.EQ.11) THEN
C
C             PGON
         CALL GPGSET(PAR)
C
      ELSEIF (ISHAPE.EQ.12) THEN
C
C             PCON
         CALL GPCSET(PAR)
C
      ELSEIF (ISHAPE.EQ.13) THEN
C
C             ELTU
         CALL GELSET(PAR)
C
C      ELSEIF (ISHAPE.EQ.14) THEN
C     not ready yet
C
C             HYPE
C        CALL HYPSET(PAR)
C
 
      ELSEIF (ISHAPE.EQ.28) THEN
C
C             GTRA
         CALL GTRSET(PAR)
C
      ELSEIF (ISHAPE.EQ.29) THEN
C
C             CTUB
         CALL GCTSET(PAR)
      ELSE
C
C   New shapes could be included
C
      END IF
C
      RETURN
      END
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
d43b40e2	5	* Revision 1.1.1.1 1999/05/18 15:55:17 fca
	6	* AliRoot sources
	7	*
fe4da5cc	8	* Revision 1.1.1.1 1995/10/24 10:20:46 cernlib
	9	* Geant
	10	*
	11	*
	12	#include "geant321/pilot.h"
	13	*CMZ : 3.21/02 29/03/94 15.41.32 by S.Giani
	14	*-- Author :
	15	SUBROUTINE GETSHP(ISHAPE,PAR)
	16	C.
	17	C. ******************************************************************
	18	C. * *
	19	C. * Converts GEANT SHAPES to SET. Calls Subroutines for *
	20	C. * shape definition in SET are called
	21	C. * *
	22	C. * *
	23	C. * *
	24	C. * SHAPE SHAPE SHAPE *
	25	C. * NUMBER TYPE PARAMETERS *
	26	C. * -------------------------------------------------------------- *
	27	C. * *
	28	C. * 1 BOX DX,DY,DZ *
	29	C. * 2 TRD1 DX1,DX2,DY,DZ *
	30	C. * 3 TRD2 DX1,DX2,DY1,DY2,DZ *
	31	C. * 4 TRAP DZ,TX,TY,H1,BL1,TL1,TTH1,H2,BL2,TL2,TTH2 *
	32	C. * *
	33	C. * 5 TUBE RMIN,RMAX,DZ *
	34	C. * 6 TUBS RMIN,RMAX,DZ,PHIMIN,PHIMAX *
	35	C. * 7 CONE DZ,RMIN1,RMAX1,RMIN2,RMAX2 *
	36	C. * 8 CONS DZ,RMIN1,RMAX1,RMIN2,RMAX2,PHIMIN,PHIMAX *
	37	C. * *
	38	C. * 9 SPHE RMIN,RMAX,THEMIN,THEMAX,PHIMIN,PHIMAX *
	39	C. * *
	40	C. * 10 PARA DX,DY,DZ,TXY,TXZ,TYZ *
	41	C. * 11 PGON PHIMIN,DPHI,NDIV,NZ,Z(1),RMIN(1),RMAX(1),...*
	42	C. * 12 PCON PHIMIN,DPHI,NZ,Z(1),RMIN(1),RMAX(1),Z(2),...*
	43	C. * 13 ELTU A,B,DZ *
	44	C. * 14 HYPE RMIN,RMAX,DZ,PHI
	45	C. * NSGTRA GTRA DZ,TH,PHI,TWIST,Y1,XL1,XH1,TH1,Y2,XL2,XH2,..*
	46	C. * NSCTUB CTUB RMIN,RMAX,DZ,PHIMIN,PHIMAX,LXL,LYL,LZL,LXH,.*
	47	C. * *
	48	C. * ==>Called by : GDEXCA
	49	C. * *
	50	C. * Authors : NJ Hoimyr, J Vuoskoski ********* *
	51	C. ******************************************************************
	52	C. -------------------------------------------------------
	53	#include "geant321/gcsetf.inc"
	54
	55
d43b40e2	56	DIMENSION PAR(100)
fe4da5cc	57	C
	58	C----------------------------------------------------------
	59	C IF SHAPE THEN LOOP FOR SET OUTPUT
	60	C
	61	IF (ISHAPE.EQ.1) THEN
	62	C
	63	C BOX
	64	CALL GBOSET(PAR)
	65	C
	66	ELSEIF (ISHAPE.EQ.2) THEN
	67	C
	68	C TRD1
	69	CALL GTRDSE(PAR,ISHAPE)
	70	C
	71	ELSEIF (ISHAPE.EQ.3) THEN
	72	C
	73	C TRD2
	74	CALL GTRDSE(PAR,ISHAPE)
	75	C
	76	ELSEIF (ISHAPE.EQ.4) THEN
	77	C TRAP
	78	CALL GTRASE(PAR)
	79	C
	80	ELSEIF (ISHAPE.EQ.5) THEN
	81	C
	82	C TUBE
	83	CALL GTUSET(PAR,ISHAPE)
	84	C
	85	ELSEIF (ISHAPE.EQ.6) THEN
	86	C
	87	C TUBS
	88	CALL GTUSET(PAR,ISHAPE)
	89	C
	90	ELSEIF (ISHAPE.EQ.7) THEN
	91	C
	92	C CONE
	93	CALL GCOSET(PAR,ISHAPE)
	94	C
	95	ELSEIF (ISHAPE.EQ.8) THEN
	96	C
	97	C CONS
	98	CALL GCOSET(PAR,ISHAPE)
	99	C
	100	ELSEIF (ISHAPE.EQ.9) THEN
	101	C
	102	C SPHE
	103	CALL GSPSET(PAR)
	104	C
	105	ELSEIF (ISHAPE.EQ.10) THEN
	106	C
	107	C PARA
	108	CALL GPASET(PAR)
	109	C
	110	ELSEIF (ISHAPE.EQ.11) THEN
	111	C
	112	C PGON
	113	CALL GPGSET(PAR)
	114	C
	115	ELSEIF (ISHAPE.EQ.12) THEN
	116	C
	117	C PCON
	118	CALL GPCSET(PAR)
	119	C
	120	ELSEIF (ISHAPE.EQ.13) THEN
121	C
122	C ELTU
123	CALL GELSET(PAR)
124	C
125	C ELSEIF (ISHAPE.EQ.14) THEN
126	C not ready yet
127	C
128	C HYPE
129	C CALL HYPSET(PAR)
130	C
131
132	ELSEIF (ISHAPE.EQ.28) THEN
133	C
134	C GTRA
135	CALL GTRSET(PAR)
136	C
137	ELSEIF (ISHAPE.EQ.29) THEN
138	C
139	C CTUB
140	CALL GCTSET(PAR)
141	ELSE
142	C
143	C New shapes could be included
144	C
145	END IF
146	C
147	RETURN
148	END