int main(int argc , char ** argv) {
const char * config_file = argv[1];
ert_test_context_type * context = ert_test_context_alloc( "OBS_VECTOR_FS" , config_file);
enkf_main_type * enkf_main = ert_test_context_get_main( context );
{
test_valid_obs_vector( enkf_main , "WWCT:OP_3");
test_container( context );
test_measure( context );
test_invalid_obs_vector( enkf_main , "GOPT:OP");
}
ert_test_context_free( context );
}
int main(int argc, char *argv[])
{
if (argc < 4) {
printf("Usage: %s <format> <input_file> <output_file_prefix>\n", argv[0]);
return EXIT_FAILURE;
}
char *format = argv[1];
char *file_in = argv[2];
char *file_out = argv[3];
int status = 0;
/** internal cells start and end index*/
int nintci, nintcf;
/** external cells start and end index. The external cells are only ghost
* cells. They are accessed only through internal cells*/
int nextci, nextcf;
/** link cell-to-cell array. Stores topology information*/
int **lcc;
/** red-black colouring of the cells*/
int *nboard;
/** boundary coefficients for each volume cell */
double *bs, *be, *bn, *bw, *bl, *bh, *bp, *su;
const PAPI_hw_info_t* hw_info = PAPI_get_hardware_info();
if ( test_start() != 0 ) exit(1);
/************************************************************/
/* initialization */
// read-in the input file
int f_status;
if (strcmp(format, "text") == 0)
f_status = read_formatted(file_in, &nintci, &nintcf, &nextci, &nextcf,
&lcc, &bs, &be, &bn, &bw, &bl, &bh, &bp, &su,
&nboard);
else
f_status = read_formatted_bin(file_in, &nintci, &nintcf, &nextci,
&nextcf, &lcc, &bs, &be, &bn, &bw, &bl,
&bh, &bp, &su, &nboard);
if (f_status != 0) {
printf("failed to initialize data!\n");
return EXIT_FAILURE;
}
// allocate arrays used in gccg
int nomax = 3;
/** the reference residual*/
double resref = 0.0;
/** the ratio between the reference and the current residual*/
double ratio;
/** array storing residuals */
double* resvec = (double *) calloc(sizeof(double), (nintcf + 1));
/** the variation vector -> keeps the result in the end */
double* var = (double *) calloc(sizeof(double), (nextcf + 1));
/** the computation vectors */
double* direc1 = (double *) calloc(sizeof(double), (nextcf + 1));
double* direc2 = (double *) calloc(sizeof(double), (nextcf + 1));
/** additional vectors */
double* cgup = (double *) calloc(sizeof(double), (nextcf + 1));
double* oc = (double *) calloc(sizeof(double), (nintcf + 1));
double* cnorm = (double *) calloc(sizeof(double), (nintcf + 1));
double* adxor1 = (double *) calloc(sizeof(double), (nintcf + 1));
double* adxor2 = (double *) calloc(sizeof(double), (nintcf + 1));
double* dxor1 = (double *) calloc(sizeof(double), (nintcf + 1));
double* dxor2 = (double *) calloc(sizeof(double), (nintcf + 1));
// initialize the reference residual
for (int nc = nintci; nc <= nintcf; nc++) {
resvec[nc] = su[nc];
resref = resref + resvec[nc] * resvec[nc];
}
resref = sqrt(resref);
if (resref < 1.0e-15) {
printf("i/o - error: residue sum less than 1.e-15 - %lf\n", resref);
return EXIT_FAILURE;
}
// initialize the arrays
for (int nc = 0; nc <= 10; nc++) {
oc[nc] = 0.0;
cnorm[nc] = 1.0;
}
for (int nc = nintci; nc <= nintcf; nc++) {
cgup[nc] = 0.0;
var[nc] = 0.0;
}
for (int nc = nextci; nc <= nextcf; nc++) {
var[nc] = 0.0;
cgup[nc] = 0.0;
direc1[nc] = 0.0;
bs[nc] = 0.0;
be[nc] = 0.0;
bn[nc] = 0.0;
bw[nc] = 0.0;
bl[nc] = 0.0;
bh[nc] = 0.0;
}
for (int nc = nintci; nc <= nintcf; nc++)
cgup[nc] = 1.0 / bp[nc];
int if1 = 0;
int if2 = 0;
int iter = 1;
int nor = 1;
int nor1 = nor - 1;
/* finished initalization */
if ( test_measure("INPUT") != 0 ) exit( 1 );
/***************************************************/
while (iter < 10000) {
/* start phase 1 */
// update the old values of direc
for (int nc = nintci; nc <= nintcf; nc++) {
direc1[nc] = direc1[nc] + resvec[nc] * cgup[nc];
}
// compute new guess (approximation) for direc
for (int nc = nintci; nc <= nintcf; nc++) {
direc2[nc] = bp[nc] * direc1[nc] - bs[nc] * direc1[lcc[0][nc]]
- bw[nc] * direc1[lcc[3][nc]] - bl[nc] * direc1[lcc[4][nc]]
- bn[nc] * direc1[lcc[2][nc]] - be[nc] * direc1[lcc[1][nc]]
- bh[nc] * direc1[lcc[5][nc]];
} /* end phase 1 */
/* start phase 2 */
// execute normalization steps
double oc1, oc2, occ;
if (nor1 == 1) {
oc1 = 0;
occ = 0;
for (int nc = nintci; nc <= nintcf; nc++) {
occ = occ + adxor1[nc] * direc2[nc];
}
oc1 = occ / cnorm[1];
for (int nc = nintci; nc <= nintcf; nc++) {
direc2[nc] = direc2[nc] - oc1 * adxor1[nc];
direc1[nc] = direc1[nc] - oc1 * dxor1[nc];
}
if1++;
} else if (nor1 == 2) {
oc1 = 0;
occ = 0;
for (int nc = nintci; nc <= nintcf; nc++)
occ = occ + adxor1[nc] * direc2[nc];
oc1 = occ / cnorm[1];
oc2 = 0;
occ = 0;
for (int nc = nintci; nc <= nintcf; nc++)
occ = occ + adxor2[nc] * direc2[nc];
oc2 = occ / cnorm[2];
for (int nc = nintci; nc <= nintcf; nc++) {
direc2[nc] = direc2[nc] - oc1 * adxor1[nc] - oc2 * adxor2[nc];
direc1[nc] = direc1[nc] - oc1 * dxor1[nc] - oc2 * dxor2[nc];
}
if2++;
}
cnorm[nor] = 0;
double omega = 0;
// compute the new residual
for (int nc = nintci; nc <= nintcf; nc++) {
cnorm[nor] = cnorm[nor] + direc2[nc] * direc2[nc];
omega = omega + resvec[nc] * direc2[nc];
}
omega = omega / cnorm[nor];
double resnew = 0.0;
for (int nc = nintci; nc <= nintcf; nc++) {
var[nc] = var[nc] + omega * direc1[nc];
resvec[nc] = resvec[nc] - omega * direc2[nc];
resnew = resnew + resvec[nc] * resvec[nc];
}
resnew = sqrt(resnew);
ratio = resnew / resref;
// exit on no improvements of residual
if (ratio <= 1.0e-10)
break;
iter++;
// prepare additional arrays for the next iteration step
if (nor == nomax)
nor = 1;
else {
if (nor == 1) {
for (int nc = nintci; nc <= nintcf; nc++) {
dxor1[nc] = direc1[nc];
adxor1[nc] = direc2[nc];
}
} else if (nor == 2) {
for (int nc = nintci; nc <= nintcf; nc++) {
dxor2[nc] = direc1[nc];
adxor2[nc] = direc2[nc];
}
}
nor++;
}
nor1 = nor - 1;
}/* end phase 2 */
/* finished computation loop */
if ( test_measure("CALC") != 0 ) exit( 1 );
/**************************************************************/
/* write output file */
if ( write_result(file_in, file_out, nintci, nintcf, var, iter, ratio) != 0 )
printf("error when trying to write to file %s\n", file_out);
if ( test_measure("OUTPUT") != 0 ) exit( 1 );
int nodeCnt;
int** points;
int** elems;
vol2mesh(nintci, nintcf, lcc, &nodeCnt, &points, &elems);
write_result_vtk("SU.vtk", nintci, nintcf, nodeCnt, points, elems, su);
write_result_vtk("VAR.vtk", nintci, nintcf, nodeCnt, points, elems, var);
write_result_vtk("CGUP.vtk", nintci, nintcf, nodeCnt, points, elems, cgup);
/* Free all the dynamically allocated memory */
free(direc2);
free(direc1);
free(dxor2);
free(dxor1);
free(adxor2);
free(adxor1);
free(cnorm);
free(oc);
free(var);
free(cgup);
free(resvec);
free(su);
free(bp);
free(bh);
free(bl);
free(bw);
free(bn);
free(be);
free(bs);
printf("Simulation completed successfully!\n");
return EXIT_SUCCESS;
}
