void CWaveSolver::ImplicitEuler_Iteration(CGeometry *geometry, CSolver **solver_container, CConfig *config) {
unsigned short iVar;
unsigned long iPoint, total_index, IterLinSol;
/*--- Set maximum residual to zero ---*/
for (iVar = 0; iVar < nVar; iVar++) {
SetRes_RMS(iVar, 0.0);
SetRes_Max(iVar, 0.0, 0);
}
/*--- Build implicit system ---*/
for (iPoint = 0; iPoint < geometry->GetnPointDomain(); iPoint++) {
/*--- Right hand side of the system (-Residual) and initial guess (x = 0) ---*/
for (iVar = 0; iVar < nVar; iVar++) {
total_index = iPoint*nVar+iVar;
LinSysSol[total_index] = 0.0;
AddRes_RMS(iVar, LinSysRes[total_index]*LinSysRes[total_index]);
AddRes_Max(iVar, fabs(LinSysRes[total_index]), geometry->node[iPoint]->GetGlobalIndex(), geometry->node[iPoint]->GetCoord());
}
}
/*--- Initialize residual and solution at the ghost points ---*/
for (iPoint = geometry->GetnPointDomain(); iPoint < geometry->GetnPoint(); iPoint++) {
for (iVar = 0; iVar < nVar; iVar++) {
total_index = iPoint*nVar + iVar;
LinSysRes[total_index] = 0.0;
LinSysSol[total_index] = 0.0;
}
}
/*--- Solve or smooth the linear system ---*/
CSysSolve system;
IterLinSol = system.Solve(Jacobian, LinSysRes, LinSysSol, geometry, config);
/*--- Update solution (system written in terms of increments) ---*/
for (iPoint = 0; iPoint < geometry->GetnPointDomain(); iPoint++) {
for (iVar = 0; iVar < nVar; iVar++) {
node[iPoint]->AddSolution(iVar, config->GetLinear_Solver_Relax()*LinSysSol[iPoint*nVar+iVar]);
}
}
/*--- MPI solution ---*/
Set_MPI_Solution(geometry, config);
/*--- Compute the root mean square residual ---*/
SetResidual_RMS(geometry, config);
}
void CHeatSolver::ImplicitEuler_Iteration(CGeometry *geometry, CSolver **solver_container, CConfig *config) {
unsigned short iVar;
unsigned long iPoint, total_index;
bool output;
/*--- Build implicit system ---*/
for (iPoint = 0; iPoint < geometry->GetnPoint(); iPoint++) {
/*--- Right hand side of the system (-Residual) and initial guess (x = 0) ---*/
for (iVar = 0; iVar < nVar; iVar++) {
total_index = iPoint*nVar+iVar;
LinSysSol[total_index] = 0.0;
}
}
/*--- Initialize residual and solution at the ghost points ---*/
for (iPoint = geometry->GetnPointDomain(); iPoint < geometry->GetnPoint(); iPoint++) {
for (iVar = 0; iVar < nVar; iVar++) {
total_index = iPoint*nVar + iVar;
LinSysRes[total_index] = 0.0;
LinSysSol[total_index] = 0.0;
}
}
/*--- Solve the linear system (Krylov subspace methods) ---*/
CMatrixVectorProduct* mat_vec = new CSysMatrixVectorProduct(Jacobian, geometry, config);
CPreconditioner* precond = NULL;
if (config->GetKind_Linear_Solver_Prec() == JACOBI) {
Jacobian.BuildJacobiPreconditioner();
precond = new CJacobiPreconditioner(Jacobian, geometry, config);
}
else if (config->GetKind_Linear_Solver_Prec() == LU_SGS) {
precond = new CLU_SGSPreconditioner(Jacobian, geometry, config);
}
else if (config->GetKind_Linear_Solver_Prec() == LINELET) {
Jacobian.BuildJacobiPreconditioner();
Jacobian.BuildLineletPreconditioner(geometry, config);
precond = new CLineletPreconditioner(Jacobian, geometry, config);
}
CSysSolve system;
if (config->GetUnsteady_Simulation() == STEADY) output = true;
else output = false;
if (config->GetKind_Linear_Solver() == BCGSTAB)
system.BCGSTAB(LinSysRes, LinSysSol, *mat_vec, *precond, config->GetLinear_Solver_Error(), config->GetLinear_Solver_Iter(), output);
else if (config->GetKind_Linear_Solver() == FGMRES)
system.FGMRES(LinSysRes, LinSysSol, *mat_vec, *precond, config->GetLinear_Solver_Error(), config->GetLinear_Solver_Iter(), output);
delete mat_vec;
delete precond;
/*--- Update solution (system written in terms of increments) ---*/
for (iPoint = 0; iPoint < geometry->GetnPoint(); iPoint++) {
for (iVar = 0; iVar < nVar; iVar++) {
if (config->GetUnsteady_Simulation() == STEADY) node[iPoint]->SetSolution(iVar, LinSysSol[iPoint*nVar+iVar]);
else node[iPoint]->AddSolution(iVar, LinSysSol[iPoint*nVar+iVar]);
}
}
/*--- MPI solution ---*/
Set_MPI_Solution(geometry, config);
/*--- Compute the residual Ax-f ---*/
Jacobian.ComputeResidual(LinSysSol, LinSysRes, LinSysAux);
/*--- Set maximum residual to zero ---*/
for (iVar = 0; iVar < nVar; iVar++) {
SetRes_RMS(iVar, 0.0);
SetRes_Max(iVar, 0.0, 0);
}
/*--- Compute the residual ---*/
for (iPoint = 0; iPoint < geometry->GetnPoint(); iPoint++) {
for (iVar = 0; iVar < nVar; iVar++) {
total_index = iPoint*nVar+iVar;
AddRes_RMS(iVar, LinSysAux[total_index]*LinSysAux[total_index]);
AddRes_Max(iVar, fabs(LinSysAux[total_index]), geometry->node[iPoint]->GetGlobalIndex());
}
}
/*--- Compute the root mean square residual ---*/
SetResidual_RMS(geometry, config);
}