MPQC  3.0.0-alpha
vector3_i.h
1 //
2 // vector3_i.h
3 //
4 // Copyright (C) 1996 Limit Point Systems, Inc.
5 //
6 // Author: Curtis Janssen <cljanss@limitpt.com>
7 // Maintainer: LPS
8 //
9 // This file is part of the SC Toolkit.
10 //
11 // The SC Toolkit is free software; you can redistribute it and/or modify
12 // it under the terms of the GNU Library General Public License as published by
13 // the Free Software Foundation; either version 2, or (at your option)
14 // any later version.
15 //
16 // The SC Toolkit is distributed in the hope that it will be useful,
17 // but WITHOUT ANY WARRANTY; without even the implied warranty of
18 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19 // GNU Library General Public License for more details.
20 //
21 // You should have received a copy of the GNU Library General Public License
22 // along with the SC Toolkit; see the file COPYING.LIB. If not, write to
23 // the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
24 //
25 // The U.S. Government is granted a limited license as per AL 91-7.
26 //
27 
28 #ifdef INLINE_FUNCTIONS
29 #define INLINE inline
30 #else
31 #define INLINE
32 #endif
33 
34 namespace sc {
35 
36 INLINE void
37 SCVector3::spherical_coord(double theta, double phi,
38  double r)
39 {
40  double rsin_theta = r*sin(theta);
41  _v[0]=rsin_theta*cos(phi);
42  _v[1]=rsin_theta*sin(phi);
43  _v[2]=r*cos(theta);
44 }
45 
46 INLINE double
47 SCVector3::dist(const SCVector3 &s) const
48 {
49  double x=_v[0]-s._v[0],y=_v[1]-s._v[1],z=_v[2]-s._v[2];
50  return sqrt(x*x + y*y + z*z);
51 }
52 
53 }
54 
55 #undef INLINE
56 
57 // Local Variables:
58 // mode: c++
59 // c-file-style: "CLJ"
60 // End:
sc
Contains all MPQC code up to version 3.
Definition: mpqcin.h:14

Generated at Sun Jan 26 2020 23:24:00 for MPQC 3.0.0-alpha using the documentation package Doxygen 1.8.16.