| Geant4 Cross Reference |
1 // 1
2 // *******************************************
3 // * License and Disclaimer
4 // *
5 // * The Geant4 software is copyright of th
6 // * the Geant4 Collaboration. It is provided
7 // * conditions of the Geant4 Software License
8 // * LICENSE and available at http://cern.ch/
9 // * include a list of copyright holders.
10 // *
11 // * Neither the authors of this software syst
12 // * institutes,nor the agencies providing fin
13 // * work make any representation or warran
14 // * regarding this software system or assum
15 // * use. Please see the license in the file
16 // * for the full disclaimer and the limitatio
17 // *
18 // * This code implementation is the result
19 // * technical work of the GEANT4 collaboratio
20 // * By using, copying, modifying or distri
21 // * any work based on the software) you ag
22 // * use in resulting scientific publicati
23 // * acceptance of all terms of the Geant4 Sof
24 // *******************************************
25 //
26 //
27 //
28 // by I.Hrivnacova, V.Berejnoi, 27 Sep 99
29
30 #include "globals.hh"
31 #include "G3toG4.hh"
32
33 void G4gsdvn2(G4String name, G4String moth, G4
34 G4double c0, G4int numed);
35
36 void G4gsdvt2(G4String name, G4String moth, G4
37 G4double c0, G4int numed, G4int
38
39 void PG4gsdvx(G4String *tokens)
40 {
41 // fill the parameter containers
42 G3fillParams(tokens,PTgsdvx);
43
44 // interpret the parameters
45 G4String name = Spar[0];
46 G4String moth = Spar[1];
47 G4int ndiv = Ipar[0];
48 G4int iaxis = Ipar[1];
49 G4int numed = Ipar[2];
50 G4int ndvmx = Ipar[3];
51 G4double Step = Rpar[0];
52 G4double c0 = Rpar[1];
53
54 G4gsdvx(name,moth,ndiv,iaxis,Step,c0,numed
55 }
56
57 void G4gsdvx(G4String name, G4String moth, G4i
58 G4double Step, G4double c0, G4int
59 {
60 // pass to gsdvn2 or gsdvt2
61 if (Step > 0.) {
62 G4gsdvt2(name,moth,Step,iaxis,c0,numed
63 } else if (ndiv > 0) {
64 G4gsdvn2(name,moth,ndiv,iaxis,c0,numed
65 }
66 }
67