MPI_SUCCESS=0;

MPI_Init();

comm   = MPI_Comm_Load("CICI");
cpu_ID = MPI_Comm_rank(comm);
cpu_N  = MPI_Comm_size(comm);

tag=48;

if cpu_ID==0
  for i=1:cpu_N-1
    [temp info] = MPI_Recv(i, tag, comm);
    if info==MPI_SUCCESS
      disp('Ok');
      disp(temp);
    end
  end
else
%  message=[1 1]; %works
  message=ones(1,2);% fails
%  message=zeros(1,2); %works
%  message=[ones(1,2)]; % works
%  message=ones(1,2)*0.5;% fails
%  message=ones(2,1); % work
%  message=ones(2,2); % work
%  message=rand(1,2); % work
  [info]=MPI_Send(message, 0, tag, comm);
  disp('send_result')
  disp(info)
end

MPI_Finalize();
