int MPI_File_write_at_all(MPI_File fh, MPI_Offset offset, void *buf,
int count, MPI_Datatype datatype,
MPI_Status *status)
{
_MPI_COVERAGE();
return PMPI_File_write_at_all (fh, offset, buf, count, datatype, status);
}
int MPI_File_write_at_all(MPI_File fh, MPI_Offset offset, const void *buff, int cnt,
MPI_Datatype dtype, MPI_Status *st)
{
int g2g = 1;
char call[COLLCHK_SM_STRLEN];
char err_str[COLLCHK_STD_STRLEN];
MPI_Comm comm;
sprintf(call, "FILE_WRITE_AT_ALL");
/* Check if init has been called */
g2g = CollChk_is_init();
if(g2g) {
/* get the communicator */
if (!CollChk_get_fh(fh, &comm)) {
return CollChk_err_han("File has not been opened.",
COLLCHK_ERR_FILE_NOT_OPEN,
call, MPI_COMM_WORLD);
}
/* check for call consistancy */
CollChk_same_call(comm, call);
/* check not after a begin; */
if(COLLCHK_CALLED_BEGIN) {
sprintf(err_str, "A MPI_File_%s_begin operation has been called, "
"you must call MPI_File_%s_end first.",
CollChk_begin_str, CollChk_begin_str);
return CollChk_err_han(err_str, COLLCHK_ERR_PREVIOUS_BEGIN,
call, MPI_COMM_WORLD);
}
/* make the call */
return PMPI_File_write_at_all(fh, offset, buff, cnt, dtype, st);
}
else {
/* init not called */
return CollChk_err_han("MPI_Init() has not been called.",
COLLCHK_ERR_NOT_INIT, call, MPI_COMM_WORLD);
}
}
void ompi_file_write_at_all_f(MPI_Fint *fh, MPI_Offset *offset,
char *buf, MPI_Fint *count,
MPI_Fint *datatype, MPI_Fint *status,
MPI_Fint *ierr)
{
int c_ierr;
MPI_File c_fh = PMPI_File_f2c(*fh);
MPI_Datatype c_type = PMPI_Type_f2c(*datatype);
OMPI_FORTRAN_STATUS_DECLARATION(c_status,c_status2)
OMPI_FORTRAN_STATUS_SET_POINTER(c_status,c_status2,status)
c_ierr = PMPI_File_write_at_all(c_fh,
(MPI_Offset) *offset,
OMPI_F2C_BOTTOM(buf),
OMPI_FINT_2_INT(*count),
c_type,
c_status);
if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr);
OMPI_FORTRAN_STATUS_RETURN(c_status,c_status2,status,c_ierr)
}
