src/brains/Snapshot.cpp

/*
 * Copyright (c) 2005 The University of Notre Dame. All Rights Reserved.
 *
 * The University of Notre Dame grants you ("Licensee") a
 * non-exclusive, royalty free, license to use, modify and
 * redistribute this software in source and binary code form, provided
 * that the following conditions are met:
 *
 * 1. Acknowledgement of the program authors must be made in any
 *    publication of scientific results based in part on use of the
 *    program.  An acceptable form of acknowledgement is citation of
 *    the article in which the program was described (Matthew
 *    A. Meineke, Charles F. Vardeman II, Teng Lin, Christopher
 *    J. Fennell and J. Daniel Gezelter, "OOPSE: An Object-Oriented
 *    Parallel Simulation Engine for Molecular Dynamics,"
 *    J. Comput. Chem. 26, pp. 252-271 (2005))
 *
 * 2. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 *
 * 3. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the
 *    distribution.
 *
 * This software is provided "AS IS," without a warranty of any
 * kind. All express or implied conditions, representations and
 * warranties, including any implied warranty of merchantability,
 * fitness for a particular purpose or non-infringement, are hereby
 * excluded.  The University of Notre Dame and its licensors shall not
 * be liable for any damages suffered by licensee as a result of
 * using, modifying or distributing the software or its
 * derivatives. In no event will the University of Notre Dame or its
 * licensors be liable for any lost revenue, profit or data, or for
 * direct, indirect, special, consequential, incidental or punitive
 * damages, however caused and regardless of the theory of liability,
 * arising out of the use of or inability to use software, even if the
 * University of Notre Dame has been advised of the possibility of
 * such damages.
 */
  
/**
 * @file Snapshot.cpp
 * @author tlin
 * @date 11/11/2004
 * @time 10:56am
 * @version 1.0
 */

#include "brains/Snapshot.hpp"
#include "utils/NumericConstant.hpp"
#include "utils/simError.h"
#include "utils/Utility.hpp"
namespace oopse {

  void  Snapshot::setHmat(const Mat3x3d& m) {
    const double orthoTolerance = NumericConstant::epsilon;
    hmat_ = m;
    invHmat_ = hmat_.inverse();
    
    //prepare fortran Hmat 
    double fortranHmat[9];
    double fortranInvHmat[9];
    hmat_.getArray(fortranHmat);
    invHmat_.getArray(fortranInvHmat);

    //determine whether the box is orthoTolerance or not
    int oldOrthoRhombic = orthoRhombic_;
    
    double smallDiag = fabs(hmat_(0, 0));
    if(smallDiag > fabs(hmat_(1, 1))) smallDiag = fabs(hmat_(1, 1));
    if(smallDiag > fabs(hmat_(2, 2))) smallDiag = fabs(hmat_(2, 2));    
    double tol = smallDiag * orthoTolerance;

    orthoRhombic_ = 1;

    for (int i = 0; i < 3; i++ ) {
      for (int j = 0 ; j < 3; j++) {
        if (i != j) {
          if (orthoRhombic_) {
            if ( fabs(hmat_(i, j)) >= tol)
              orthoRhombic_ = 0;
          }        
        }
      }
    }

    if( oldOrthoRhombic != orthoRhombic_ ){

      if( orthoRhombic_ ) {
        sprintf( painCave.errMsg,
                 "OOPSE is switching from the default Non-Orthorhombic\n"
                 "\tto the faster Orthorhombic periodic boundary computations.\n"
                 "\tThis is usually a good thing, but if you wan't the\n"
                 "\tNon-Orthorhombic computations, make the orthoBoxTolerance\n"
                 "\tvariable ( currently set to %G ) smaller.\n",
                 orthoTolerance);
        painCave.severity = OOPSE_INFO;
        simError();
      }
      else {
        sprintf( painCave.errMsg,
                 "OOPSE is switching from the faster Orthorhombic to the more\n"
                 "\tflexible Non-Orthorhombic periodic boundary computations.\n"
                 "\tThis is usually because the box has deformed under\n"
                 "\tNPTf integration. If you wan't to live on the edge with\n"
                 "\tthe Orthorhombic computations, make the orthoBoxTolerance\n"
                 "\tvariable ( currently set to %G ) larger.\n",
                 orthoTolerance);
        painCave.severity = OOPSE_WARNING;
        simError();
      }
    }    

    //notify fortran simulation box has changed
    setFortranBox(fortranHmat, fortranInvHmat, &orthoRhombic_);
  }


