1#ifndef RPG_LR_AM_COMPRESSOR_TPP
2#define RPG_LR_AM_COMPRESSOR_TPP
11#include "LrAmCompressor.h"
12#include <rpg/system/System.h>
13#include <prdc/cuda/FFT.h>
14#include <prdc/cuda/resources.h>
15#include <pscf/mesh/MeshIterator.h>
30 isIntraCalculated_(false),
63 const int nMonomer = system().mixture().nMonomer();
64 const int meshSize = system().domain().mesh().size();
65 IntVec<D> const & dimensions = system().domain().mesh().dimensions();
73 for (
int i = 0; i < D; ++i) {
75 kMeshDimensions_[i] = dimensions[i];
77 kMeshDimensions_[i] = dimensions[i]/2 + 1;
83 for (
int i = 0; i < D; ++i) {
84 kSize_ *= kMeshDimensions_[i];
89 w0_.allocate(nMonomer);
90 wFieldTmp_.allocate(nMonomer);
91 resid_.allocate(dimensions);
92 residK_.allocate(dimensions);
93 intraCorrelationK_.allocate(kMeshDimensions_);
94 for (
int i = 0; i < nMonomer; ++i) {
95 w0_[i].allocate(dimensions);
96 wFieldTmp_[i].allocate(dimensions);
103 if (!isIntraCalculated_){
104 intra_.computeIntraCorrelations(intraCorrelationK_);
105 isIntraCalculated_ =
true;
109 for (
int i = 0; i < nMonomer; ++i) {
129 LrAmCompressor<D>::addCorrection(
131 VectorT
const & resTrial)
133 int n = fieldTrial.capacity();
134 const double vMonomer = system().mixture().vMonomer();
140 system().domain().fft().forwardTransform(resid_, residK_);
146 system().domain().fft().inverseTransformUnsafe(residK_, resid_);
158 int LrAmCompressor<D>::nElements()
159 {
return system().domain().mesh().size(); }
165 bool LrAmCompressor<D>::hasInitialGuess()
166 {
return system().w().hasData(); }
172 void LrAmCompressor<D>::getCurrent(VectorT& curr)
187 void LrAmCompressor<D>::evaluate()
197 void LrAmCompressor<D>::getResidual(VectorT& resid)
199 const int nMonomer = system().mixture().nMonomer();
205 for (
int i = 1; i < nMonomer; i++) {
214 void LrAmCompressor<D>::update(VectorT& newGuess)
217 const int nMonomer = system().mixture().nMonomer();
220 for (
int i = 0; i < nMonomer; i++) {
225 system().w().setRGrid(wFieldTmp_);
232 void LrAmCompressor<D>::outputToLog()
242 out <<
"LrAmCompressor time contributions:\n";
262 void LrAmCompressor<D>::setEqual(VectorT& a,
273 double LrAmCompressor<D>::dotProduct(VectorT
const & a,
284 double LrAmCompressor<D>::maxAbs(VectorT
const & a)
291 void LrAmCompressor<D>::subVV(VectorT& a,
300 void LrAmCompressor<D>::addEqVc(VectorT& a,
virtual void setup(bool isContinuation)
void outputTimers(std::ostream &out) const
void readErrorType(std::istream &in)
virtual void readParameters(std::istream &in)
int solve(bool isContinuation=false)
An IntVec<D, T> is a D-component vector of elements of integer type T.
static void computeKMesh(IntVec< D > const &rMeshDimensions, IntVec< D > &kMeshDimensions, int &kSize)
Compute dimensions and size of k-space mesh for DFT of real data.
Base class for iterators that impose incompressibility.
int mdeCounter_
Count how many times MDE has been solved.
~LrAmCompressor()
Destructor.
void outputTimers(std::ostream &out) const
Return compressor times contributions.
void readParameters(std::istream &in)
Read all parameters and initialize.
int compress()
Compress to obtain partial saddle point w+.
void clearTimers()
Clear all timers (reset accumulated time to zero).
void setup(bool isContinuation)
Initialize just before entry to iterative loop.
LrAmCompressor(System< D > &system)
Constructor.
Main class, representing a complete physical system.
void setClassName(const char *className)
Set class name string.
File containing preprocessor macros for error handling.
#define UTIL_CHECK(condition)
Assertion macro suitable for serial or parallel production code.
double maxAbs(Array< double > const &in)
Get maximum absolute magnitude of array elements .
double innerProduct(Array< double > const &a, Array< double > const &b)
Compute inner product of two real arrays .
void subVV(Array< double > &a, Array< double > const &b, Array< double > const &c)
Vector subtraction, a[i] = b[i] - c[i].
void addEqV(Array< double > &a, Array< double > const &b)
Vector addition in-place, a[i] += b[i].
void eqV(Array< double > &a, Array< double > const &b)
Vector assignment, a[i] = b[i].
void addVV(Array< double > &a, Array< double > const &b, Array< double > const &c)
Vector addition, a[i] = b[i] + c[i].
void subVS(Array< double > &a, Array< double > const &b, double c)
Vector subtraction, a[i] = b[i] - c.
void divEqVc(DeviceArray< cudaComplex > &a, DeviceArray< cudaReal > const &b, cudaReal const c)
Vector division in-place w/ coeff., a[i] /= (b[i] * c), kernel wrapper.
void addEqVc(DeviceArray< cudaReal > &a, DeviceArray< cudaReal > const &b, cudaReal const c)
Vector addition in-place w/ coefficient, a[i] += b[i] * c, kernel wrapper.
SCFT and PS-FTS with real periodic fields (GPU)
PSCF package top-level namespace.