| 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 | 
| 9 | 
> | 
 * 1. Redistributions of source code must retain the above copyright | 
| 10 | 
  | 
 *    notice, this list of conditions and the following disclaimer. | 
| 11 | 
  | 
 * | 
| 12 | 
< | 
 * 3. Redistributions in binary form must reproduce the above copyright | 
| 12 | 
> | 
 * 2. Redistributions in binary form must reproduce the above copyright | 
| 13 | 
  | 
 *    notice, this list of conditions and the following disclaimer in the | 
| 14 | 
  | 
 *    documentation and/or other materials provided with the | 
| 15 | 
  | 
 *    distribution. | 
| 29 | 
  | 
 * University of Notre Dame has been advised of the possibility of | 
| 30 | 
  | 
 * such damages. | 
| 31 | 
  | 
 * | 
| 32 | 
< | 
 *  BondOrderParameter.cpp | 
| 33 | 
< | 
 *  OOPSE-4 | 
| 34 | 
< | 
 * | 
| 32 | 
> | 
 * SUPPORT OPEN SCIENCE!  If you use OpenMD or its source code in your | 
| 33 | 
> | 
 * research, please cite the appropriate papers when you publish your | 
| 34 | 
> | 
 * work.  Good starting points are: | 
| 35 | 
> | 
 *                                                                       | 
| 36 | 
> | 
 * [1]  Meineke, et al., J. Comp. Chem. 26, 252-271 (2005).              | 
| 37 | 
> | 
 * [2]  Fennell & Gezelter, J. Chem. Phys. 124, 234104 (2006).           | 
| 38 | 
> | 
 * [3]  Sun, Lin & Gezelter, J. Chem. Phys. 128, 234107 (2008).           | 
| 39 | 
> | 
 * [4] Kuang & Gezelter,  J. Chem. Phys. 133, 164101 (2010). | 
| 40 | 
> | 
 * [4] , Stocker & Gezelter, J. Chem. Theory Comput. 7, 834 (2011). * | 
| 41 | 
  | 
 *  Created by J. Daniel Gezelter on 09/26/06. | 
| 42 | 
  | 
 *  @author  J. Daniel Gezelter | 
| 43 | 
< | 
 *  @version $Id: BOPofR.cpp,v 1.3 2007-12-06 19:52:11 chuckv Exp $ | 
| 43 | 
> | 
 *  @version $Id$ | 
| 44 | 
  | 
 * | 
| 45 | 
  | 
 */ | 
| 46 | 
  | 
  | 
| 49 | 
  | 
#include "io/DumpReader.hpp" | 
| 50 | 
  | 
#include "primitives/Molecule.hpp" | 
| 51 | 
  | 
#include "utils/NumericConstant.hpp" | 
| 52 | 
+ | 
#include "math/Wigner3jm.hpp" | 
| 53 | 
+ | 
#include "brains/Thermo.hpp" | 
| 54 | 
  | 
 | 
