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

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

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

revision 1336 by johnpye, Mon Mar 5 07:22:21 2007 UTC revision 1337 by jpye, Sat Mar 10 12:33:15 2007 UTC
# Line 418  int integrator_find_indep_var(Integrator Line 418  int integrator_find_indep_var(Integrator
418  int integrator_analyse(IntegratorSystem *sys){  int integrator_analyse(IntegratorSystem *sys){
419      int res;      int res;
420    
421    #ifdef ANALYSE_DEBUG
422      CONSOLE_DEBUG("Analysing integration system...");      CONSOLE_DEBUG("Analysing integration system...");
423    #endif
424      asc_assert(sys);      asc_assert(sys);
425      if(sys->engine==INTEG_UNKNOWN){      if(sys->engine==INTEG_UNKNOWN){
426          ERROR_REPORTER_HERE(ASC_PROG_ERR,"No engine selected: can't analyse");          ERROR_REPORTER_HERE(ASC_PROG_ERR,"No engine selected: can't analyse");
# Line 431  int integrator_analyse(IntegratorSystem Line 433  int integrator_analyse(IntegratorSystem
433          if(integrator_find_indep_var(sys)){          if(integrator_find_indep_var(sys)){
434              ERROR_REPORTER_HERE(ASC_PROG_ERR,"Independent variable problem: abandoning integration");              ERROR_REPORTER_HERE(ASC_PROG_ERR,"Independent variable problem: abandoning integration");
435              return 2;              return 2;
436          }else{          }
437    #ifdef ANALYSE_DEBUG
438            else{
439              CONSOLE_DEBUG("got 0 from  integrator_find_indep_var");              CONSOLE_DEBUG("got 0 from  integrator_find_indep_var");
440          }          }
441    #endif
442      }      }
443    
444      res = (sys->internals->analysefn)(sys);      res = (sys->internals->analysefn)(sys);
445    #ifdef ANALYSE_DEBUG
446      CONSOLE_DEBUG("integrator_analyse returning %d",res);      CONSOLE_DEBUG("integrator_analyse returning %d",res);
447    #endif
448      return res;      return res;
449  }  }
450    

Legend:
Removed from v.1336  
changed lines
  Added in v.1337

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