| 
41561
 | 
     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.83}
 | 
| 
 | 
     9  | 
  | 
| 
 | 
    10  | 
                              {function RMD.S_L}
 | 
| 
 | 
    11  | 
  | 
| 
 | 
    12  | 
  | 
| 
 | 
    13  | 
title function s_l;
  | 
| 
 | 
    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_l_spec(integer) : integer;
  | 
| 
 | 
    36  | 
  | 
| 
 | 
    37  | 
end;
  |