| 55 | 
+ | 
using namespace MATPACK; | 
| 56 | 
+ | 
namespace OpenMD { | 
| 57 | 
  | 
 | 
| 57 | 
– | 
namespace oopse { | 
| 58 | 
– | 
 | 
| 58 | 
  | 
  BOPofR::BOPofR(SimInfo* info, const std::string& filename, const std::string& sele, double rCut, | 
| 59 | 
  | 
                 int nbins, RealType len) : StaticAnalyser(info, filename), selectionScript_(sele), evaluator_(info), seleMan_(info){ | 
| 60 | 
  | 
     | 
| 83 | 
  | 
        } | 
| 84 | 
  | 
         | 
| 85 | 
  | 
    // Make arrays for Wigner3jm | 
| 86 | 
< | 
    double* THRCOF = new double[2*lMax_+1]; | 
| 86 | 
> | 
    RealType* THRCOF = new RealType[2*lMax_+1]; | 
| 87 | 
  | 
    // Variables for Wigner routine | 
| 88 | 
< | 
    double lPass, m1Pass, m2m, m2M; | 
| 88 | 
> | 
    RealType lPass, m1Pass, m2m, m2M; | 
| 89 | 
  | 
    int error, mSize; | 
| 90 | 
  | 
    mSize = 2*lMax_+1; | 
| 91 | 
  | 
 | 
| 92 | 
  | 
    for (int l = 0; l <= lMax_; l++) { | 
| 93 | 
< | 
      lPass = (double)l; | 
| 93 | 
> | 
      lPass = (RealType)l; | 
| 94 | 
  | 
      for (int m1 = -l; m1 <= l; m1++) { | 
| 95 | 
< | 
        m1Pass = (double)m1; | 
| 95 | 
> | 
        m1Pass = (RealType)m1; | 
| 96 | 
  | 
 | 
| 97 | 
  | 
        std::pair<int,int> lm = std::make_pair(l, m1); | 
| 98 | 
  | 
         | 
| 102 | 
  | 
        } | 
| 103 | 
  | 
 | 
| 104 | 
  | 
        // Get Wigner coefficients | 
| 105 | 
< | 
        Wigner3jm(&lPass, &lPass, &lPass,  | 
| 106 | 
< | 
                  &m1Pass, &m2m, &m2M,  | 
| 107 | 
< | 
                  THRCOF, &mSize, &error); | 
| 105 | 
> | 
        Wigner3jm(lPass, lPass, lPass,  | 
| 106 | 
> | 
                  m1Pass, m2m, m2M,  | 
| 107 | 
> | 
                  THRCOF, mSize, error); | 
| 108 | 
  | 
         | 
| 109 | 
  | 
        m2Min[lm] = (int)floor(m2m); | 
| 110 | 
  | 
        m2Max[lm] = (int)floor(m2M); | 
| 145 | 
  | 
  } | 
| 146 | 
  | 
 | 
| 147 | 
  | 
   | 
| 148 | 
< | 
  void BOPofR::initalizeHistogram() { | 
| 148 | 
> | 
  void BOPofR::initializeHistogram() { | 
| 149 | 
  | 
        for (int i = 0; i < nBins_; i++){ | 
| 150 | 
  | 
                RCount_[i] = 0; | 
| 151 | 
  | 
                WofR_[i] = 0; | 
| 167 | 
  | 
    RealType costheta; | 
| 168 | 
  | 
    RealType phi; | 
| 169 | 
  | 
    RealType r; | 
| 171 | 
– | 
    RealType dist; | 
| 170 | 
  | 
    Vector3d rCOM; | 
| 171 | 
  | 
    RealType distCOM; | 
| 172 | 
  | 
    Vector3d pos; | 
| 176 | 
  | 
    std::vector<RealType> q2; | 
| 177 | 
  | 
    std::vector<ComplexType> w; | 
| 178 | 
  | 
    std::vector<ComplexType> w_hat; | 
| 181 | 
– | 
    std::map<std::pair<int,int>,ComplexType> QBar; | 
| 179 | 
  | 
    std::vector<RealType> Q2; | 
| 180 | 
  | 
    std::vector<RealType> Q; | 
| 181 | 
  | 
    std::vector<ComplexType> W; | 
| 182 | 
  | 
    std::vector<ComplexType> W_hat; | 
| 183 | 
< | 
    int nBonds, Nbonds; | 
| 183 | 
> | 
    int nBonds; | 
| 184 | 
  | 
    SphericalHarmonic sphericalHarmonic; | 
| 185 | 
< | 
    int i, j; | 
| 186 | 
< | 
 | 
| 185 | 
> | 
    int i; | 
| 186 | 
> | 
     | 
| 187 | 
  | 
    DumpReader reader(info_, dumpFilename_);     | 
| 188 | 
  | 
    int nFrames = reader.getNFrames(); | 
| 189 | 
  | 
    frameCounter_ = 0; | 
| 190 | 
  | 
 | 
| 191 | 
+ | 
    Thermo thermo(info_); | 
| 192 | 
+ | 
 | 
| 193 | 
  | 
    q_l.resize(lMax_+1); | 
| 194 | 
  | 
    q2.resize(lMax_+1); | 
| 195 | 
  | 
    w.resize(lMax_+1); | 
| 199 | 
  | 
    Q.resize(lMax_+1); | 
| 200 | 
  | 
    W.resize(lMax_+1); | 
| 201 | 
  | 
    W_hat.resize(lMax_+1); | 
| 203 | 
– | 
    Nbonds = 0; | 
| 202 | 
  | 
 | 
| 203 | 
  | 
    for (int istep = 0; istep < nFrames; istep += step_) { | 
| 204 | 
  | 
      reader.readFrame(istep); | 
| 205 | 
  | 
      frameCounter_++; | 
| 206 | 
  | 
      currentSnapshot_ = info_->getSnapshotManager()->getCurrentSnapshot(); | 
| 207 | 
< | 
      CenterOfMass = info_->getCom(); | 
| 207 | 
> | 
      CenterOfMass = thermo.getCom(); | 
| 208 | 
  | 
      if (evaluator_.isDynamic()) { | 
| 209 | 
  | 
        seleMan_.setSelectionSet(evaluator_.evaluate()); | 
| 210 | 
  | 
      } | 
| 302 | 
  | 
            } | 
| 303 | 
  | 
          } | 
| 304 | 
  | 
           | 
| 305 | 
< | 
          w_hat[l] = w[l] / pow(q2[l], 1.5); | 
| 305 | 
> | 
          w_hat[l] = w[l] / pow(q2[l], RealType(1.5)); | 
| 306 | 
  | 
        } | 
| 307 | 
  | 
 | 
| 308 | 
  | 
        collectHistogram(q_l, w_hat, distCOM); | 
| 320 | 
  | 
 | 
| 321 | 
  | 
    if ( distCOM < len_){ | 
| 322 | 
  | 
      // Figure out where this distance goes... | 
| 323 | 
< | 
      int whichBin = distCOM / deltaR_; | 
| 323 | 
> | 
      int whichBin = int(distCOM / deltaR_); | 
| 324 | 
  | 
      RCount_[whichBin]++; | 
| 325 | 
  | 
 | 
| 326 | 
  | 
      if(real(what[6]) < -0.15){                                 |