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

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1995/10/24 10:20:47  cernlib
* Geant
*
*
#include "geant321/pilot.h"
*CMZ :  3.21/02 29/03/94  15.41.32  by  S.Giani
*-- Author :
      SUBROUTINE GTUSET(PAR,ISHAPE)
C-
C-   Created  12-JUN-1991   Nils Joar Hoimyr
C-   Modified 21.02.1992  Jouko Vuoskoski
C-
C   Converts GEANT shapes TUBE&TUBS to SET
C-
C-   Describes a contour face of a TUBE(Segment) from the GEANT
C-   TUBE/TUBS shape parameters.  This face is rotated around the
C-   Z-axis to generated the solid shape in SET.
C
C---------------------------------------------------------------------
C
#include "geant321/gcsetf.inc"
 
C
      DIMENSION PAR(50)
      REAL DX1,DZ,RMIN,RMAX,PHIMIN,PHIMAX,Z2
C
C----------------------------------------------------------------------
C
      RMIN=PAR(1)
      RMAX=PAR(2)
      Z2=PAR(3)
      IF (ISHAPE.EQ.5) THEN
         PHIMIN=0.0
         PHIMAX=360.0
      ELSEIF (ISHAPE.EQ.6) THEN
         PHIMIN=PAR(4)
         PHIMAX=PAR(5)
      ENDIF
C       SET CONVERSION
      Z= 2*Z2
      DX1=0.0
      DY=0.0
      DZ=Z2
      IF (RMAX .LE. 0.0) THEN
         WRITE (*,*) 'IMPOSSIBLE RADIUS VALUE'
         N1=N1-1
         GOTO 10
      ENDIF
C *WRITE SET @50,N1,:5,2#32,RMAX,Z,PHIMIN,PHIMAX,RMIN
C *WRITE SET @302,N2,:5,2#317,0,0,-Z2
C *WRITE SET @100,N3,:5,2,:9,'MATNAM'#101,!N1,!N2
C-------------------------------------------------------------------
C
      WRITE(BLKSTR,10000)N1,RMAX,Z,PHIMIN,PHIMAX,RMIN
      CALL GJWRIT
      N1=N1+1
      WRITE(BLKSTR,10100)N1,-DX1,-DY,-DZ
      CALL GJWRIT
      N1=N1+1
      WRITE(BLKSTR,10200)N1,N1-2,N1-1
      CALL GJWRIT
C
10000   FORMAT('@50,',I10,',:5,2#32,',G14.7,',',G14.7,','
     +  ,G14.7,',',G14.7,',',G14.7)
10100   FORMAT('@302,',I10,'#317,',G14.7,',',G14.7,',',G14.7)
10200   FORMAT('@100,',I10,',:5,2#101,!',I10,',!',I10)
C
   10 RETURN
      END
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.1.1.1 1995/10/24 10:20:47 cernlib
	6	* Geant
	7	*
	8	*
	9	#include "geant321/pilot.h"
	10	*CMZ : 3.21/02 29/03/94 15.41.32 by S.Giani
	11	*-- Author :
	12	SUBROUTINE GTUSET(PAR,ISHAPE)
	13	C-
	14	C- Created 12-JUN-1991 Nils Joar Hoimyr
	15	C- Modified 21.02.1992 Jouko Vuoskoski
	16	C-
	17	C Converts GEANT shapes TUBE&TUBS to SET
	18	C-
	19	C- Describes a contour face of a TUBE(Segment) from the GEANT
	20	C- TUBE/TUBS shape parameters. This face is rotated around the
	21	C- Z-axis to generated the solid shape in SET.
	22	C
	23	C---------------------------------------------------------------------
	24	C
	25	#include "geant321/gcsetf.inc"
	26
	27	C
	28	DIMENSION PAR(50)
	29	REAL DX1,DZ,RMIN,RMAX,PHIMIN,PHIMAX,Z2
	30	C
	31	C----------------------------------------------------------------------
	32	C
	33	RMIN=PAR(1)
	34	RMAX=PAR(2)
	35	Z2=PAR(3)
	36	IF (ISHAPE.EQ.5) THEN
	37	PHIMIN=0.0
	38	PHIMAX=360.0
	39	ELSEIF (ISHAPE.EQ.6) THEN
	40	PHIMIN=PAR(4)
	41	PHIMAX=PAR(5)
	42	ENDIF
	43	C SET CONVERSION
	44	Z= 2*Z2
	45	DX1=0.0
	46	DY=0.0
	47	DZ=Z2
	48	IF (RMAX .LE. 0.0) THEN
	49	WRITE (,) 'IMPOSSIBLE RADIUS VALUE'
	50	N1=N1-1
	51	GOTO 10
	52	ENDIF
	53	C *WRITE SET @50,N1,:5,2#32,RMAX,Z,PHIMIN,PHIMAX,RMIN
	54	C *WRITE SET @302,N2,:5,2#317,0,0,-Z2
	55	C *WRITE SET @100,N3,:5,2,:9,'MATNAM'#101,!N1,!N2
	56	C-------------------------------------------------------------------
	57	C
	58	WRITE(BLKSTR,10000)N1,RMAX,Z,PHIMIN,PHIMAX,RMIN
	59	CALL GJWRIT
	60	N1=N1+1
	61	WRITE(BLKSTR,10100)N1,-DX1,-DY,-DZ
	62	CALL GJWRIT
	63	N1=N1+1
	64	WRITE(BLKSTR,10200)N1,N1-2,N1-1
65	CALL GJWRIT
66	C
67	10000 FORMAT('@50,',I10,',:5,2#32,',G14.7,',',G14.7,','
68	+ ,G14.7,',',G14.7,',',G14.7)
69	10100 FORMAT('@302,',I10,'#317,',G14.7,',',G14.7,',',G14.7)
70	10200 FORMAT('@100,',I10,',:5,2#101,!',I10,',!',I10)
71	C
72	10 RETURN
73	END