|
Packit Service |
c5cf8c |
/* -*- Mode: C; c-basic-offset:4 ; -*- */
|
|
Packit Service |
c5cf8c |
/*
|
|
Packit Service |
c5cf8c |
* (C) 2014 by Argonne National Laboratory.
|
|
Packit Service |
c5cf8c |
* See COPYRIGHT in top-level directory.
|
|
Packit Service |
c5cf8c |
*
|
|
Packit Service |
c5cf8c |
* This file is automatically generated by buildiface
|
|
Packit Service |
c5cf8c |
* DO NOT EDIT
|
|
Packit Service |
c5cf8c |
*/
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
/*
|
|
Packit Service |
c5cf8c |
* This file is created for the sole purpose of referencing all the symbols
|
|
Packit Service |
c5cf8c |
* in ROMIO.
|
|
Packit Service |
c5cf8c |
*
|
|
Packit Service |
c5cf8c |
* All ROMIO public symbols are being added into the libromio convenience
|
|
Packit Service |
c5cf8c |
* library, which is LIBADD'ed into libmpi. The correct behavior would
|
|
Packit Service |
c5cf8c |
* be for libtool to add -Wl,--whole-archive to the link line, thus
|
|
Packit Service |
c5cf8c |
* forcing all symbols in libromio to end up in libmpi. However, in some
|
|
Packit Service |
c5cf8c |
* cases, this is not working out correctly. For example, with the
|
|
Packit Service |
c5cf8c |
* Absoft compiler, the linker flags were being reordered thus causing
|
|
Packit Service |
c5cf8c |
* the -Wl,--whole-archive flag to not correspond to libromio.
|
|
Packit Service |
c5cf8c |
* Consequently, only symbols that were used from within the other
|
|
Packit Service |
c5cf8c |
* functions of libmpi were being included.
|
|
Packit Service |
c5cf8c |
*
|
|
Packit Service |
c5cf8c |
* In the past, we got lucky in two ways:
|
|
Packit Service |
c5cf8c |
*
|
|
Packit Service |
c5cf8c |
* 1. We were including all the Fortran 77 symbols into libmpi. Since
|
|
Packit Service |
c5cf8c |
* the Fortran symbols were calling the C ROMIO symbols, those ROMIO
|
|
Packit Service |
c5cf8c |
* symbols were pulled in even without -Wl,--whole-archive.
|
|
Packit Service |
c5cf8c |
*
|
|
Packit Service |
c5cf8c |
* 2. The problem only showed up with absoft and nag, both of which are
|
|
Packit Service |
c5cf8c |
* Fortran-only compilers. If a C compiler has this issue, it should
|
|
Packit Service |
c5cf8c |
* have shown up when Fortran support is disabled.
|
|
Packit Service |
c5cf8c |
*/
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
#include "mpiimpl.h"
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
#include <stdio.h>
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
void MPIR_All_romio_symbols(void);
|
|
Packit Service |
c5cf8c |
void MPIR_All_romio_symbols(void)
|
|
Packit Service |
c5cf8c |
{
|
|
Packit Service |
c5cf8c |
#ifdef MPI_MODE_RDONLY
|
|
Packit Service |
c5cf8c |
{
|
|
Packit Service |
c5cf8c |
MPI_Comm comm = MPI_COMM_NULL;
|
|
Packit Service |
c5cf8c |
const char* filename = NULL;
|
|
Packit Service |
c5cf8c |
int amode = 0;
|
|
Packit Service |
c5cf8c |
MPI_Info info = MPI_INFO_NULL;
|
|
Packit Service |
c5cf8c |
MPI_File* fh = NULL;
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
MPI_File_open(comm, filename, amode, info, fh);
|
|
Packit Service |
c5cf8c |
}
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
{
|
|
Packit Service |
c5cf8c |
MPI_File* fh = NULL;
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
MPI_File_close(fh);
|
|
Packit Service |
c5cf8c |
}
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
{
|
|
Packit Service |
c5cf8c |
const char* filename = NULL;
|
|
Packit Service |
c5cf8c |
MPI_Info info = MPI_INFO_NULL;
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
MPI_File_delete(filename, info);
|
|
Packit Service |
c5cf8c |
}
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
{
|
|
Packit Service |
c5cf8c |
MPI_File fh = MPI_FILE_NULL;
|
|
Packit Service |
c5cf8c |
MPI_Offset size = 0;
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
MPI_File_set_size(fh, size);
|
|
Packit Service |
c5cf8c |
}
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
{
|
|
Packit Service |
c5cf8c |
MPI_File fh = MPI_FILE_NULL;
|
|
Packit Service |
c5cf8c |
MPI_Offset size = 0;
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
MPI_File_preallocate(fh, size);
|
|
Packit Service |
c5cf8c |
}
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
{
|
|
Packit Service |
c5cf8c |
MPI_File fh = MPI_FILE_NULL;
|
|
Packit Service |
c5cf8c |
MPI_Offset* size = NULL;
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
MPI_File_get_size(fh, size);
|
|
Packit Service |
c5cf8c |
}
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
{
|
|
Packit Service |
c5cf8c |
MPI_File fh = MPI_FILE_NULL;
|
|
Packit Service |
c5cf8c |
MPI_Group* group = NULL;
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
MPI_File_get_group(fh, group);
|
|
Packit Service |
c5cf8c |
}
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
{
|
|
Packit Service |
c5cf8c |
MPI_File fh = MPI_FILE_NULL;
|
|
Packit Service |
c5cf8c |
int* amode = NULL;
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
MPI_File_get_amode(fh, amode);
|
|
Packit Service |
c5cf8c |
}
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
{
|
|
Packit Service |
c5cf8c |
MPI_File fh = MPI_FILE_NULL;
|
|
Packit Service |
c5cf8c |
MPI_Info info = MPI_INFO_NULL;
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
MPI_File_set_info(fh, info);
|
|
Packit Service |
c5cf8c |
}
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
{
|
|
Packit Service |
c5cf8c |
MPI_File fh = MPI_FILE_NULL;
|
|
Packit Service |
c5cf8c |
MPI_Info* info_used = NULL;
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
MPI_File_get_info(fh, info_used);
|
|
Packit Service |
c5cf8c |
}
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
{
|
|
Packit Service |
c5cf8c |
MPI_File fh = MPI_FILE_NULL;
|
|
Packit Service |
c5cf8c |
MPI_Offset disp = 0;
|
|
Packit Service |
c5cf8c |
MPI_Datatype etype = MPI_DATATYPE_NULL;
|
|
Packit Service |
c5cf8c |
MPI_Datatype filetype = MPI_DATATYPE_NULL;
|
|
Packit Service |
c5cf8c |
const char* datarep = NULL;
|
|
Packit Service |
c5cf8c |
MPI_Info info = MPI_INFO_NULL;
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
MPI_File_set_view(fh, disp, etype, filetype, datarep, info);
|
|
Packit Service |
c5cf8c |
}
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
{
|
|
Packit Service |
c5cf8c |
MPI_File fh = MPI_FILE_NULL;
|
|
Packit Service |
c5cf8c |
MPI_Offset* disp = NULL;
|
|
Packit Service |
c5cf8c |
MPI_Datatype* etype = NULL;
|
|
Packit Service |
c5cf8c |
MPI_Datatype* filetype = NULL;
|
|
Packit Service |
c5cf8c |
char* datarep = NULL;
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
MPI_File_get_view(fh, disp, etype, filetype, datarep);
|
|
Packit Service |
c5cf8c |
}
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
{
|
|
Packit Service |
c5cf8c |
MPI_File fh = MPI_FILE_NULL;
|
|
Packit Service |
c5cf8c |
MPI_Offset offset = 0;
|
|
Packit Service |
c5cf8c |
void* buf = NULL;
|
|
Packit Service |
c5cf8c |
int count = 0;
|
|
Packit Service |
c5cf8c |
MPI_Datatype datatype = MPI_DATATYPE_NULL;
|
|
Packit Service |
c5cf8c |
MPI_Status* status = NULL;
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
MPI_File_read_at(fh, offset, buf, count, datatype, status);
|
|
Packit Service |
c5cf8c |
}
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
{
|
|
Packit Service |
c5cf8c |
MPI_File fh = MPI_FILE_NULL;
|
|
Packit Service |
c5cf8c |
MPI_Offset offset = 0;
|
|
Packit Service |
c5cf8c |
void* buf = NULL;
|
|
Packit Service |
c5cf8c |
int count = 0;
|
|
Packit Service |
c5cf8c |
MPI_Datatype datatype = MPI_DATATYPE_NULL;
|
|
Packit Service |
c5cf8c |
MPI_Status* status = NULL;
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
MPI_File_read_at_all(fh, offset, buf, count, datatype, status);
|
|
Packit Service |
c5cf8c |
}
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
{
|
|
Packit Service |
c5cf8c |
MPI_File fh = MPI_FILE_NULL;
|
|
Packit Service |
c5cf8c |
MPI_Offset offset = 0;
|
|
Packit Service |
c5cf8c |
const void* buf = NULL;
|
|
Packit Service |
c5cf8c |
int count = 0;
|
|
Packit Service |
c5cf8c |
MPI_Datatype datatype = MPI_DATATYPE_NULL;
|
|
Packit Service |
c5cf8c |
MPI_Status* status = NULL;
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
MPI_File_write_at(fh, offset, buf, count, datatype, status);
|
|
Packit Service |
c5cf8c |
}
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
{
|
|
Packit Service |
c5cf8c |
MPI_File fh = MPI_FILE_NULL;
|
|
Packit Service |
c5cf8c |
MPI_Offset offset = 0;
|
|
Packit Service |
c5cf8c |
const void* buf = NULL;
|
|
Packit Service |
c5cf8c |
int count = 0;
|
|
Packit Service |
c5cf8c |
MPI_Datatype datatype = MPI_DATATYPE_NULL;
|
|
Packit Service |
c5cf8c |
MPI_Status* status = NULL;
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
MPI_File_write_at_all(fh, offset, buf, count, datatype, status);
|
|
Packit Service |
c5cf8c |
}
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
{
|
|
Packit Service |
c5cf8c |
MPI_File fh = MPI_FILE_NULL;
|
|
Packit Service |
c5cf8c |
MPI_Offset offset = 0;
|
|
Packit Service |
c5cf8c |
void* buf = NULL;
|
|
Packit Service |
c5cf8c |
int count = 0;
|
|
Packit Service |
c5cf8c |
MPI_Datatype datatype = MPI_DATATYPE_NULL;
|
|
Packit Service |
c5cf8c |
MPIO_Request* request = NULL;
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
MPI_File_iread_at(fh, offset, buf, count, datatype, request);
|
|
Packit Service |
c5cf8c |
}
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
{
|
|
Packit Service |
c5cf8c |
MPI_File fh = MPI_FILE_NULL;
|
|
Packit Service |
c5cf8c |
MPI_Offset offset = 0;
|
|
Packit Service |
c5cf8c |
const void* buf = NULL;
|
|
Packit Service |
c5cf8c |
int count = 0;
|
|
Packit Service |
c5cf8c |
MPI_Datatype datatype = MPI_DATATYPE_NULL;
|
|
Packit Service |
c5cf8c |
MPIO_Request* request = NULL;
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
MPI_File_iwrite_at(fh, offset, buf, count, datatype, request);
|
|
Packit Service |
c5cf8c |
}
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
{
|
|
Packit Service |
c5cf8c |
MPI_File fh = MPI_FILE_NULL;
|
|
Packit Service |
c5cf8c |
void* buf = NULL;
|
|
Packit Service |
c5cf8c |
int count = 0;
|
|
Packit Service |
c5cf8c |
MPI_Datatype datatype = MPI_DATATYPE_NULL;
|
|
Packit Service |
c5cf8c |
MPI_Status* status = NULL;
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
MPI_File_read(fh, buf, count, datatype, status);
|
|
Packit Service |
c5cf8c |
}
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
{
|
|
Packit Service |
c5cf8c |
MPI_File fh = MPI_FILE_NULL;
|
|
Packit Service |
c5cf8c |
void* buf = NULL;
|
|
Packit Service |
c5cf8c |
int count = 0;
|
|
Packit Service |
c5cf8c |
MPI_Datatype datatype = MPI_DATATYPE_NULL;
|
|
Packit Service |
c5cf8c |
MPI_Status* status = NULL;
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
MPI_File_read_all(fh, buf, count, datatype, status);
|
|
Packit Service |
c5cf8c |
}
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
{
|
|
Packit Service |
c5cf8c |
MPI_File fh = MPI_FILE_NULL;
|
|
Packit Service |
c5cf8c |
const void* buf = NULL;
|
|
Packit Service |
c5cf8c |
int count = 0;
|
|
Packit Service |
c5cf8c |
MPI_Datatype datatype = MPI_DATATYPE_NULL;
|
|
Packit Service |
c5cf8c |
MPI_Status* status = NULL;
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
MPI_File_write(fh, buf, count, datatype, status);
|
|
Packit Service |
c5cf8c |
}
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
{
|
|
Packit Service |
c5cf8c |
MPI_File fh = MPI_FILE_NULL;
|
|
Packit Service |
c5cf8c |
const void* buf = NULL;
|
|
Packit Service |
c5cf8c |
int count = 0;
|
|
Packit Service |
c5cf8c |
MPI_Datatype datatype = MPI_DATATYPE_NULL;
|
|
Packit Service |
c5cf8c |
MPI_Status* status = NULL;
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
MPI_File_write_all(fh, buf, count, datatype, status);
|
|
Packit Service |
c5cf8c |
}
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
{
|
|
Packit Service |
c5cf8c |
MPI_File fh = MPI_FILE_NULL;
|
|
Packit Service |
c5cf8c |
void* buf = NULL;
|
|
Packit Service |
c5cf8c |
int count = 0;
|
|
Packit Service |
c5cf8c |
MPI_Datatype datatype = MPI_DATATYPE_NULL;
|
|
Packit Service |
c5cf8c |
MPIO_Request* request = NULL;
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
MPI_File_iread(fh, buf, count, datatype, request);
|
|
Packit Service |
c5cf8c |
}
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
{
|
|
Packit Service |
c5cf8c |
MPI_File fh = MPI_FILE_NULL;
|
|
Packit Service |
c5cf8c |
const void* buf = NULL;
|
|
Packit Service |
c5cf8c |
int count = 0;
|
|
Packit Service |
c5cf8c |
MPI_Datatype datatype = MPI_DATATYPE_NULL;
|
|
Packit Service |
c5cf8c |
MPIO_Request* request = NULL;
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
MPI_File_iwrite(fh, buf, count, datatype, request);
|
|
Packit Service |
c5cf8c |
}
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
{
|
|
Packit Service |
c5cf8c |
MPI_File fh = MPI_FILE_NULL;
|
|
Packit Service |
c5cf8c |
MPI_Offset offset = 0;
|
|
Packit Service |
c5cf8c |
int whence = 0;
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
MPI_File_seek(fh, offset, whence);
|
|
Packit Service |
c5cf8c |
}
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
{
|
|
Packit Service |
c5cf8c |
MPI_File fh = MPI_FILE_NULL;
|
|
Packit Service |
c5cf8c |
MPI_Offset* offset = NULL;
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
MPI_File_get_position(fh, offset);
|
|
Packit Service |
c5cf8c |
}
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
{
|
|
Packit Service |
c5cf8c |
MPI_File fh = MPI_FILE_NULL;
|
|
Packit Service |
c5cf8c |
MPI_Offset offset = 0;
|
|
Packit Service |
c5cf8c |
MPI_Offset* disp = NULL;
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
MPI_File_get_byte_offset(fh, offset, disp);
|
|
Packit Service |
c5cf8c |
}
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
{
|
|
Packit Service |
c5cf8c |
MPI_File fh = MPI_FILE_NULL;
|
|
Packit Service |
c5cf8c |
void* buf = NULL;
|
|
Packit Service |
c5cf8c |
int count = 0;
|
|
Packit Service |
c5cf8c |
MPI_Datatype datatype = MPI_DATATYPE_NULL;
|
|
Packit Service |
c5cf8c |
MPI_Status* status = NULL;
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
MPI_File_read_shared(fh, buf, count, datatype, status);
|
|
Packit Service |
c5cf8c |
}
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
{
|
|
Packit Service |
c5cf8c |
MPI_File fh = MPI_FILE_NULL;
|
|
Packit Service |
c5cf8c |
const void* buf = NULL;
|
|
Packit Service |
c5cf8c |
int count = 0;
|
|
Packit Service |
c5cf8c |
MPI_Datatype datatype = MPI_DATATYPE_NULL;
|
|
Packit Service |
c5cf8c |
MPI_Status* status = NULL;
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
MPI_File_write_shared(fh, buf, count, datatype, status);
|
|
Packit Service |
c5cf8c |
}
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
{
|
|
Packit Service |
c5cf8c |
MPI_File fh = MPI_FILE_NULL;
|
|
Packit Service |
c5cf8c |
void* buf = NULL;
|
|
Packit Service |
c5cf8c |
int count = 0;
|
|
Packit Service |
c5cf8c |
MPI_Datatype datatype = MPI_DATATYPE_NULL;
|
|
Packit Service |
c5cf8c |
MPIO_Request* request = NULL;
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
MPI_File_iread_shared(fh, buf, count, datatype, request);
|
|
Packit Service |
c5cf8c |
}
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
{
|
|
Packit Service |
c5cf8c |
MPI_File fh = MPI_FILE_NULL;
|
|
Packit Service |
c5cf8c |
const void* buf = NULL;
|
|
Packit Service |
c5cf8c |
int count = 0;
|
|
Packit Service |
c5cf8c |
MPI_Datatype datatype = MPI_DATATYPE_NULL;
|
|
Packit Service |
c5cf8c |
MPIO_Request* request = NULL;
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
MPI_File_iwrite_shared(fh, buf, count, datatype, request);
|
|
Packit Service |
c5cf8c |
}
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
{
|
|
Packit Service |
c5cf8c |
MPI_File fh = MPI_FILE_NULL;
|
|
Packit Service |
c5cf8c |
void* buf = NULL;
|
|
Packit Service |
c5cf8c |
int count = 0;
|
|
Packit Service |
c5cf8c |
MPI_Datatype datatype = MPI_DATATYPE_NULL;
|
|
Packit Service |
c5cf8c |
MPI_Status* status = NULL;
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
MPI_File_read_ordered(fh, buf, count, datatype, status);
|
|
Packit Service |
c5cf8c |
}
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
{
|
|
Packit Service |
c5cf8c |
MPI_File fh = MPI_FILE_NULL;
|
|
Packit Service |
c5cf8c |
const void* buf = NULL;
|
|
Packit Service |
c5cf8c |
int count = 0;
|
|
Packit Service |
c5cf8c |
MPI_Datatype datatype = MPI_DATATYPE_NULL;
|
|
Packit Service |
c5cf8c |
MPI_Status* status = NULL;
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
MPI_File_write_ordered(fh, buf, count, datatype, status);
|
|
Packit Service |
c5cf8c |
}
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
{
|
|
Packit Service |
c5cf8c |
MPI_File fh = MPI_FILE_NULL;
|
|
Packit Service |
c5cf8c |
MPI_Offset offset = 0;
|
|
Packit Service |
c5cf8c |
int whence = 0;
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
MPI_File_seek_shared(fh, offset, whence);
|
|
Packit Service |
c5cf8c |
}
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
{
|
|
Packit Service |
c5cf8c |
MPI_File fh = MPI_FILE_NULL;
|
|
Packit Service |
c5cf8c |
MPI_Offset* offset = NULL;
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
MPI_File_get_position_shared(fh, offset);
|
|
Packit Service |
c5cf8c |
}
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
{
|
|
Packit Service |
c5cf8c |
MPI_File fh = MPI_FILE_NULL;
|
|
Packit Service |
c5cf8c |
MPI_Offset offset = 0;
|
|
Packit Service |
c5cf8c |
void* buf = NULL;
|
|
Packit Service |
c5cf8c |
int count = 0;
|
|
Packit Service |
c5cf8c |
MPI_Datatype datatype = MPI_DATATYPE_NULL;
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
MPI_File_read_at_all_begin(fh, offset, buf, count, datatype);
|
|
Packit Service |
c5cf8c |
}
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
{
|
|
Packit Service |
c5cf8c |
MPI_File fh = MPI_FILE_NULL;
|
|
Packit Service |
c5cf8c |
void* buf = NULL;
|
|
Packit Service |
c5cf8c |
MPI_Status* status = NULL;
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
MPI_File_read_at_all_end(fh, buf, status);
|
|
Packit Service |
c5cf8c |
}
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
{
|
|
Packit Service |
c5cf8c |
MPI_File fh = MPI_FILE_NULL;
|
|
Packit Service |
c5cf8c |
MPI_Offset offset = 0;
|
|
Packit Service |
c5cf8c |
const void* buf = NULL;
|
|
Packit Service |
c5cf8c |
int count = 0;
|
|
Packit Service |
c5cf8c |
MPI_Datatype datatype = MPI_DATATYPE_NULL;
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
MPI_File_write_at_all_begin(fh, offset, buf, count, datatype);
|
|
Packit Service |
c5cf8c |
}
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
{
|
|
Packit Service |
c5cf8c |
MPI_File fh = MPI_FILE_NULL;
|
|
Packit Service |
c5cf8c |
const void* buf = NULL;
|
|
Packit Service |
c5cf8c |
MPI_Status* status = NULL;
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
MPI_File_write_at_all_end(fh, buf, status);
|
|
Packit Service |
c5cf8c |
}
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
{
|
|
Packit Service |
c5cf8c |
MPI_File fh = MPI_FILE_NULL;
|
|
Packit Service |
c5cf8c |
void* buf = NULL;
|
|
Packit Service |
c5cf8c |
int count = 0;
|
|
Packit Service |
c5cf8c |
MPI_Datatype datatype = MPI_DATATYPE_NULL;
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
MPI_File_read_all_begin(fh, buf, count, datatype);
|
|
Packit Service |
c5cf8c |
}
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
{
|
|
Packit Service |
c5cf8c |
MPI_File fh = MPI_FILE_NULL;
|
|
Packit Service |
c5cf8c |
void* buf = NULL;
|
|
Packit Service |
c5cf8c |
MPI_Status* status = NULL;
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
MPI_File_read_all_end(fh, buf, status);
|
|
Packit Service |
c5cf8c |
}
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
{
|
|
Packit Service |
c5cf8c |
MPI_File fh = MPI_FILE_NULL;
|
|
Packit Service |
c5cf8c |
const void* buf = NULL;
|
|
Packit Service |
c5cf8c |
int count = 0;
|
|
Packit Service |
c5cf8c |
MPI_Datatype datatype = MPI_DATATYPE_NULL;
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
MPI_File_write_all_begin(fh, buf, count, datatype);
|
|
Packit Service |
c5cf8c |
}
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
{
|
|
Packit Service |
c5cf8c |
MPI_File fh = MPI_FILE_NULL;
|
|
Packit Service |
c5cf8c |
const void* buf = NULL;
|
|
Packit Service |
c5cf8c |
MPI_Status* status = NULL;
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
MPI_File_write_all_end(fh, buf, status);
|
|
Packit Service |
c5cf8c |
}
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
{
|
|
Packit Service |
c5cf8c |
MPI_File fh = MPI_FILE_NULL;
|
|
Packit Service |
c5cf8c |
void* buf = NULL;
|
|
Packit Service |
c5cf8c |
int count = 0;
|
|
Packit Service |
c5cf8c |
MPI_Datatype datatype = MPI_DATATYPE_NULL;
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
MPI_File_read_ordered_begin(fh, buf, count, datatype);
|
|
Packit Service |
c5cf8c |
}
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
{
|
|
Packit Service |
c5cf8c |
MPI_File fh = MPI_FILE_NULL;
|
|
Packit Service |
c5cf8c |
void* buf = NULL;
|
|
Packit Service |
c5cf8c |
MPI_Status* status = NULL;
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
MPI_File_read_ordered_end(fh, buf, status);
|
|
Packit Service |
c5cf8c |
}
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
{
|
|
Packit Service |
c5cf8c |
MPI_File fh = MPI_FILE_NULL;
|
|
Packit Service |
c5cf8c |
const void* buf = NULL;
|
|
Packit Service |
c5cf8c |
int count = 0;
|
|
Packit Service |
c5cf8c |
MPI_Datatype datatype = MPI_DATATYPE_NULL;
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
MPI_File_write_ordered_begin(fh, buf, count, datatype);
|
|
Packit Service |
c5cf8c |
}
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
{
|
|
Packit Service |
c5cf8c |
MPI_File fh = MPI_FILE_NULL;
|
|
Packit Service |
c5cf8c |
const void* buf = NULL;
|
|
Packit Service |
c5cf8c |
MPI_Status* status = NULL;
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
MPI_File_write_ordered_end(fh, buf, status);
|
|
Packit Service |
c5cf8c |
}
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
{
|
|
Packit Service |
c5cf8c |
MPI_File fh = MPI_FILE_NULL;
|
|
Packit Service |
c5cf8c |
MPI_Datatype datatype = MPI_DATATYPE_NULL;
|
|
Packit Service |
c5cf8c |
MPI_Aint* extent = NULL;
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
MPI_File_get_type_extent(fh, datatype, extent);
|
|
Packit Service |
c5cf8c |
}
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
{
|
|
Packit Service |
c5cf8c |
const char* datarep = NULL;
|
|
Packit Service |
c5cf8c |
MPI_Datarep_conversion_function* read_conversion_fn = NULL;
|
|
Packit Service |
c5cf8c |
MPI_Datarep_conversion_function* write_conversion_fn = NULL;
|
|
Packit Service |
c5cf8c |
MPI_Datarep_extent_function* dtype_file_extent_fn = NULL;
|
|
Packit Service |
c5cf8c |
void* extra_state = NULL;
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
MPI_Register_datarep(datarep, read_conversion_fn, write_conversion_fn, dtype_file_extent_fn, extra_state);
|
|
Packit Service |
c5cf8c |
}
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
{
|
|
Packit Service |
c5cf8c |
MPI_File fh = MPI_FILE_NULL;
|
|
Packit Service |
c5cf8c |
int flag = 0;
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
MPI_File_set_atomicity(fh, flag);
|
|
Packit Service |
c5cf8c |
}
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
{
|
|
Packit Service |
c5cf8c |
MPI_File fh = MPI_FILE_NULL;
|
|
Packit Service |
c5cf8c |
int* flag = NULL;
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
MPI_File_get_atomicity(fh, flag);
|
|
Packit Service |
c5cf8c |
}
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
{
|
|
Packit Service |
c5cf8c |
MPI_File fh = MPI_FILE_NULL;
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
MPI_File_sync(fh);
|
|
Packit Service |
c5cf8c |
}
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
{
|
|
Packit Service |
c5cf8c |
MPI_File file = MPI_FILE_NULL;
|
|
Packit Service |
c5cf8c |
MPI_Errhandler errhandler = MPI_ERRHANDLER_NULL;
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
MPI_File_set_errhandler(file, errhandler);
|
|
Packit Service |
c5cf8c |
}
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
{
|
|
Packit Service |
c5cf8c |
MPI_File file = MPI_FILE_NULL;
|
|
Packit Service |
c5cf8c |
MPI_Errhandler* errhandler = NULL;
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
MPI_File_get_errhandler(file, errhandler);
|
|
Packit Service |
c5cf8c |
}
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
{
|
|
Packit Service |
c5cf8c |
MPI_File fh = MPI_FILE_NULL;
|
|
Packit Service |
c5cf8c |
MPI_Offset offset = 0;
|
|
Packit Service |
c5cf8c |
void* buf = NULL;
|
|
Packit Service |
c5cf8c |
int count = 0;
|
|
Packit Service |
c5cf8c |
MPI_Datatype datatype = MPI_DATATYPE_NULL;
|
|
Packit Service |
c5cf8c |
MPI_Request* request = NULL;
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
MPI_File_iread_at_all(fh, offset, buf, count, datatype, request);
|
|
Packit Service |
c5cf8c |
}
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
{
|
|
Packit Service |
c5cf8c |
MPI_File fh = MPI_FILE_NULL;
|
|
Packit Service |
c5cf8c |
MPI_Offset offset = 0;
|
|
Packit Service |
c5cf8c |
const void* buf = NULL;
|
|
Packit Service |
c5cf8c |
int count = 0;
|
|
Packit Service |
c5cf8c |
MPI_Datatype datatype = MPI_DATATYPE_NULL;
|
|
Packit Service |
c5cf8c |
MPI_Request* request = NULL;
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
MPI_File_iwrite_at_all(fh, offset, buf, count, datatype, request);
|
|
Packit Service |
c5cf8c |
}
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
{
|
|
Packit Service |
c5cf8c |
MPI_File fh = MPI_FILE_NULL;
|
|
Packit Service |
c5cf8c |
void* buf = NULL;
|
|
Packit Service |
c5cf8c |
int count = 0;
|
|
Packit Service |
c5cf8c |
MPI_Datatype datatype = MPI_DATATYPE_NULL;
|
|
Packit Service |
c5cf8c |
MPI_Request* request = NULL;
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
MPI_File_iread_all(fh, buf, count, datatype, request);
|
|
Packit Service |
c5cf8c |
}
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
{
|
|
Packit Service |
c5cf8c |
MPI_File fh = MPI_FILE_NULL;
|
|
Packit Service |
c5cf8c |
const void* buf = NULL;
|
|
Packit Service |
c5cf8c |
int count = 0;
|
|
Packit Service |
c5cf8c |
MPI_Datatype datatype = MPI_DATATYPE_NULL;
|
|
Packit Service |
c5cf8c |
MPI_Request* request = NULL;
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
MPI_File_iwrite_all(fh, buf, count, datatype, request);
|
|
Packit Service |
c5cf8c |
}
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
{
|
|
Packit Service |
c5cf8c |
MPI_Fint fh = 0;
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
MPI_File_f2c(fh);
|
|
Packit Service |
c5cf8c |
}
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
{
|
|
Packit Service |
c5cf8c |
MPI_File fh = MPI_FILE_NULL;
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
MPI_File_c2f(fh);
|
|
Packit Service |
c5cf8c |
}
|
|
Packit Service |
c5cf8c |
|
|
Packit Service |
c5cf8c |
MPIR_Comm_split_filesystem(MPI_COMM_NULL, 0, NULL, NULL);
|
|
Packit Service |
c5cf8c |
#endif /* MPI_MODE_RDONLY */
|
|
Packit Service |
c5cf8c |
}
|