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