MODULE TestProfModule;

(* Last edited on 1999-01-04 19:24:15 by stolfi *)

PROCEDURE DoIt(n: CARDINAL) =
  BEGIN
    EVAL DoA(n);
    EVAL DoB(n);
  END DoIt;
  
PROCEDURE DoA(n: CARDINAL): LONGREAL =
  VAR s: LONGREAL := 0.0d0;
  BEGIN
    FOR i := 0 TO n DO s := s + 1.0d0/sqrt(FLOAT(i, LONGREAL)) END;
    RETURN s
  END DoA;
  
PROCEDURE DoB(n: CARDINAL): LONGREAL =
  VAR s: LONGREAL := 0.0d0;
  BEGIN
    FOR i := 0 TO n DO s := s + 1.0d0/FLOAT(i, LONGREAL) END;
    RETURN s
  END DoB;

BEGIN
END TestProfModule.