/* This program is free software; you can redistribute it and/or modify it
* under the terms of the license (GNU LGPL) which comes with this package. */
/* This program is free software; you can redistribute it and/or modify it
* under the terms of the license (GNU LGPL) which comes with this package. */
op->func(invec, inoutvec, len, datatype);
else{
int tmp = smpi_type_c2f(*datatype);
op->func(invec, inoutvec, len, datatype);
else{
int tmp = smpi_type_c2f(*datatype);
op->func(invec, inoutvec, len, reinterpret_cast<MPI_Datatype*>(&tmp) );
}
}
op->func(invec, inoutvec, len, reinterpret_cast<MPI_Datatype*>(&tmp) );
}
}