  void Snapshot::wrapVector(Vector3d& pos) {

    int i;
    Vector3d scaled;

    if( !orthoRhombic_ ){

      // calc the scaled coordinates.
      scaled = invHmat_* pos;

      // wrap the scaled coordinates
      for (i = 0; i < 3; ++i) {
        scaled[i] -= roundMe(scaled[i]);
      }

      // calc the wrapped real coordinates from the wrapped scaled coordinates
      pos = hmat_ * scaled;    

    } else {//if it is orthoRhombic, we could improve efficiency by only caculating the diagonal element
    
      // calc the scaled coordinates.
      for (i=0; i<3; i++) {
        scaled[i] = pos[i] * invHmat_(i, i);
      }
        
      // wrap the scaled coordinates
      for (i = 0; i < 3; ++i) {
        scaled[i] -= roundMe(scaled[i]);
      }

      // calc the wrapped real coordinates from the wrapped scaled coordinates
      for (i=0; i<3; i++) {
        pos[i] = scaled[i] * hmat_(i, i);
      }
        
    }

  }

}
  
Revision:	2204
Committed:	Fri Apr 15 22:04:00 2005 UTC (19 years, 2 months ago) by gezelter
File size:	5220 byte(s)
Log Message:	xemacs has been drafted to perform our indentation services
#	User	Rev	Content
1	gezelter	2204	/*
2	gezelter	1930	* Copyright (c) 2005 The University of Notre Dame. All Rights Reserved.
3			*
4			* The University of Notre Dame grants you ("Licensee") a
5			* non-exclusive, royalty free, license to use, modify and
6			* redistribute this software in source and binary code form, provided
7			* that the following conditions are met:
8			*
9			* 1. Acknowledgement of the program authors must be made in any
10			* publication of scientific results based in part on use of the
11			* program. An acceptable form of acknowledgement is citation of
12			* the article in which the program was described (Matthew
13			* A. Meineke, Charles F. Vardeman II, Teng Lin, Christopher
14			* J. Fennell and J. Daniel Gezelter, "OOPSE: An Object-Oriented
15			* Parallel Simulation Engine for Molecular Dynamics,"
16			* J. Comput. Chem. 26, pp. 252-271 (2005))
17			*
18			* 2. Redistributions of source code must retain the above copyright
19			* notice, this list of conditions and the following disclaimer.
20			*
21			* 3. Redistributions in binary form must reproduce the above copyright
22			* notice, this list of conditions and the following disclaimer in the
23			* documentation and/or other materials provided with the
24			* distribution.
25			*
26			* This software is provided "AS IS," without a warranty of any
27			* kind. All express or implied conditions, representations and
28			* warranties, including any implied warranty of merchantability,
29			* fitness for a particular purpose or non-infringement, are hereby
30			* excluded. The University of Notre Dame and its licensors shall not
31			* be liable for any damages suffered by licensee as a result of
32			* using, modifying or distributing the software or its
33			* derivatives. In no event will the University of Notre Dame or its
34			* licensors be liable for any lost revenue, profit or data, or for
35			* direct, indirect, special, consequential, incidental or punitive
36			* damages, however caused and regardless of the theory of liability,
37			* arising out of the use of or inability to use software, even if the
38			* University of Notre Dame has been advised of the possibility of
39			* such damages.
40			*/
41
42	gezelter	2204	/**
43			* @file Snapshot.cpp
44			* @author tlin
45			* @date 11/11/2004
46			* @time 10:56am
47			* @version 1.0
48			*/
49	gezelter	1930
50			#include "brains/Snapshot.hpp"
51			#include "utils/NumericConstant.hpp"
52			#include "utils/simError.h"
53			#include "utils/Utility.hpp"
54			namespace oopse {
55
56	gezelter	2204	void Snapshot::setHmat(const Mat3x3d& m) {
57	gezelter	1930	const double orthoTolerance = NumericConstant::epsilon;
58			hmat_ = m;
59			invHmat_ = hmat_.inverse();
60
61			//prepare fortran Hmat
62			double fortranHmat[9];
63			double fortranInvHmat[9];
64			hmat_.getArray(fortranHmat);
65			invHmat_.getArray(fortranInvHmat);
66
67			//determine whether the box is orthoTolerance or not
68			int oldOrthoRhombic = orthoRhombic_;
69
70			double smallDiag = fabs(hmat_(0, 0));
71			if(smallDiag > fabs(hmat_(1, 1))) smallDiag = fabs(hmat_(1, 1));
72			if(smallDiag > fabs(hmat_(2, 2))) smallDiag = fabs(hmat_(2, 2));
73			double tol = smallDiag * orthoTolerance;
74
75			orthoRhombic_ = 1;
76
77			for (int i = 0; i < 3; i++ ) {
78	gezelter	2204	for (int j = 0 ; j < 3; j++) {
79			if (i != j) {
80			if (orthoRhombic_) {
81			if ( fabs(hmat_(i, j)) >= tol)
82			orthoRhombic_ = 0;
83			}
84			}
85			}
86	gezelter	1930	}
87
88			if( oldOrthoRhombic != orthoRhombic_ ){
89
90	gezelter	2204	if( orthoRhombic_ ) {
91			sprintf( painCave.errMsg,
92			"OOPSE is switching from the default Non-Orthorhombic\n"
93			"\tto the faster Orthorhombic periodic boundary computations.\n"
94			"\tThis is usually a good thing, but if you wan't the\n"
95			"\tNon-Orthorhombic computations, make the orthoBoxTolerance\n"
96			"\tvariable ( currently set to %G ) smaller.\n",
97			orthoTolerance);
98			painCave.severity = OOPSE_INFO;
99			simError();
100			}
101			else {
102			sprintf( painCave.errMsg,
103			"OOPSE is switching from the faster Orthorhombic to the more\n"
104			"\tflexible Non-Orthorhombic periodic boundary computations.\n"
105			"\tThis is usually because the box has deformed under\n"
106			"\tNPTf integration. If you wan't to live on the edge with\n"
107			"\tthe Orthorhombic computations, make the orthoBoxTolerance\n"
108			"\tvariable ( currently set to %G ) larger.\n",
109			orthoTolerance);
110			painCave.severity = OOPSE_WARNING;
111			simError();
112			}
113	gezelter	1930	}
114
115			//notify fortran simulation box has changed
116			setFortranBox(fortranHmat, fortranInvHmat, &orthoRhombic_);
117	gezelter	2204	}
118	gezelter	1930
119
120	gezelter	2204	void Snapshot::wrapVector(Vector3d& pos) {
121	gezelter	1930
122			int i;
123			Vector3d scaled;
124
125			if( !orthoRhombic_ ){
126
127	gezelter	2204	// calc the scaled coordinates.
128			scaled = invHmat_* pos;
129	gezelter	1930
130	gezelter	2204	// wrap the scaled coordinates
131			for (i = 0; i < 3; ++i) {
132			scaled[i] -= roundMe(scaled[i]);
133			}
134	gezelter	1930
135	gezelter	2204	// calc the wrapped real coordinates from the wrapped scaled coordinates
136			pos = hmat_ * scaled;
137	gezelter	1930
138			} else {//if it is orthoRhombic, we could improve efficiency by only caculating the diagonal element
139
140	gezelter	2204	// calc the scaled coordinates.
141			for (i=0; i<3; i++) {
142			scaled[i] = pos[i] * invHmat_(i, i);
143			}
144	gezelter	1930
145	gezelter	2204	// wrap the scaled coordinates
146			for (i = 0; i < 3; ++i) {
147			scaled[i] -= roundMe(scaled[i]);
148			}
149	gezelter	1930
150	gezelter	2204	// calc the wrapped real coordinates from the wrapped scaled coordinates
151			for (i=0; i<3; i++) {
152			pos[i] = scaled[i] * hmat_(i, i);
153			}
154	gezelter	1930
155			}
156
157	gezelter	2204	}
158	gezelter	1930
159			}
160