[numerics] change verbose of test
@@ -68,7 +68,7 @@ int globalFrictionContact_test_function(FILE * f, SolverOptions * options)
/* numerics_set_verbose(1); */
info = globalFrictionContact_newFromFile(problem, f);
- globalFrictionContact_display(problem);
+ /* globalFrictionContact_display(problem); */
FILE * foutput = fopen("checkinput.dat", "w");
@@ -91,7 +91,6 @@ int globalFrictionContact_test_function(FILE * f, SolverOptions * options)
{
globalvelocity[k] = 0.0;
}
- NV_display(globalvelocity,n);
if (dim == 2)
{
info = 1;
@@ -102,15 +101,33 @@ int globalFrictionContact_test_function(FILE * f, SolverOptions * options)
reaction , velocity, globalvelocity,
options);
}
- printf("\n");
+ int print_size = 10;
+
+ if (dim * NC >= print_size)
+ {
+ printf("First values (%i)\n", print_size);
+ for (k = 0 ; k < print_size; k++)
+ {
+ printf("Velocity[%i] = %12.8e \t \t Reaction[%i] = %12.8e\n", k, velocity[k], k , reaction[k]);
+ }
+ printf(" ..... \n");
+ for (k = 0 ; k < print_size; k++)
+ {
+ printf("GlocalVelocity[%i] = %12.8e\n", k, globalvelocity[k]);
+ }
+ }
+ else
+ {
for (k = 0 ; k < dim * NC; k++)
{
printf("Velocity[%i] = %12.8e \t \t Reaction[%i] = %12.8e\n", k, velocity[k], k , reaction[k]);
}
- for (k = 0 ; k < n; k++)
+ printf("\n");
+ for (k = 0 ; k < dim*NC; k++)
{
printf("GlocalVelocity[%i] = %12.8e\n", k, globalvelocity[k]);
}
+ }
printf("\n");
for (k = 0; k < dim * NC; ++k)
@@ -220,6 +237,10 @@ int gfc3d_test_function_hdf5(const char* path, SolverOptions* options)
printf("Velocity[%i] = %12.8e \t \t Reaction[%i] = %12.8e\n", k, velocity[k], k , reaction[k]);
}
printf(" ..... \n");
+ for (k = 0 ; k < print_size; k++)
+ {
+ printf("GlocalVelocity[%i] = %12.8e\n", k, global_velocity[k]);
+ }
}
else
{
