

DEFINITION MODULE SUPCONV;

FROM SUPINT IMPORT SuperInteger;

PROCEDURE IntToSup
   ( I : LONGINT;
     A : SuperInteger
   );


PROCEDURE SupToInt
   ( A : SuperInteger;
     VAR I : LONGINT
   );


PROCEDURE CardToSup
   ( C : LONGCARD;
     A : SuperInteger
   );


PROCEDURE SupToCard
   ( A : SuperInteger;
     VAR C : LONGCARD
   );


PROCEDURE SupToReal
   ( A : SuperInteger;
     VAR R : REAL
   );


PROCEDURE RoundLongRealToSup
   ( R : LONGREAL;
     A : SuperInteger
   );


PROCEDURE LongRealToSup
   ( R : LONGREAL;
     A : SuperInteger
   );


PROCEDURE SupToLongReal
   ( A : SuperInteger;
     VAR R : LONGREAL
   );


END SUPCONV.
