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

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

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

revision 909 by johnpye, Thu Oct 26 12:44:41 2006 UTC revision 910 by johnpye, Thu Oct 26 13:35:25 2006 UTC
# Line 454  int integrator_ida_jvex(realtype tt, N_V Line 454  int integrator_ida_jvex(realtype tt, N_V
454    
455              Jv_i = 0;              Jv_i = 0;
456              for(j=0; j < count; ++j){              for(j=0; j < count; ++j){
457                  CONSOLE_DEBUG("j = %d, variables[j] = %d, n_y = %ld", j, variables[j], blsys->n_y);                  /* CONSOLE_DEBUG("j = %d, variables[j] = %d, n_y = %ld", j, variables[j], blsys->n_y); */
458                  varname = var_make_name(blsys->system, enginedata->varlist[variables[j]]);                  varname = var_make_name(blsys->system, enginedata->varlist[variables[j]]);
459                  if(varname){                  if(varname){
460                      CONSOLE_DEBUG("Variable %d '%s' derivative = %f", variables[j],varname,derivatives[j]);                      CONSOLE_DEBUG("Variable %d '%s' derivative = %f", variables[j],varname,derivatives[j]);
# Line 467  int integrator_ida_jvex(realtype tt, N_V Line 467  int integrator_ida_jvex(realtype tt, N_V
467              }              }
468    
469              NV_Ith_S(Jv,i) = Jv_i;              NV_Ith_S(Jv,i) = Jv_i;
470                CONSOLE_DEBUG("(J*v)[%d] = %f", i, Jv_i);
471    
472              if(status){              if(status){
473                  /* presumably some error_reporter will already have been made*/                  /* presumably some error_reporter will already have been made*/
474                  is_error = 1;                  is_error = 1;

Legend:
Removed from v.909  
changed lines
  Added in v.910

john.pye@anu.edu.au
ViewVC Help
Powered by ViewVC 1.1.22