1-- C3A00121.A 2 -- 3-- Grant of Unlimited Rights 4-- 5-- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, 6-- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained 7-- unlimited rights in the software and documentation contained herein. 8-- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making 9-- this public release, the Government intends to confer upon all 10-- recipients unlimited rights equal to those held by the Government. 11-- These rights include rights to use, duplicate, release or disclose the 12-- released technical data and computer software in whole or in part, in 13-- any manner and for any purpose whatsoever, and to have or permit others 14-- to do so. 15-- 16-- DISCLAIMER 17-- 18-- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR 19-- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED 20-- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE 21-- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE 22-- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A 23-- PARTICULAR PURPOSE OF SAID MATERIAL. 24--* 25 -- 26 -- OBJECTIVE: 27 -- See file C3A00122.AM 28 -- 29 -- TEST DESCRIPTION: 30 -- See file C3A00122.AM 31 -- 32 -- TEST FILES: 33 -- The following files comprise this test: 34 -- 35 -- C3A00120.A 36 -- => C3A00121.A 37 -- C3A00122.AM 38 -- 39 -- 40-- CHANGE HISTORY: 41-- 06 Dec 94 SAIC ACVC 2.0 42-- 43 --! 44 45 Separate (C3A0012_0) 46 procedure Log_Calc_Fast (Angle : in Float; 47 Method : out Call_Kind) is 48 begin 49 C3A0012_0.Log_Result := Angle; 50 Method := Fast_Call; 51 end Log_Calc_Fast; 52 53 54 --=======================================================================-- 55 56 57 Separate (C3A0012_0) 58 procedure Log_Calc_Acc (Angle : in Float; 59 Method : out Call_Kind) is 60 begin 61 C3A0012_0.Log_Result := Angle; 62 Method := Accurate_Call; 63 end Log_Calc_Acc; 64 65 66 --=======================================================================-- 67 68 69 Separate (C3A0012_0) 70 procedure Log_Calc_Table (Angle : in Float; 71 Method : out Call_Kind) is 72 begin 73 C3A0012_0.Log_Result := Angle; 74 Method := Table_Lookup_Call; 75 end Log_Calc_Table; 76 77