31
31
32
32
#include " Config.hpp"
33
33
34
- #include < Eigen/Core>
35
34
#include < Eigen/Cholesky>
35
+ #include < Eigen/Core>
36
36
37
37
#include " cavity/Cavity.hpp"
38
38
#include " cavity/Element.hpp"
43
43
void CPCMSolver::buildSystemMatrix_impl (const Cavity & cavity, const IGreensFunction & gf_i, const IGreensFunction & gf_o)
44
44
{
45
45
if (!isotropic_) PCMSOLVER_ERROR (" C-PCM is defined only for isotropic environments!" , BOOST_CURRENT_FUNCTION);
46
- TIMER_ON (" Computing SI " );
46
+ TIMER_ON (" Computing S " );
47
47
double epsilon = profiles::epsilon (gf_o.permittivity ());
48
- SI_ = gf_i.singleLayer (cavity.elements ());
49
- SI_ /= (epsilon - 1.0 )/(epsilon + correction_);
50
- TIMER_OFF (" Computing SI " );
48
+ S_ = gf_i.singleLayer (cavity.elements ());
49
+ S_ /= (epsilon - 1.0 )/(epsilon + correction_);
50
+ TIMER_OFF (" Computing S " );
51
51
52
52
// Symmetry-pack
53
53
// The number of irreps in the group
@@ -59,10 +59,10 @@ void CPCMSolver::buildSystemMatrix_impl(const Cavity & cavity, const IGreensFunc
59
59
// into "block diagonal" when all other manipulations are done.
60
60
if (cavity.pointGroup ().nrGenerators () != 0 ) {
61
61
TIMER_ON (" Symmetry blocking" );
62
- symmetryBlocking (SI_ , cavity.size (), dimBlock, nrBlocks);
62
+ symmetryBlocking (S_ , cavity.size (), dimBlock, nrBlocks);
63
63
TIMER_OFF (" Symmetry blocking" );
64
64
}
65
- symmetryPacking (blockSI_, SI_ , dimBlock, nrBlocks);
65
+ symmetryPacking (blockS_, S_ , dimBlock, nrBlocks);
66
66
67
67
built_ = true ;
68
68
}
@@ -72,12 +72,12 @@ Eigen::VectorXd CPCMSolver::computeCharge_impl(const Eigen::VectorXd & potential
72
72
// The potential and charge vector are of dimension equal to the
73
73
// full dimension of the cavity. We have to select just the part
74
74
// relative to the irrep needed.
75
- int fullDim = SI_ .rows ();
75
+ int fullDim = S_ .rows ();
76
76
Eigen::VectorXd charge = Eigen::VectorXd::Zero (fullDim);
77
- int nrBlocks = blockSI_ .size ();
77
+ int nrBlocks = blockS_ .size ();
78
78
int irrDim = fullDim/nrBlocks;
79
79
charge.segment (irrep*irrDim, irrDim) =
80
- - blockSI_ [irrep].ldlt ().solve (potential.segment (irrep*irrDim, irrDim));
80
+ - blockS_ [irrep].ldlt ().solve (potential.segment (irrep*irrDim, irrDim));
81
81
// Symmetrize ASC charge := (charge + charge*)/2
82
82
if (hermitivitize_) hermitivitize (charge);
83
83
0 commit comments