/[ascend]/trunk/base/generic/solver/lsode.c
ViewVC logotype

Diff of /trunk/base/generic/solver/lsode.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 996 by johnpye, Wed Dec 20 14:34:16 2006 UTC revision 997 by johnpye, Sun Dec 24 01:33:59 2006 UTC
# Line 958  int integrator_lsode_solve(IntegratorSys Line 958  int integrator_lsode_solve(IntegratorSys
958      /* CONSOLE_DEBUG("LSODE call #%lu: x = [%f,%f]", index,xprev,xend); */      /* CONSOLE_DEBUG("LSODE call #%lu: x = [%f,%f]", index,xprev,xend); */
959    
960  # ifndef NO_SIGNAL_TRAPS  # ifndef NO_SIGNAL_TRAPS
961      if (setjmp(g_fpe_env)==0) {      if (SETJMP(g_fpe_env)==0) {
962  # endif /* NO_SIGNAL_TRAPS */  # endif /* NO_SIGNAL_TRAPS */
963    
964        /* CONSOLE_DEBUG("Calling LSODE with end-time = %f",xend); */        /* CONSOLE_DEBUG("Calling LSODE with end-time = %f",xend); */
# Line 1050  int integrator_lsode_solve(IntegratorSys Line 1050  int integrator_lsode_solve(IntegratorSys
1050    
1051      if (nobs > 0) {      if (nobs > 0) {
1052  # ifndef NO_SIGNAL_TRAPS  # ifndef NO_SIGNAL_TRAPS
1053        if (setjmp(g_fpe_env)==0) {        if (SETJMP(g_fpe_env)==0) {
1054  # endif /* NO_SIGNAL_TRAPS */  # endif /* NO_SIGNAL_TRAPS */
1055    
1056          /* solve for obs since d isn't necessarily already          /* solve for obs since d isn't necessarily already
Legend:
Removed from v.996  
changed lines
  Added in v.997
john.pye@anu.edu.au
 ViewVC Help
Powered by ViewVC 1.1.22