-// Copyright (C) 2011-2019 CEA/DEN, EDF R&D, OPEN CASCADE
+// Copyright (C) 2011-2024 CEA, EDF, OPEN CASCADE
//
// This library is free software; you can redistribute it and/or
// modify it under the terms of the GNU Lesser General Public
# include <unistd.h>
#endif
+#include "Basics_MpiUtils.hxx"
+
int main(int argc, char**argv)
{
int *indg;
double *vector, sum=0., norm=1., etalon=0.;
int rank, size, grank, gsize, rsize;
- int vsize=20, lvsize, rlvsize;
+ int vsize=20, lvsize;
+ //int rlvsize;
int i, k1, k2, imin, imax, nb;
int srv=0;
MPI_Comm com, icom;
MPI_Comm_rank( MPI_COMM_WORLD, &rank );
MPI_Barrier(MPI_COMM_WORLD);
+ MPI_ERROR_HANDLER(MPI_ERRORS_RETURN);
- MPI_Errhandler_set(MPI_COMM_WORLD, MPI_ERRORS_RETURN);
#ifdef HAVE_MPI2
MPI_Info_create(&info);
MPI_Info_set(info, "ompi_unique", "true");
exit(1);
}
}
- MPI_Errhandler_set(MPI_COMM_WORLD, MPI_ERRORS_ARE_FATAL);
+ MPI_ERROR_HANDLER(MPI_ERRORS_ARE_FATAL);
MPI_Bcast(&srv,1,MPI_INT,0,MPI_COMM_WORLD);
if ( srv )
MPI_Comm_accept( port_name, MPI_INFO_NULL, 0, MPI_COMM_WORLD, &icom );
}
for(i=0;i<rsize;i++){
- rlvsize = ((i+1)*vsize) / rsize - (i*vsize) / rsize;
+ //rlvsize = ((i+1)*vsize) / rsize - (i*vsize) / rsize;
k1 = (i*vsize)/rsize;
k2 = ((i+1)*vsize)/rsize -1;