--- trunk/src/applications/staticProps/BOPofR.cpp	2007/12/06 19:52:11	1194
+++ trunk/src/applications/staticProps/BOPofR.cpp	2012/08/22 18:43:27	1785
@@ -6,19 +6,10 @@
  * 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
+ * 1. 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
+ * 2. 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.
@@ -38,12 +29,18 @@
  * University of Notre Dame has been advised of the possibility of
  * such damages.
  *
- *  BondOrderParameter.cpp
- *  OOPSE-4
- *
+ * SUPPORT OPEN SCIENCE!  If you use OpenMD or its source code in your
+ * research, please cite the appropriate papers when you publish your
+ * work.  Good starting points are:
+ *                                                                      
+ * [1]  Meineke, et al., J. Comp. Chem. 26, 252-271 (2005).             
+ * [2]  Fennell & Gezelter, J. Chem. Phys. 124, 234104 (2006).          
+ * [3]  Sun, Lin & Gezelter, J. Chem. Phys. 128, 24107 (2008).          
+ * [4] Kuang & Gezelter,  J. Chem. Phys. 133, 164101 (2010).
+ * [4] , Stocker & Gezelter, J. Chem. Theory Comput. 7, 834 (2011). *
  *  Created by J. Daniel Gezelter on 09/26/06.
  *  @author  J. Daniel Gezelter
- *  @version $Id: BOPofR.cpp,v 1.3 2007-12-06 19:52:11 chuckv Exp $
+ *  @version $Id$
  *
  */
  
@@ -52,9 +49,11 @@
 #include "io/DumpReader.hpp"
 #include "primitives/Molecule.hpp"
 #include "utils/NumericConstant.hpp"
+#include "math/Wigner3jm.hpp"
+#include "brains/Thermo.hpp"
 
-
-namespace oopse {
+using namespace MATPACK;
+namespace OpenMD {
 
   BOPofR::BOPofR(SimInfo* info, const std::string& filename, const std::string& sele, double rCut,
 		 int nbins, RealType len) : StaticAnalyser(info, filename), selectionScript_(sele), evaluator_(info), seleMan_(info){
@@ -84,16 +83,16 @@ namespace oopse {
 	}
 	
     // Make arrays for Wigner3jm
-    double* THRCOF = new double[2*lMax_+1];
+    RealType* THRCOF = new RealType[2*lMax_+1];
     // Variables for Wigner routine
-    double lPass, m1Pass, m2m, m2M;
+    RealType lPass, m1Pass, m2m, m2M;
     int error, mSize;
     mSize = 2*lMax_+1;
 
     for (int l = 0; l <= lMax_; l++) {
-      lPass = (double)l;
+      lPass = (RealType)l;
       for (int m1 = -l; m1 <= l; m1++) {
-        m1Pass = (double)m1;
+        m1Pass = (RealType)m1;
 
         std::pair<int,int> lm = std::make_pair(l, m1);
         
@@ -103,9 +102,9 @@ namespace oopse {
         }
 
         // Get Wigner coefficients
-        Wigner3jm(&lPass, &lPass, &lPass, 
-                  &m1Pass, &m2m, &m2M, 
-                  THRCOF, &mSize, &error);
+        Wigner3jm(lPass, lPass, lPass, 
+                  m1Pass, m2m, m2M, 
+                  THRCOF, mSize, error);
         
         m2Min[lm] = (int)floor(m2m);
         m2Max[lm] = (int)floor(m2M);
@@ -146,7 +145,7 @@ namespace oopse {
   }
 
   
-  void BOPofR::initalizeHistogram() {
+  void BOPofR::initializeHistogram() {
  	for (int i = 0; i < nBins_; i++){
 		RCount_[i] = 0;
 		WofR_[i] = 0;
@@ -168,7 +167,6 @@ namespace oopse {
     RealType costheta;
     RealType phi;
     RealType r;
-    RealType dist;
     Vector3d rCOM;
     RealType distCOM;
     Vector3d pos;
@@ -185,12 +183,14 @@ namespace oopse {
     std::vector<ComplexType> W_hat;
     int nBonds, Nbonds;
     SphericalHarmonic sphericalHarmonic;
-    int i, j;
-
+    int i;
+    
     DumpReader reader(info_, dumpFilename_);    
     int nFrames = reader.getNFrames();
     frameCounter_ = 0;
 
+    Thermo thermo(info_);
+
     q_l.resize(lMax_+1);
     q2.resize(lMax_+1);
     w.resize(lMax_+1);
@@ -206,7 +206,7 @@ namespace oopse {
       reader.readFrame(istep);
       frameCounter_++;
       currentSnapshot_ = info_->getSnapshotManager()->getCurrentSnapshot();
-      CenterOfMass = info_->getCom();
+      CenterOfMass = thermo.getCom();
       if (evaluator_.isDynamic()) {
         seleMan_.setSelectionSet(evaluator_.evaluate());
       }
@@ -304,7 +304,7 @@ namespace oopse {
             }
           }
           
-          w_hat[l] = w[l] / pow(q2[l], 1.5);
+          w_hat[l] = w[l] / pow(q2[l], RealType(1.5));
         }
 
         collectHistogram(q_l, w_hat, distCOM);