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