| 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: G4gsrotm.cc,v 1.9 2001/07/11 09:59:02 gunter Exp $
>> 25 // GEANT4 tag $Name: geant4-05-00 $
27 // 26 //
28 #include "G3toG4.hh" 27 #include "G3toG4.hh"
29 #include "G3RotTable.hh" 28 #include "G3RotTable.hh"
30 #include "G3toG4RotationMatrix.hh" <<
31 #include "G4PhysicalConstants.hh" <<
32 #include "G4ThreeVector.hh" 29 #include "G4ThreeVector.hh"
>> 30 #include "G3toG4RotationMatrix.hh"
33 31
34 void PG4gsrotm(G4String *tokens) << 32 void PG4gsrotm(G4String tokens[])
35 { 33 {
36 // fill the parameter containers 34 // fill the parameter containers
37 G3fillParams(tokens,PTgsrotm); 35 G3fillParams(tokens,PTgsrotm);
38 36
39 // interpret the parameters 37 // interpret the parameters
40 G4int irot = Ipar[0]; 38 G4int irot = Ipar[0];
41 39
42 // the angles in Geant are in degrees 40 // the angles in Geant are in degrees
43 G4double theta1 = Rpar[0]; 41 G4double theta1 = Rpar[0];
44 G4double phi1 = Rpar[1]; 42 G4double phi1 = Rpar[1];
45 G4double theta2 = Rpar[2]; 43 G4double theta2 = Rpar[2];
46 G4double phi2 = Rpar[3]; 44 G4double phi2 = Rpar[3];
47 G4double theta3 = Rpar[4]; 45 G4double theta3 = Rpar[4];
48 G4double phi3 = Rpar[5]; 46 G4double phi3 = Rpar[5];
49 47
50 G4gsrotm(irot, theta1,phi1, theta2,phi2, t 48 G4gsrotm(irot, theta1,phi1, theta2,phi2, theta3,phi3);
51 } 49 }
52 50
53 void G4gsrotm(G4int irot, G4double theta1, G4d 51 void G4gsrotm(G4int irot, G4double theta1, G4double phi1,
54 G4double theta2, G4double phi2, 52 G4double theta2, G4double phi2, G4double theta3, G4double phi3)
55 { 53 {
56 G4double degrad = pi/180; 54 G4double degrad = pi/180;
57 55
58 G4double th1r = theta1*degrad; 56 G4double th1r = theta1*degrad;
59 G4double th2r = theta2*degrad; 57 G4double th2r = theta2*degrad;
60 G4double th3r = theta3*degrad; 58 G4double th3r = theta3*degrad;
61 59
62 G4double phi1r = phi1*degrad; 60 G4double phi1r = phi1*degrad;
63 G4double phi2r = phi2*degrad; 61 G4double phi2r = phi2*degrad;
64 G4double phi3r = phi3*degrad; 62 G4double phi3r = phi3*degrad;
65 63
66 // Construct unit vectors 64 // Construct unit vectors
67 65
68 G4ThreeVector x(std::sin(th1r)*std::cos(ph << 66 G4ThreeVector x(sin(th1r)*cos(phi1r), sin(th1r)*sin(phi1r), cos(th1r));
69 G4ThreeVector y(std::sin(th2r)*std::cos(ph << 67 G4ThreeVector y(sin(th2r)*cos(phi2r), sin(th2r)*sin(phi2r), cos(th2r));
70 G4ThreeVector z(std::sin(th3r)*std::cos(ph << 68 G4ThreeVector z(sin(th3r)*cos(phi3r), sin(th3r)*sin(phi3r), cos(th3r));
71 69
72 // check for orthonormality and left-h 70 // check for orthonormality and left-handedness
73 71
74 G4double check = (x.cross(y))*z; 72 G4double check = (x.cross(y))*z;
75 G4double tol = 1.0e-3; 73 G4double tol = 1.0e-3;
76 74
77 if (1-std::abs(check)>tol) { << 75 if (1-abs(check)>tol) {
78 G4cerr << "Coordinate axes forming rot 76 G4cerr << "Coordinate axes forming rotation matrix "
79 << irot << " are not orthonorma << 77 << irot << " are not orthonormal.(" << 1-abs(check) << ")"
80 << G4endl; 78 << G4endl;
81 G4cerr << " theta1=" << theta1; 79 G4cerr << " theta1=" << theta1;
82 G4cerr << " phi1=" << phi1; 80 G4cerr << " phi1=" << phi1;
83 G4cerr << " theta2=" << theta2; 81 G4cerr << " theta2=" << theta2;
84 G4cerr << " phi2=" << phi2; 82 G4cerr << " phi2=" << phi2;
85 G4cerr << " theta3=" << theta3; 83 G4cerr << " theta3=" << theta3;
86 G4cerr << " phi3=" << phi3; 84 G4cerr << " phi3=" << phi3;
87 G4cerr << G4endl; 85 G4cerr << G4endl;
88 G4Exception("G4gsrotm()", "G3toG40023" << 86 G4Exception("G4gsrotm error");
89 "Non orthogonal axes!"); << 87 }
90 return; << 88 else if (1+check<=tol) {
>> 89 G4cerr << "G4gsrotm warning: coordinate axes forming rotation "
>> 90 << "matrix " << irot << " are left-handed" << G4endl;
91 } 91 }
92 //else if (1+check<=tol) { <<
93 // G4cerr << "G4gsrotm warning: coordin <<
94 // << "matrix " << irot << " are <<
95 //} <<
96 92
97 G3toG4RotationMatrix* rotp = new G3toG4Rot 93 G3toG4RotationMatrix* rotp = new G3toG4RotationMatrix;
98 94
99 rotp->SetRotationMatrixByRow(x, y, z); 95 rotp->SetRotationMatrixByRow(x, y, z);
100 96
101 // add it to the List 97 // add it to the List
102 98
103 G3Rot.Put(irot, rotp); 99 G3Rot.Put(irot, rotp);
104 } 100 }
105 101