scilab/modules/mpi/tests/unit_tests/mpi_bcast.tst

   1 // =============================================================================
   2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
   3 // Copyright (C) 2010-2010 - DIGITEO - Sylvestre LEDRU
   4 //
   5 //  This file is distributed under the same license as the Scilab package.
   6 // =============================================================================
   7 //
   8 // <-- MPI TEST 4 -->
   9 //
  10 MPI_Init();
  11 rnk =    MPI_Comm_rank();
  12 sizeNodes =    MPI_Comm_size();
  13
  14 assert_checkequal(MPI_Comm_size(), 4);
  15
  16 SLV = rnk;                // handy shortcuts, master is rank 0
  17 Master = ~ SLV;            // slaves are all other
  18
  19 a=-1
  20 if Master
  21    // Declare a
  22    a=42
  23 end
  24 b=MPI_Bcast(a, 0);
  25 assert_checkequal(b,42);
  26
  27 a2=-1
  28
  29 if Master
  30    // Declare a
  31    a2=[2,2;3,2];
  32
  33 end
  34
  35 b2=MPI_Bcast(a2, 0);
  36 assert_checkequal(b2,[2,2;3,2]);
  37
  38
  39 MPI_Finalize();
  40 exit