/*cdErrors produce summary of all warnings, cautions, etc, on arbitrary io unit */ #include "cddefines.h" #include "input.h" #include "cddrive.h" void cdErrors(FILE *ioOUT) { long int nc, nn, npe, ns, nte, nw , nIone, nEdene; # ifdef DEBUG_FUN fputs( "<+>cdErrors()\n", debug_fp ); # endif /* first check for number of warnings, cautions, etc */ cdNwcns(&nw,&nc,&nn,&ns,&nte,&npe, &nIone, &nEdene ); /* only say something is one of these problems is nonzero */ if( ((nw != 0 || nc != 0) || nte != 0) || npe != 0 || nIone != 0 || nEdene!= 0 ) { /* say the title of the model */ fprintf( ioOUT, "%75.75s\n", input.chTitle ); /* print warnings on the io unit */ if( nw != 0 ) { cdWarnings(ioOUT); } /* print cautions on the io unit */ if( nc != 0 ) { cdCautions(ioOUT); } if( nte != 0 ) { fprintf( ioOUT , "Te failures=%4ld\n", nte ); } if( npe != 0 ) { fprintf( ioOUT , "Pressure failures=%4ld\n", npe ); } if( nIone != 0 ) { fprintf( ioOUT , "Ionization failures=%4ld\n", nte ); } if( nEdene != 0 ) { fprintf( ioOUT , "Electron density failures=%4ld\n", npe ); } } # ifdef DEBUG_FUN fputs( " <->cdErrors()\n", debug_fp ); # endif return; }