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