Mentions légales du service

Skip to content
Snippets Groups Projects
Commit 07985b26 authored by Mathieu Faverge's avatar Mathieu Faverge
Browse files

Silent warning when printing complex

parent 12b0ddb5
Branches
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 18 additions and 4 deletions
z_spm_print.c
+ 18
− 4
View file @ 07985b26
......@@ -61,11 +61,11 @@ z_spmPrint( const pastix_spm_t *spm )
{
for(jj=0; jj<dofj; jj++, valptr++)
{
fprintf( stderr, "%ld %ld %e\n",
row + jj, col + ii, *valptr );
fprintf( stderr, "%ld %ld (%e, %e)\n",
row + jj, col + ii, creal(*valptr), cimag(*valptr) );
if (i != j) {
fprintf( stderr, "%ld %ld %e\n",
col + ii, row + jj, conj(*valptr) );
fprintf( stderr, "%ld %ld (%e, %e)\n",
col + ii, row + jj, creal(conj(*valptr)), cimag(conj(*valptr)) );
}
}
}
......@@ -89,12 +89,21 @@ z_spmPrint( const pastix_spm_t *spm )
{
for(jj=0; jj<dofj; jj++, valptr++)
{
#if defined(PRECISION_z) || defined(PRECISION_c)
fprintf( stderr, "%ld %ld (%e, %e)\n",
row + jj, col + ii, creal(*valptr), cimag(*valptr) );
if (i != j) {
fprintf( stderr, "%ld %ld (%e, %e)\n",
col + ii, row + jj, creal(*valptr), cimag(*valptr) );
}
#else
fprintf( stderr, "%ld %ld %e\n",
row + jj, col + ii, *valptr );
if (i != j) {
fprintf( stderr, "%ld %ld %e\n",
col + ii, row + jj, *valptr );
}
#endif
}
}
}
......@@ -117,8 +126,13 @@ z_spmPrint( const pastix_spm_t *spm )
{
for(jj=0; jj<dofj; jj++, valptr++)
{
#if defined(PRECISION_z) || defined(PRECISION_c)
fprintf( stderr, "%ld %ld (%e, %e)\n",
row + jj, col + ii, creal(*valptr), cimag(*valptr) );
#else
fprintf( stderr, "%ld %ld %e\n",
row + jj, col + ii, *valptr );
#endif
}
}
}
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment