GEANT321/geocad/gspset.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1999/05/18 15:55:17  fca
   6 * AliRoot sources
   7 *
   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
  27       DIMENSION PAR(100)
  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