]>
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:47 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 GSPSET(PAR) | |
16 | C- | |
17 | C- Created 12-JUN-1991 Nils Joar Hoimyr | |
18 | C- Modified 21.02.1992 Jouko Vuoskoski | |
19 | C- | |
20 | C- Takes a GEANT SPHE shape, and wites it out as a primitive solid | |
21 | C- sphere in SET. | |
22 | C---------------------------------------------------------------------- | |
23 | ||
24 | #include "geant321/gcsetf.inc" | |
25 | ||
26 | C | |
d43b40e2 | 27 | DIMENSION PAR(100) |
fe4da5cc | 28 | C |
29 | REAL RMIN, RMAX | |
30 | C | |
31 | C Segments not yet ready: | |
32 | C REAL ALPH1, ALPH2, THET1, THET2 | |
33 | C | |
34 | C---------------------------------------------------------------------- | |
35 | C | |
36 | RMIN= PAR(1) | |
37 | RMAX= PAR(2) | |
38 | C | |
39 | C IF segment of a sphere THEN (Currently not implemented) | |
40 | C *WRITE SET @50,N..#34,RMAX,ALPH1,ALPH2,THET1,THET2,RMIN | |
41 | C ELSE | |
42 | C *WRITE SET @50,N..#34,RMAX,,,,,RMIN | |
43 | C---------------------------------------------------------------------- | |
44 | C | |
45 | WRITE(BLKSTR,10000)N1,RMAX,RMIN | |
46 | CALL GJWRIT | |
47 | C | |
48 | 10000 FORMAT('@50,',I10,',:5,2#34,',G14.7,',,,,,',G14.7) | |
49 | C | |
50 | END |