Source Code for Module libTI2.solvers.eulsimsolver

 1  #!/usr/bin/env python 
 2  import abstract_fortran_solver 
 3   
 4 -class eulsimsolver(abstract_fortran_solver.abstract_fortran_solver): 
 5   
 6 -    def specific_init(self): 
 7          self.global_commons = {"statp":["nfcn","nstep","naccpt","nrejct","ndec","nsol"]} 
 8          self.global_declarations = {} 
 9          self.global_definitions = {} 
10          self.fortran_solver_call = "eulsim (n,fcn,t,y,tend,tol,hmax,h,kflag)" 
11          self.fortran_fcn_parameters = "n t y dy ifail".split() 
12          self.fortran_fcn_declarations = {"integer":["ifail"]} 
13          self.fortran_fcn_definitions = {"ifail":"0"} 
14   
15 -    def get_compile_call_list(self): 
16          return ["eulsim.f","linalg_eulsim.f","zibconst.f"] 
17   
18 -class eulsimtitrator(abstract_fortran_solver.abstract_fortran_titrator): 
19 -    def create_solver(self,species,species_values,differential_equations,signalling): 
20          return eulsimsolver(species,species_values,differential_equations,signalling) 
21   
22  if __name__ == "__main__": 
23      abstract_fortran_solver.abstract_test("eulsim",eulsimsolver,eulsimtitrator) 
24