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.76} 9 10 {function RMD.K_R} 11 12 13title function k_r; 14 15 function round__(real) : integer; 16 type interfaces__unsigned_32 = integer; 17 type round_index = integer; 18 const round_index__base__first : integer = pending; 19 const round_index__base__last : integer = pending; 20 const word__base__first : integer = pending; 21 const word__base__last : integer = pending; 22 const interfaces__unsigned_32__base__first : integer = pending; 23 const interfaces__unsigned_32__base__last : integer = pending; 24 const round_index__first : integer = pending; 25 const round_index__last : integer = pending; 26 const round_index__size : integer = pending; 27 const word__first : integer = pending; 28 const word__last : integer = pending; 29 const word__modulus : integer = pending; 30 const word__size : integer = pending; 31 const interfaces__unsigned_32__first : integer = pending; 32 const interfaces__unsigned_32__last : integer = pending; 33 const interfaces__unsigned_32__modulus : integer = pending; 34 const interfaces__unsigned_32__size : integer = pending; 35 var j : integer; 36 function k_r_spec(integer) : integer; 37 38end; 39