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

error flag. cleaned i/o. no stop.

Browse Source
This commit is contained in:
vhenson 1997-02-10 07:13:21 +00:00
parent 7ea57df9af
commit a9857e5072
2 changed files with 32 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
seq_linear_solvers/amg/amg/amg_params.c
View File

@ -138,33 +138,31 @@ void *data;
AMGDataIURLX(amg_data) = iurlx;
}
/*--------------------------------------------------------------------------
* Routines to set the output parameters
* Routine to set up logging
*--------------------------------------------------------------------------*/
void amg_SetIOutDat(ioutdat, data)
void amg_SetLogging(ioutdat, log_file_name, data)
int ioutdat;
void *data;
{
AMGData *amg_data = data;
AMGDataIOutDat(amg_data) = ioutdat;
}
/*--------------------------------------------------------------------------
* Routine to set the log file name
*--------------------------------------------------------------------------*/
void amg_SetLogFileName(log_file_name, data)
char *log_file_name;
void *data;
{
FILE *fp;
AMGData *amg_data = data;
sprintf(AMGDataLogFileName(amg_data), "%s", log_file_name);
AMGDataIOutDat(amg_data) = ioutdat;
if (ioutdat > 0)
{
if (*log_file_name == 0)
sprintf(AMGDataLogFileName(amg_data), "%s", "amg.out.log");
else
sprintf(AMGDataLogFileName(amg_data), "%s", log_file_name);
fp = fopen(AMGDataLogFileName(amg_data),"w");
fclose(fp);
}
}

34
seq_ls/amg/amg/amg_params.c
View File

@ -138,33 +138,31 @@ void *data;
AMGDataIURLX(amg_data) = iurlx;
}
/*--------------------------------------------------------------------------
* Routines to set the output parameters
* Routine to set up logging
*--------------------------------------------------------------------------*/
void amg_SetIOutDat(ioutdat, data)
void amg_SetLogging(ioutdat, log_file_name, data)
int ioutdat;
void *data;
{
AMGData *amg_data = data;
AMGDataIOutDat(amg_data) = ioutdat;
}
/*--------------------------------------------------------------------------
* Routine to set the log file name
*--------------------------------------------------------------------------*/
void amg_SetLogFileName(log_file_name, data)
char *log_file_name;
void *data;
{
FILE *fp;
AMGData *amg_data = data;
sprintf(AMGDataLogFileName(amg_data), "%s", log_file_name);
AMGDataIOutDat(amg_data) = ioutdat;
if (ioutdat > 0)
{
if (*log_file_name == 0)
sprintf(AMGDataLogFileName(amg_data), "%s", "amg.out.log");
else
sprintf(AMGDataLogFileName(amg_data), "%s", log_file_name);
fp = fopen(AMGDataLogFileName(amg_data),"w");
fclose(fp);
}
}