home *** CD-ROM | disk | FTP | other *** search
/ Programmer's ROM - The Computer Language Library / programmersrom.iso / ada / test / benmath.ada < prev    next >
Encoding:
Text File  |  1988-05-03  |  965 b   |  25 lines
  1. --  Filename: MATHSTUB.ADA
  2.   package MATHSTUB is
  3.     function  SIN(X: in FLOAT) return FLOAT;
  4.     function  COS(X: in FLOAT) return FLOAT;
  5.     function ATAN(X: in FLOAT) return FLOAT;
  6.     function  LOG(X: in FLOAT) return FLOAT;
  7.     function SQRT(X: in FLOAT) return FLOAT;
  8.     function  EXP(X: in FLOAT) return FLOAT;
  9.   end MATHSTUB;
  10.   package body MATHSTUB is
  11.     function  SIN (X: in FLOAT) return FLOAT is
  12.                   begin return 1.0; end SIN;
  13.     function  COS (X: in FLOAT) return FLOAT is
  14.                   begin return 1.0; end COS;
  15.     function ATAN (X: in FLOAT) return FLOAT is
  16.                   begin return 1.0; end ATAN;
  17.     function  LOG (X: in FLOAT) return FLOAT is
  18.                   begin return 1.0; end LOG;
  19.     function SQRT (X: in FLOAT) return FLOAT is 
  20.                   begin return 1.0; end SQRT;
  21.     function  EXP (X: in FLOAT) return FLOAT is
  22.                   begin return 1.0; end EXP;
  23.   end MATHSTUB;
  24.  
  25.