-- file: MFEquations.mesa
-- Pascal-to-Mesa translator output, translated at October 31, 1985 4:28:00 pm PST


DIRECTORY
  PascalBasic,
  PascalWizardFiles,
  MFTypes;

MFEquations: DEFINITIONS IMPORTS  =
BEGIN OPEN PascalBasic, PascalWizardFiles, MFTypes;

FixNeeded: PascalBoolean;

WatchCoefs: PascalBoolean;

DepFinal: Halfword;

 SlowAdd: PROCEDURE[X,Y: PascalInteger] RETURNS[SlowAddResult: PascalInteger]
;

 PrintDependency: PROCEDURE[P: Halfword,T: SmallNumber];

 PPlusFq: PROCEDURE[P: Halfword,F: PascalInteger,
Q: Halfword,T,Tt: SmallNumber] RETURNS[PPlusFqResult: Halfword];

--:593----599:-- POverV: PROCEDURE[P: Halfword,V: Scaled,
T0,T1: SmallNumber] RETURNS[POverVResult: Halfword];

 ValTooBig: PROCEDURE[X: Scaled]
;

 MakeKnown: PROCEDURE[P,Q: Halfword];

 FixDependencies: PROCEDURE;

 RingDelete: PROCEDURE[P: Halfword]
;

--:577----590:-- MaxCoef: PROCEDURE[P: Halfword] RETURNS[MaxCoefResult: Fraction];

 PPlusQ: PROCEDURE[P: Halfword,Q: Halfword,T: SmallNumber] RETURNS[PPlusQResult: Halfword]
;

 PTimesV: PROCEDURE[P: Halfword,V: PascalInteger,T0,T1: SmallNumber,
VIsScaled: PascalBoolean] RETURNS[PTimesVResult: Halfword];

--:598----600:-- PWithXBecomingQ: PROCEDURE[P,X,Q: Halfword,
T: SmallNumber] RETURNS[PWithXBecomingQResult: Halfword];

--605:-- NewDep: PROCEDURE[Q,P: Halfword];

 LinearEq: PROCEDURE[P: Halfword,T: SmallNumber];

 NewRingEntry: PROCEDURE[P: Halfword] RETURNS[NewRingEntryResult: Halfword];

 NonlinearEq: PROCEDURE[V: PascalInteger,P: Halfword,FlushP: PascalBoolean]
;

 RingMerge: PROCEDURE[P,Q: Halfword];

END.