/*		CLIENT program for test package FRED		    FRED_PROG_C

  Stub Version Number: 9524  */

#include <rpcrts.h>

typedef    rpc_byte byte_type;
typedef    rpc_char char_type;
typedef    rpc_short short_type;
typedef    rpc_long long_type;
typedef    rpc_integer int_type;
typedef    rpc_real32 real_type;
typedef    rpc_char str_type[21];
typedef    rpc_char array_type[11][8];
typedef    rpc_long seq_type[81];
typedef    rpc_char arr_str[10][21];
typedef    rpc_char s_of_string[11][21];
typedef    rpc_char seq_of_str_2[10][21];
typedef    struct {
      rpc_integer field1;
      rpc_real32 field2;
      rpc_char field3[21];
   } rpc_stype_0;
typedef    struct {
      rpc_integer my_int;
      rpc_char my_a_s[10][21];
      struct {
         rpc_integer field1;
         rpc_real32 field2;
         rpc_char field3[21];
      } my_rec2;
   } my_rec;


static my_rec saved;

fred_in(p1)
    my_rec *p1;
{
    saved = *p1;	    /* save the data for later */
}
fred_out(p1)
    my_rec *p1;
{
    *p1 = saved;	    /* Return the data from previous fred_in call */
}

fred_in_out(p1)
    my_rec *p1;
{
    p1->my_int += 3;
    p1->my_rec2.field1 +=5;  /* Show that it's not just the same data */
}