| 86 | 
  | 
  void NPAT::getPosScale(const Vector3d& pos, const Vector3d& COM, int index, Vector3d& sc) { | 
| 87 | 
  | 
 | 
| 88 | 
  | 
    /**@todo */ | 
| 89 | 
< | 
    Vector3d rj = (oldPos[index] + pos)/2.0 -COM; | 
| 89 | 
> | 
    Vector3d rj = (oldPos[index] + pos)/(RealType)2.0 -COM; | 
| 90 | 
  | 
    sc = eta * rj; | 
| 91 | 
  | 
  } | 
| 92 | 
  | 
 | 
| 93 | 
  | 
  void NPAT::scaleSimBox(){ | 
| 94 | 
– | 
 | 
| 95 | 
– | 
    int i; | 
| 96 | 
– | 
    int j; | 
| 97 | 
– | 
    int k; | 
| 94 | 
  | 
    Mat3x3d scaleMat; | 
| 99 | 
– | 
    double eta2ij; | 
| 100 | 
– | 
    double bigScale, smallScale, offDiagMax; | 
| 101 | 
– | 
    Mat3x3d hm; | 
| 102 | 
– | 
    Mat3x3d hmnew; | 
| 95 | 
  | 
 | 
| 96 | 
< | 
 | 
| 97 | 
< | 
 | 
| 98 | 
< | 
    // Scale the box after all the positions have been moved: | 
| 99 | 
< | 
 | 
| 100 | 
< | 
    // Use a taylor expansion for eta products:  Hmat = Hmat . exp(dt * etaMat) | 
| 101 | 
< | 
    //  Hmat = Hmat . ( Ident + dt * etaMat  + dt^2 * etaMat*etaMat / 2) | 
| 110 | 
< | 
 | 
| 111 | 
< | 
    bigScale = 1.0; | 
| 112 | 
< | 
    smallScale = 1.0; | 
| 113 | 
< | 
    offDiagMax = 0.0; | 
| 114 | 
< | 
 | 
| 115 | 
< | 
    for(i=0; i<3; i++){ | 
| 116 | 
< | 
      for(j=0; j<3; j++){ | 
| 117 | 
< | 
 | 
| 118 | 
< | 
        // Calculate the matrix Product of the eta array (we only need | 
| 119 | 
< | 
        // the ij element right now): | 
| 120 | 
< | 
 | 
| 121 | 
< | 
        eta2ij = 0.0; | 
| 122 | 
< | 
        for(k=0; k<3; k++){ | 
| 123 | 
< | 
          eta2ij += eta(i, k) * eta(k, j); | 
| 124 | 
< | 
        } | 
| 125 | 
< | 
 | 
| 126 | 
< | 
        scaleMat(i, j) = 0.0; | 
| 127 | 
< | 
        // identity matrix (see above): | 
| 128 | 
< | 
        if (i == j) scaleMat(i, j) = 1.0; | 
| 129 | 
< | 
        // Taylor expansion for the exponential truncated at second order: | 
| 130 | 
< | 
        scaleMat(i, j) += dt*eta(i, j)  + 0.5*dt*dt*eta2ij; | 
| 131 | 
< | 
       | 
| 132 | 
< | 
 | 
| 133 | 
< | 
        if (i != j) | 
| 134 | 
< | 
          if (fabs(scaleMat(i, j)) > offDiagMax) | 
| 135 | 
< | 
            offDiagMax = fabs(scaleMat(i, j)); | 
| 96 | 
> | 
    for(int i=0; i<3; i++){ | 
| 97 | 
> | 
      for(int j=0; j<3; j++){ | 
| 98 | 
> | 
              scaleMat(i, j) = 0.0; | 
| 99 | 
> | 
              if(i==j) { | 
| 100 | 
> | 
                scaleMat(i, j) = 1.0; | 
| 101 | 
> | 
              } | 
| 102 | 
  | 
      } | 
| 137 | 
– | 
 | 
| 138 | 
– | 
      if (scaleMat(i, i) > bigScale) bigScale = scaleMat(i, i); | 
| 139 | 
– | 
      if (scaleMat(i, i) < smallScale) smallScale = scaleMat(i, i); | 
| 103 | 
  | 
    } | 
| 104 | 
< | 
 | 
| 105 | 
< | 
    if ((bigScale > 1.01) || (smallScale < 0.99)) { | 
| 106 | 
< | 
      sprintf( painCave.errMsg, | 
| 107 | 
< | 
               "NPAT error: Attempting a Box scaling of more than 1 percent.\n" | 
| 108 | 
< | 
               " Check your tauBarostat, as it is probably too small!\n\n" | 
| 146 | 
< | 
               " scaleMat = [%lf\t%lf\t%lf]\n" | 
| 147 | 
< | 
               "            [%lf\t%lf\t%lf]\n" | 
| 148 | 
< | 
               "            [%lf\t%lf\t%lf]\n" | 
| 149 | 
< | 
               "      eta = [%lf\t%lf\t%lf]\n" | 
| 150 | 
< | 
               "            [%lf\t%lf\t%lf]\n" | 
| 151 | 
< | 
               "            [%lf\t%lf\t%lf]\n", | 
| 152 | 
< | 
               scaleMat(0, 0),scaleMat(0, 1),scaleMat(0, 2), | 
| 153 | 
< | 
               scaleMat(1, 0),scaleMat(1, 1),scaleMat(1, 2), | 
| 154 | 
< | 
               scaleMat(2, 0),scaleMat(2, 1),scaleMat(2, 2), | 
| 155 | 
< | 
               eta(0, 0),eta(0, 1),eta(0, 2), | 
| 156 | 
< | 
               eta(1, 0),eta(1, 1),eta(1, 2), | 
| 157 | 
< | 
               eta(2, 0),eta(2, 1),eta(2, 2)); | 
| 158 | 
< | 
      painCave.isFatal = 1; | 
| 159 | 
< | 
      simError(); | 
| 160 | 
< | 
    } else if (offDiagMax > 0.01) { | 
| 161 | 
< | 
      sprintf( painCave.errMsg, | 
| 162 | 
< | 
               "NPAT error: Attempting an off-diagonal Box scaling of more than 1 percent.\n" | 
| 163 | 
< | 
               " Check your tauBarostat, as it is probably too small!\n\n" | 
| 164 | 
< | 
               " scaleMat = [%lf\t%lf\t%lf]\n" | 
| 165 | 
< | 
               "            [%lf\t%lf\t%lf]\n" | 
| 166 | 
< | 
               "            [%lf\t%lf\t%lf]\n" | 
| 167 | 
< | 
               "      eta = [%lf\t%lf\t%lf]\n" | 
| 168 | 
< | 
               "            [%lf\t%lf\t%lf]\n" | 
| 169 | 
< | 
               "            [%lf\t%lf\t%lf]\n", | 
| 170 | 
< | 
               scaleMat(0, 0),scaleMat(0, 1),scaleMat(0, 2), | 
| 171 | 
< | 
               scaleMat(1, 0),scaleMat(1, 1),scaleMat(1, 2), | 
| 172 | 
< | 
               scaleMat(2, 0),scaleMat(2, 1),scaleMat(2, 2), | 
| 173 | 
< | 
               eta(0, 0),eta(0, 1),eta(0, 2), | 
| 174 | 
< | 
               eta(1, 0),eta(1, 1),eta(1, 2), | 
| 175 | 
< | 
               eta(2, 0),eta(2, 1),eta(2, 2)); | 
| 176 | 
< | 
      painCave.isFatal = 1; | 
| 177 | 
< | 
      simError(); | 
| 178 | 
< | 
    } else { | 
| 179 | 
< | 
 | 
| 180 | 
< | 
      Mat3x3d hmat = currentSnapshot_->getHmat(); | 
| 181 | 
< | 
      hmat = hmat *scaleMat; | 
| 182 | 
< | 
      currentSnapshot_->setHmat(hmat); | 
| 183 | 
< | 
         | 
| 184 | 
< | 
    } | 
| 104 | 
> | 
     | 
| 105 | 
> | 
    scaleMat(2, 2) = exp(dt*eta(2, 2)); | 
| 106 | 
> | 
    Mat3x3d hmat = currentSnapshot_->getHmat(); | 
| 107 | 
> | 
    hmat = hmat *scaleMat; | 
| 108 | 
> | 
    currentSnapshot_->setHmat(hmat); | 
| 109 | 
  | 
  } | 
| 110 | 
  | 
 | 
| 111 | 
  | 
  bool NPAT::etaConverged() { | 
| 112 | 
  | 
    int i; | 
| 113 | 
< | 
    double diffEta, sumEta; | 
| 113 | 
> | 
    RealType diffEta, sumEta; | 
| 114 | 
  | 
 | 
| 115 | 
  | 
    sumEta = 0; | 
| 116 | 
  | 
    for(i = 0; i < 3; i++) { | 
| 122 | 
  | 
    return ( diffEta <= etaTolerance ); | 
| 123 | 
  | 
  } | 
| 124 | 
  | 
 | 
| 125 | 
< | 
  double NPAT::calcConservedQuantity(){ | 
| 125 | 
> | 
  RealType NPAT::calcConservedQuantity(){ | 
| 126 | 
  | 
 | 
| 127 | 
  | 
    chi= currentSnapshot_->getChi(); | 
| 128 | 
  | 
    integralOfChidt = currentSnapshot_->getIntegralOfChiDt(); | 
| 138 | 
  | 
    // of freedom).   | 
| 139 | 
  | 
    fkBT = info_->getNdf()*OOPSEConstant::kB *targetTemp;     | 
| 140 | 
  | 
     | 
| 141 | 
< | 
    double conservedQuantity; | 
| 142 | 
< | 
    double totalEnergy; | 
| 143 | 
< | 
    double thermostat_kinetic; | 
| 144 | 
< | 
    double thermostat_potential; | 
| 145 | 
< | 
    double barostat_kinetic; | 
| 146 | 
< | 
    double barostat_potential; | 
| 147 | 
< | 
    double trEta; | 
| 141 | 
> | 
    RealType conservedQuantity; | 
| 142 | 
> | 
    RealType totalEnergy; | 
| 143 | 
> | 
    RealType thermostat_kinetic; | 
| 144 | 
> | 
    RealType thermostat_potential; | 
| 145 | 
> | 
    RealType barostat_kinetic; | 
| 146 | 
> | 
    RealType barostat_potential; | 
| 147 | 
> | 
    RealType trEta; | 
| 148 | 
  | 
 | 
| 149 | 
  | 
    totalEnergy = thermo.getTotalE(); | 
| 150 | 
  | 
 | 
| 152 | 
  | 
 | 
| 153 | 
  | 
    thermostat_potential = fkBT* integralOfChidt / OOPSEConstant::energyConvert; | 
| 154 | 
  | 
 | 
| 155 | 
< | 
    SquareMatrix<double, 3> tmp = eta.transpose() * eta; | 
| 155 | 
> | 
    SquareMatrix<RealType, 3> tmp = eta.transpose() * eta; | 
| 156 | 
  | 
    trEta = tmp.trace(); | 
| 157 | 
  | 
     | 
| 158 | 
  | 
    barostat_kinetic = NkBT * tb2 * trEta /(2.0 * OOPSEConstant::energyConvert); |