CFD/hypre
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

uses ioutdat to control output.

Browse Source
This commit is contained in:
vhenson 1997-01-08 19:10:41 +00:00
parent f00850ad94
commit 0af51896fa
2 changed files with 14 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
seq_linear_solvers/amg/amgdriver/amgdriver.c
View File

@ -67,29 +67,18 @@ char *argv[];
sprintf(file_name, "%s.solver.strp", GlobalsInFileName);
solver = NewSolver(file_name);
/*-------------------------------------------------------
* Debugging prints
*-------------------------------------------------------*/
#if 0
sprintf(file_name, "%s.ysmp", GlobalsOutFileName);
WriteYSMP(file_name, ProblemA(problem));
sprintf(file_name, "%s.initu", GlobalsOutFileName);
WriteVec(file_name, ProblemU(problem));
sprintf(file_name, "%s.rhs", GlobalsOutFileName);
WriteVec(file_name, ProblemF(problem));
#endif
/*-------------------------------------------------------
* Write initial logging info
*-------------------------------------------------------*/
fp = fopen(GlobalsLogFileName, "w");
fclose(fp);
if (SolverAMGIOutDat(solver) != 0)
{
fp = fopen(GlobalsLogFileName, "w");
fclose(fp);
WriteProblem(GlobalsLogFileName, problem);
WriteSolver(GlobalsLogFileName, solver);
WriteProblem(GlobalsLogFileName, problem);
WriteSolver(GlobalsLogFileName, solver);
}
/*-------------------------------------------------------
* Call the solver

25
seq_ls/amg/amgdriver/amgdriver.c
View File

@ -67,29 +67,18 @@ char *argv[];
sprintf(file_name, "%s.solver.strp", GlobalsInFileName);
solver = NewSolver(file_name);
/*-------------------------------------------------------
* Debugging prints
*-------------------------------------------------------*/
#if 0
sprintf(file_name, "%s.ysmp", GlobalsOutFileName);
WriteYSMP(file_name, ProblemA(problem));
sprintf(file_name, "%s.initu", GlobalsOutFileName);
WriteVec(file_name, ProblemU(problem));
sprintf(file_name, "%s.rhs", GlobalsOutFileName);
WriteVec(file_name, ProblemF(problem));
#endif
/*-------------------------------------------------------
* Write initial logging info
*-------------------------------------------------------*/
fp = fopen(GlobalsLogFileName, "w");
fclose(fp);
if (SolverAMGIOutDat(solver) != 0)
{
fp = fopen(GlobalsLogFileName, "w");
fclose(fp);
WriteProblem(GlobalsLogFileName, problem);
WriteSolver(GlobalsLogFileName, solver);
WriteProblem(GlobalsLogFileName, problem);
WriteSolver(GlobalsLogFileName, solver);
}
/*-------------------------------------------------------
* Call the solver