GEANT321/geocad/getshp.F

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