MPQC 2.3.1
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 __GNUC__
29#pragma interface
30#endif
31
32#ifdef INLINE_FUNCTIONS
33#define INLINE inline
34#else
35#define INLINE
36#endif
37
38namespace sc {
39
40INLINE void
41SCVector3::spherical_coord(double theta, double phi,
42 double r)
43{
44 double rsin_theta = r*sin(theta);
45 _v[0]=rsin_theta*cos(phi);
46 _v[1]=rsin_theta*sin(phi);
47 _v[2]=r*cos(theta);
48}
49
50INLINE double
51SCVector3::dist(const SCVector3 &s) const
52{
53 double x=_v[0]-s._v[0],y=_v[1]-s._v[1],z=_v[2]-s._v[2];
54 return sqrt(x*x + y*y + z*z);
55}
56
57}
58
59#undef INLINE
60
61// Local Variables:
62// mode: c++
63// c-file-style: "CLJ"
64// End:

Generated at Fri Jan 31 2025 00:00:00 for MPQC 2.3.1 using the documentation package Doxygen 1.12.0.