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

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

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

revision 976 by johnpye, Thu Dec 14 14:04:54 2006 UTC revision 977 by johnpye, Wed Dec 20 00:39:52 2006 UTC
# Line 73  Line 73 
73  #include "integrator.h"  #include "integrator.h"
74  #include "lsode.h"  #include "lsode.h"
75    
76    const IntegratorInternals integrator_lsode_internals = {
77        integrator_lsode_create
78        ,integrator_lsode_params_default
79        ,integrator_analyse_ode /* note, this routine is back in integrator.c */
80        ,integrator_lsode_solve
81        ,integrator_lsode_free
82        ,INTEG_LSODE
83        ,"LSODE"
84    };
85    
86  /*  /*
87  #include "Sensitivity.h"  #include "Sensitivity.h"
88  *//* see the packages dir */  *//* see the packages dir */
89    
 #ifndef lint  
 static CONST char LsodeID[] = "$Id: Lsode.c,v 1.29 2000/01/25 02:26:31 ballan Exp $";  
 #endif  
   
   
90  /*  /*
91   *  NOUNDERBARS --> FORTRAN compiler naming convention for subroutine   *  NOUNDERBARS --> FORTRAN compiler naming convention for subroutine
92   *  is wierd. WIN32/CRAY is treated as special case   *  is wierd. WIN32/CRAY is treated as special case
Legend:
Removed from v.976  
changed lines
  Added in v.977
john.pye@anu.edu.au
 ViewVC Help
Powered by ViewVC 1.1.22