package big is

type my_array is array(3..30) of rpc_byte;
type my_matrix is array(1..10,5..14) of rpc_real32;
type my_string is string(100);

type big_rec is record
                  f_byte      : rpc_byte;
	          f_char      : rpc_char;
	          f_short_int : rpc_short;
	          f_long_int  : rpc_long;
	          f_string    : my_string;
	          f_float     : rpc_real32;
                  f_array     : my_array;
	          f_matrix    : my_matrix;
                end record;


procedure p_no_parameters;


function f_no_parameters return rpc_long;


procedure only_in                        
            ( f_byte      : in rpc_byte;     
              f_char      : in rpc_char;     
              f_short_int : in rpc_short;  
              f_long_int  : in rpc_long;
              f_string    : in my_string;
              f_float     : in rpc_real32;     
              f_array     : in my_array; 
              f_matrix    : in my_matrix;
              f_rec       : in big_rec   
            );                           


procedure only_out             
            ( f_byte      : out rpc_byte;     
              f_char      : out rpc_char;     
              f_short_int : out rpc_short;  
              f_long_int  : out rpc_long;
              f_string    : out my_string;
              f_float     : out rpc_real32;     
              f_array     : out my_array; 
              f_matrix    : out my_matrix;
              f_rec       : out big_rec   
            );                           

procedure in_and_out                        
            ( f_byte      : in out rpc_byte;     
              f_char      : in out rpc_char;     
              f_short_int : in out rpc_short;  
              f_long_int  : in out rpc_long;
              f_string    : in out my_string;
              f_float     : in out rpc_real32;     
              f_array     : in out my_array; 
              f_matrix    : in out my_matrix;
              f_rec       : in out big_rec   
            );                           

end big;
