

DEFINITION MODULE CONT;

FROM EVENT  IMPORT EventType;
FROM SYSTEM IMPORT ADDRESS;

TYPE

   VarCont;


   Deriv = PROCEDURE (LONGREAL) : LONGREAL;


   Method = (Euler, RungeKutta2, RungeKutta4);


PROCEDURE Create
   ( VAR V : VarCont;
     Val   : LONGREAL;
     D     : Deriv;
     Par   : ADDRESS
   );


PROCEDURE Init
   ( V   : VarCont;
     Val : LONGREAL
   );


PROCEDURE Value
   ( V : VarCont
   ) : LONGREAL;


PROCEDURE VarAttrib
   ( V : VarCont
   ) : ADDRESS;


PROCEDURE CurrentVar
   () : VarCont;


PROCEDURE SelectMethod
   ( M : Method;
     h : LONGREAL
   );


PROCEDURE StartInteg
   ( V : VarCont;
     E : EventType;
     Par : ADDRESS
   );


PROCEDURE StopInteg
   ( V : VarCont
   );


PROCEDURE Delete
   ( VAR V : VarCont
   );


END CONT.
