@@ -789,39 +789,6 @@ void PrintOutput(sunrealtype t, sunrealtype y1, sunrealtype y2, sunrealtype y3)
789
789
return ;
790
790
}
791
791
792
- /*
793
- * Get and print some final statistics
794
- */
795
-
796
- void PrintFinalStats (void * cvode_mem, SUNLinearSolver LS)
797
- {
798
- long int nst, nfe, nsetups, nje, nni, ncfn, nli, netf;
799
- int retval;
800
-
801
- retval = CVodeGetNumSteps (cvode_mem, &nst);
802
- check_retval (&retval, " CVodeGetNumSteps" , 1 );
803
- retval = CVodeGetNumRhsEvals (cvode_mem, &nfe);
804
- check_retval (&retval, " CVodeGetNumRhsEvals" , 1 );
805
- retval = CVodeGetNumLinSolvSetups (cvode_mem, &nsetups);
806
- check_retval (&retval, " CVodeGetNumLinSolvSetups" , 1 );
807
- retval = CVodeGetNumErrTestFails (cvode_mem, &netf);
808
- check_retval (&retval, " CVodeGetNumErrTestFails" , 1 );
809
- retval = CVodeGetNumNonlinSolvIters (cvode_mem, &nni);
810
- check_retval (&retval, " CVodeGetNumNonlinSolvIters" , 1 );
811
- retval = CVodeGetNumNonlinSolvConvFails (cvode_mem, &ncfn);
812
- check_retval (&retval, " CVodeGetNumNonlinSolvConvFails" , 1 );
813
- retval = CVodeGetNumLinIters (cvode_mem, &nli);
814
- check_retval (&retval, " CVodeGetNumLinIters" , 1 );
815
- retval = CVodeGetNumJacEvals (cvode_mem, &nje);
816
- check_retval (&retval, " CVodeGetNumJacEvals" , 1 );
817
-
818
- printf (" \n Final Statistics:\n " );
819
- printf (" nst = %-6ld nfe = %-6ld nsetups = %-6ld nje = %ld\n " , nst, nfe,
820
- nsetups, nje);
821
- printf (" nni = %-6ld ncfn = %-6ld nli = %-6ld netf = %-6ld\n \n " , nni,
822
- ncfn, nli, netf);
823
- }
824
-
825
792
/*
826
793
* Check function return value...
827
794
* opt == 0 means SUNDIALS function allocates memory so check if
0 commit comments