1           {*******************************************************}
2                               {FDL Declarations}
3    {Examiner Pro Edition, Version 9.1.0, Build Date 20101119, Build 19039}
4             {Copyright (C) 2010 Altran Praxis Limited, Bath, U.K.}
5           {*******************************************************}
6
7
8                        {DATE : 29-NOV-2010 14:30:19.84}
9
10                              {function RMD.S_R}
11
12
13title function s_r;
14
15  function round__(real) : integer;
16  type round_index = integer;
17  type rotate_definition = array [integer] of integer;
18  const s_values : rotate_definition = pending;
19  const rotate_amount__base__first : integer = pending; 
20  const rotate_amount__base__last : integer = pending; 
21  const round_index__base__first : integer = pending; 
22  const round_index__base__last : integer = pending; 
23  const integer__base__first : integer = pending; 
24  const integer__base__last : integer = pending; 
25  const rotate_amount__first : integer = pending; 
26  const rotate_amount__last : integer = pending; 
27  const rotate_amount__size : integer = pending; 
28  const round_index__first : integer = pending; 
29  const round_index__last : integer = pending; 
30  const round_index__size : integer = pending; 
31  const integer__first : integer = pending; 
32  const integer__last : integer = pending; 
33  const integer__size : integer = pending; 
34  var j : integer;
35  function s_r_spec(integer) : integer;
36
37end;
38