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.