}
int* recvcounts=new int[world_size];
int* recvdispls=new int[world_size];
- int *dummyrecv;
+ int *dummyrecv=0;
for (int i=0; i <world_size; i++)
{
recvcounts[i]=0;
recvdispls[i]=recvdispls[i-1]+recvcounts[i-1];
}
- int *dummysend;
+ int *dummysend=0;
for (int i=0; i <world_size; i++)
{
sendcounts[i]=0;
ParaMEDMEM::ParaMESH *paramesh=0;
ParaMEDMEM::MEDCouplingUMesh *mesh;
ParaMEDMEM::ParaFIELD *parafield=0;
- ParaMEDMEM::MEDCouplingFieldDouble *field;
ParaMEDMEM::CommInterface *interface;
ParaMEDMEM::MPIProcessorGroup *source, *target;
{
int lsize, lrank, gsize, grank;
MPI_Comm gcom;
- MPI_Status status;
std::string service = "SERVICE";
std::ostringstream meshfilename, meshname;
ParaMEDMEM::ParaMESH *paramesh=0;
ParaMEDMEM::MEDCouplingUMesh* mesh;
ParaMEDMEM::ParaFIELD *parafield=0;
- ParaMEDMEM::MEDCouplingFieldDouble* field;
ParaMEDMEM::CommInterface* interface;
ParaMEDMEM::MPIProcessorGroup* source, *target;
MPI_Barrier(MPI_COMM_WORLD);
- clock_t clock0= clock ();
+ //clock_t clock0= clock ();
int compti=0;
bool init=true; // first time step ??
while (!stop) {
compti++;
- clock_t clocki= clock ();
+ //clock_t clocki= clock ();
//cout << compti << " CLOCK " << (clocki-clock0)*1.e-6 << endl;
for (int non_unif=0;non_unif<2;non_unif++)
{
if(rank!=3)
champ_emetteur._field[0]=40;
}
- bool ok=false; // Is the time interval successfully solved ?
+ //bool ok=false; // Is the time interval successfully solved ?
// Loop on the time interval tries
if(1) {
if (cas=="emetteur")
if (non_unif)
champ_emetteur._field[0]=40;
- bool ok=false; // Is the time interval successfully solved ?
+ //bool ok=false; // Is the time interval successfully solved ?
// Loop on the time interval tries
if(1)