5 * Revision 1.1.1.1 1995/10/24 10:20:47 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 29/03/94 15.41.32 by S.Giani
12 SUBROUTINE GSPSET(PAR)
14 C- Created 12-JUN-1991 Nils Joar Hoimyr
15 C- Modified 21.02.1992 Jouko Vuoskoski
17 C- Takes a GEANT SPHE shape, and wites it out as a primitive solid
19 C----------------------------------------------------------------------
21 #include "geant321/gcsetf.inc"
28 C Segments not yet ready:
29 C REAL ALPH1, ALPH2, THET1, THET2
31 C----------------------------------------------------------------------
36 C IF segment of a sphere THEN (Currently not implemented)
37 C *WRITE SET @50,N..#34,RMAX,ALPH1,ALPH2,THET1,THET2,RMIN
39 C *WRITE SET @50,N..#34,RMAX,,,,,RMIN
40 C----------------------------------------------------------------------
42 WRITE(BLKSTR,10000)N1,RMAX,RMIN
45 10000 FORMAT('@50,',I10,',:5,2#34,',G14.7,',,,,,',G14.7)