1 | * This code implementation is the intellectual property of |
---|
2 | * the GEANT4 collaboration. |
---|
3 | * |
---|
4 | * By copying, distributing or modifying the Program (or any work |
---|
5 | * based on the Program) you indicate your acceptance of this statement, |
---|
6 | * and all its terms. |
---|
7 | * |
---|
8 | * $Id: g3test.F.main,v 1.2 1999/12/05 17:50:16 gcosmo Exp $ |
---|
9 | * GEANT4 tag $Name: $ |
---|
10 | * |
---|
11 | * |
---|
12 | * g3test |
---|
13 | * |
---|
14 | * Test G3toG4 Geant3 -> Geant4 geometry code convertor |
---|
15 | * |
---|
16 | implicit none |
---|
17 | real par(20), bratio(6) |
---|
18 | integer npar, i, ivol, mode(6), idum |
---|
19 | character*4 charray(10) |
---|
20 | integer iarray(10) |
---|
21 | npar = 3 |
---|
22 | do i=1,3 |
---|
23 | par(i) = i**2 |
---|
24 | enddo |
---|
25 | call G3toG4(10,11,' ') |
---|
26 | call g3context('TRAK') |
---|
27 | call gsmate(1,'material 1',16.,8.,1.001,.0002,.3,par,3) |
---|
28 | call gstmed(1,'muon med',1,1,2,1.5,5.,.3,.001,.00001, |
---|
29 | + .0000001, par, 3) |
---|
30 | call gsmixt(2,'mixture 2',16.,8.,.77,-3,par) |
---|
31 | call gsvolu('NAM1','BOX ', 1, par, npar, ivol) |
---|
32 | call gsmate(3,'material 3',16.,8.,1.001,.0002,.3,par,3) |
---|
33 | call gstmed(2,'trak med',3,1,2,1.5,5.,.3,.001,.00001, |
---|
34 | + .0000001, par, 3) |
---|
35 | call gsmixt(4,'mixture 4',16.,8.,.77,3,par) |
---|
36 | call gsvolu('NAM2','TUBS', 2, par, npar, ivol) |
---|
37 | call gsvolu('NAM3','TUBS', 2, par, npar, ivol) |
---|
38 | call gsvolu('NAM4','TUBS', 2, par, npar, ivol) |
---|
39 | call gsvolu('NAM5','TUBS', 2, par, npar, ivol) |
---|
40 | call gsvolu('NAM6','TUBS', 2, par, npar, ivol) |
---|
41 | call gspos('NAM2', 3, 'NAM1', 10., 20., 30., 0, 'ONLY') |
---|
42 | c call gsposp('NAMP', 3, 'MOTH', 10., 20., 30., 99, 'ONLY', |
---|
43 | c + par, npar) |
---|
44 | call gsatt('NAM1', 'COLO', 66) |
---|
45 | call gsrotm(44, 90., 91., 180., 181., -270., -271.) |
---|
46 | call gsdvn('NDVN','NAM2',22,3) |
---|
47 | call gsdvt('NDV2','NAM3',2.,1,-1,20) |
---|
48 | call gsdvx('NDV3','NAM4',6,3,2.,0.,2,20) |
---|
49 | call gsdvn2('NDV4','NAM5',6,3,0.,2) |
---|
50 | call gsdvt2('NDV5','NAM5',1.5,1,0.,2,20) |
---|
51 | call gstpar(33,'PHOT',2.) |
---|
52 | call gspart(22,'particle',8,91.14,0.,1.e-24,0.,0) |
---|
53 | bratio(1)=1.1 |
---|
54 | bratio(2)=2.2 |
---|
55 | bratio(3)=3.3 |
---|
56 | bratio(4)=4.4 |
---|
57 | bratio(5)=5.5 |
---|
58 | bratio(6)=6.6 |
---|
59 | mode(1)=101 |
---|
60 | mode(2)=202 |
---|
61 | mode(3)=303 |
---|
62 | mode(4)=404 |
---|
63 | mode(5)=505 |
---|
64 | mode(6)=606 |
---|
65 | call gsdk(22,bratio,mode) |
---|
66 | charray(1) = 'Hit1' |
---|
67 | charray(2) = 'Hit2' |
---|
68 | iarray(1) = 1 |
---|
69 | iarray(2) = 2 |
---|
70 | call gsdet('DETT','SETT',2,charray,iarray,1001,4,4,idum,idum) |
---|
71 | call gsdetv('DETT','SETT',1001,4,4,idum,idum) |
---|
72 | call gsdeta('DETT','SETT', 'ALIA', 4,4,idum) |
---|
73 | call gsdeth('DETT','SETT',1,'Hit1',16,0.,.01) |
---|
74 | call gsdetd('DETT','SETT',1,'Digi',16) |
---|
75 | call gsdetu('DETT','SETT',3,par) |
---|
76 | call ggclos |
---|
77 | end |
---|