DEFINITION MODULE Scientific;

(*
    Title: 	Write reals in scientific format
    LastEdit:	"Wed Mar  6 15:08:47 1985"
    Author: 	Alan Jones,T72,232,322723
		Cambridge University Computer Laboratory
*)

FROM Streams IMPORT Stream ;

EXPORT QUALIFIED WriteScientific ;

PROCEDURE WriteScientific (stream : Stream ;
                           Value : REAL ;
                           SignificantDigits : CARDINAL) ;
(* 
   Write out the value in scientific notation, that is
   as a real times a power of 1000. If no significant digits
   are requested, then a sensible maximum will be used.
   
   If the number of significant digits is too small for a sensible 
   representation, then more will be used. 
*)

END Scientific.
