GEANT321/geocad/gboset.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:46  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 GBOSET(PAR)
  16 C-   Created  12-JUN-1991   Nils Joar Hoimyr, Jouko Vuoskoski
  17 C-   Modified 21.02.1992  Jouko Vuoskoski
  18 C-
  19 C- Takes the GEANT shape BOX, converts it to a SET box, with
  20 C- the right position and writes the shape to the current SET file.
  21 C -
  22 C----------------------------------------------------------------------
  23 C
  24 #include "geant321/gcsetf.inc"
  25
  26 C
  27       REAL      PAR
  28       DIMENSION PAR(100)
  29 C
  30       REAL X,Y,Z,DX,DY,DZ
  31 C
  32 C
  33 C----------------------------------------------------------------------
  34 C
  35 C             BOX
  36 C
  37       DX=PAR(1)
  38       DY=PAR(2)
  39       DZ=PAR(3)
  40       X=2*DX
  41       Y=2*DY
  42       Z=2*DZ
  43 C *WRITE SET @50,N1,:5,2#60,X,Y,Z
  44 C *WRITE SET @302,N2,#317,-DX,-DY,-DZ
  45 C *WRITE SET @100,N3,:5,2,:9,'Name'#101,!N1,!N2
  46 C
  47 C-------------------------------------------------------------------
  48 C
  49       WRITE(BLKSTR,10000)N1, X, Y, Z
  50       CALL GJWRIT
  51       N1=N1+1
  52       WRITE(BLKSTR,10100)N1,-DX,-DY,-DZ
  53       CALL GJWRIT
  54       N1=N1+1
  55       WRITE(BLKSTR,10200)N1,N1-2,N1-1
  56       CALL GJWRIT
  57 C
  58 10000   FORMAT('@50,',I10,',:5,2#60,',G14.7,',',G14.7,',',G14.7)
  59 10100   FORMAT('@302,',I10,'#317,',G14.7,',',G14.7,',',G14.7)
  60 10200   FORMAT('@100,',I10,',:5,2#101,!',I10,',!',I10)
  61 C
  62 C
  63 C
  64       END