source: trunk/source/g3tog4/src/G4gsdet.cc@ 1199

Last change on this file since 1199 was 965, checked in by garnier, 17 years ago

update g3tog4

File size: 2.4 KB
Line 
1//
2// ********************************************************************
3// * License and Disclaimer *
4// * *
5// * The Geant4 software is copyright of the Copyright Holders of *
6// * the Geant4 Collaboration. It is provided under the terms and *
7// * conditions of the Geant4 Software License, included in the file *
8// * LICENSE and available at http://cern.ch/geant4/license . These *
9// * include a list of copyright holders. *
10// * *
11// * Neither the authors of this software system, nor their employing *
12// * institutes,nor the agencies providing financial support for this *
13// * work make any representation or warranty, express or implied, *
14// * regarding this software system or assume any liability for its *
15// * use. Please see the license in the file LICENSE and URL above *
16// * for the full disclaimer and the limitation of liability. *
17// * *
18// * This code implementation is the result of the scientific and *
19// * technical work of the GEANT4 collaboration. *
20// * By using, copying, modifying or distributing the software (or *
21// * any work based on the software) you agree to acknowledge its *
22// * use in resulting scientific publications, and indicate your *
23// * acceptance of all terms of the Geant4 Software license. *
24// ********************************************************************
25//
26//
27// $Id: G4gsdet.cc,v 1.5 2006/06/29 18:13:43 gunter Exp $
28// GEANT4 tag $Name: geant4-09-02-ref-02 $
29
30#include "globals.hh"
31#include "G3toG4.hh"
32
33void PG4gsdet(G4String tokens[])
34{
35 // fill the parameter containers
36 G3fillParams(tokens,PTgsdet);
37
38 // interpret the parameters
39 G4String chset = Spar[0];
40 G4String chdet = Spar[1];
41 G4int nv = Ipar[0];
42 G4String chnmsv[100];
43 for (G4int i=0; i<=nv; i++ ) chnmsv[i] = Spar[2+i].data();
44 G4int *nbits = &Ipar[1];
45 G4int idtyp = Ipar[1+nv];
46 G4int nwhi = Ipar[2+nv];
47 G4int nwdi = Ipar[3+nv];
48
49 G4gsdet(chset,chdet,nv,chnmsv,nbits,idtyp,nwhi,nwdi);
50}
51
52void G4gsdet(G4String chset, G4String chdet, G4int, G4String*,
53 G4int*, G4int idtyp, G4int nwhi, G4int nwdi)
54{
55 G4gsdetv(chset, chdet, idtyp, nwhi, nwdi);
56}
Note: See TracBrowser for help on using the repository browser.