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

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

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

revision 1248 by johnpye, Fri Jan 26 22:24:56 2007 UTC revision 1249 by johnpye, Sat Jan 27 04:14:58 2007 UTC
# Line 1776  int integrator_ida_debug(const Integrato Line 1776  int integrator_ida_debug(const Integrato
1776              fprintf(fp,"(not incident)\n");              fprintf(fp,"(not incident)\n");
1777          }else{          }else{
1778              if(var_deriv(var)){              if(var_deriv(var)){
1779                  ASC_FREE(varname);                  if(sys->y_id){
1780                  varname = var_make_name(sys->system,vlist[integrator_ida_diffindex(sys,var)]);                      ASC_FREE(varname);
1781                  fprintf(fp,".\tdiff(%d='%s')\n",integrator_ida_diffindex(sys,var),varname);                      varname = var_make_name(sys->system,vlist[integrator_ida_diffindex(sys,var)]);
1782                        fprintf(fp,".\tdiff(%d='%s')\n",integrator_ida_diffindex(sys,var),varname);
1783                    }else{
1784                        fprintf(fp,".\tderiv... of??\n");
1785                    }
1786              }else{              }else{
1787                  fprintf(fp,"%d\t.\n",var_sindex(var));                  fprintf(fp,"%d\t.\n",var_sindex(var));
1788              }              }

Legend:
Removed from v.1248  
changed lines
  Added in v.1249

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