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

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

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

revision 940 by johnpye, Wed Nov 22 13:09:09 2006 UTC revision 941 by johnpye, Fri Nov 24 10:46:32 2006 UTC
# Line 195  static void IntegInitSymbols(void){ Line 195  static void IntegInitSymbols(void){
195    INTEGRATOR ENGINE    INTEGRATOR ENGINE
196  */  */
197    
198  /* return 1 on success */  /* return 0 on success */
199  int integrator_set_engine(IntegratorSystem *sys, IntegratorEngine engine){  int integrator_set_engine(IntegratorSystem *sys, IntegratorEngine engine){
200    
201      /* verify integrator type ok. always passes for nonNULL inst. */      /* verify integrator type ok. always passes for nonNULL inst. */
# Line 203  int integrator_set_engine(IntegratorSyst Line 203  int integrator_set_engine(IntegratorSyst
203          ERROR_REPORTER_NOLINE(ASC_USER_ERROR          ERROR_REPORTER_NOLINE(ASC_USER_ERROR
204              ,"Integrator has not been specified (or is unknown)."              ,"Integrator has not been specified (or is unknown)."
205          );          );
206          return 0;          return 1;
207        }else{
208            /** @TODO other engine-specific tests */
209      }      }
210    
211      if(engine==sys->engine){      if(engine==sys->engine){
212          return 1;          return 0;
213      }      }
214      if(sys->engine!=INTEG_UNKNOWN){      if(sys->engine!=INTEG_UNKNOWN){
215          integrator_free_engine(sys);          integrator_free_engine(sys);
# Line 215  int integrator_set_engine(IntegratorSyst Line 217  int integrator_set_engine(IntegratorSyst
217      sys->engine = engine;      sys->engine = engine;
218      integrator_create_engine(sys);      integrator_create_engine(sys);
219    
220      return 1;      return 0;
221  }  }
222    
223  IntegratorEngine integrator_get_engine(const IntegratorSystem *sys){  IntegratorEngine integrator_get_engine(const IntegratorSystem *sys){

Legend:
Removed from v.940  
changed lines
  Added in v.941

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