| 43 |  | * | 
| 44 |  | *  Created by J. Daniel Gezelter on 09/26/06. | 
| 45 |  | *  @author  J. Daniel Gezelter | 
| 46 | < | *  @version $Id: BondOrderParameter.cpp,v 1.21 2006-11-21 20:44:54 gezelter Exp $ | 
| 46 | > | *  @version $Id: BondOrderParameter.cpp,v 1.22 2006-12-20 21:03:11 gezelter Exp $ | 
| 47 |  | * | 
| 48 |  | */ | 
| 49 |  |  | 
| 83 |  | // W_6 for icosahedral clusters is 11 / sqrt(4199) = 0.169754, so we'll | 
| 84 |  | // use values for MinW_ and MaxW_ that are slightly larger than this: | 
| 85 |  |  | 
| 86 | < | MinW_ = -0.25; | 
| 87 | < | MaxW_ = 0.25; | 
| 86 | > | MinW_ = -1.1; | 
| 87 | > | MaxW_ = 1.1; | 
| 88 |  | deltaW_ = (MaxW_ - MinW_) / nbins; | 
| 89 |  |  | 
| 90 |  | // Make arrays for Wigner3jm | 
| 105 |  | for (int ii = 0; ii < 2*l + 1; ii++){ | 
| 106 |  | THRCOF[ii] = 0.0; | 
| 107 |  | } | 
| 108 | < |  | 
| 108 | > |  | 
| 109 |  | // Get Wigner coefficients | 
| 110 |  | Wigner3jm(&lPass, &lPass, &lPass, | 
| 111 |  | &m1Pass, &m2m, &m2M, | 
| 114 |  | m2Min[lm] = (int)floor(m2m); | 
| 115 |  | m2Max[lm] = (int)floor(m2M); | 
| 116 |  |  | 
| 117 | < | for (int mmm = 0; mmm < (int)(m2M - m2m); mmm++) { | 
| 117 | > | for (int mmm = 0; mmm <= (int)(m2M - m2m); mmm++) { | 
| 118 |  | w3j[lm].push_back(THRCOF[mmm]); | 
| 119 |  | } | 
| 120 |  | } | 
| 277 |  | w[l] = 0.0; | 
| 278 |  | for (int m1 = -l; m1 <= l; m1++) { | 
| 279 |  | std::pair<int,int> lm = std::make_pair(l, m1); | 
| 280 | < | for (int mmm = 0; mmm < (m2Max[lm] - m2Min[lm]); mmm++) { | 
| 280 | > | for (int mmm = 0; mmm <= (m2Max[lm] - m2Min[lm]); mmm++) { | 
| 281 |  | int m2 = m2Min[lm] + mmm; | 
| 282 |  | int m3 = -m1-m2; | 
| 283 |  | w[l] += w3j[lm][mmm] * q[lm] * | 
| 322 |  | W[l] = 0.0; | 
| 323 |  | for (int m1 = -l; m1 <= l; m1++) { | 
| 324 |  | std::pair<int,int> lm = std::make_pair(l, m1); | 
| 325 | < | for (int mmm = 0; mmm < (m2Max[lm] - m2Min[lm]); mmm++) { | 
| 325 | > | for (int mmm = 0; mmm <= (m2Max[lm] - m2Min[lm]); mmm++) { | 
| 326 |  | int m2 = m2Min[lm] + mmm; | 
| 327 |  | int m3 = -m1-m2; | 
| 328 |  | W[l] += w3j[lm][mmm] * QBar[lm] * |