source: ThirdParty/mpqc_open/src/lib/math/scmat/vector3_i.h@ a844d8

Candidate_v1.6.1
Last change on this file since a844d8 was 860145, checked in by Frederik Heber <heber@…>, 8 years ago

Merge commit '0b990dfaa8c6007a996d030163a25f7f5fc8a7e7' as 'ThirdParty/mpqc_open'

  • Property mode set to 100644
File size: 1.5 KB
Line 
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:
Note: See TracBrowser for help on using the repository browser.