-// Copyright (C) 2007-2019 CEA/DEN, EDF R&D
+// Copyright (C) 2007-2020 CEA/DEN, EDF R&D
//
// This library is free software; you can redistribute it and/or
// modify it under the terms of the GNU Lesser General Public
int intsendbuf[5] ;
double doublesendbuf[10] ;
int RequestId[10] ;
- int sts ;
+ int sts = 0;
int i , j ;
for ( j = 0 ; j < 3 ; j++ ) {
for ( i = 0 ; i < 10 ; i++ ) {
sts = mpi_access.IRecv(&recvbuf,outcount,MPI_INT,source,
RequestId[i] ) ;
if ( datatype == MPI_INT ) {
- int source, tag, error, outcount ;
+ int error;
mpi_access.wait( RequestId[i] ) ;
mpi_access.status( RequestId[i], source, tag, error, outcount,
true ) ;