1 /*
2 * Copyright (c) 2004-2005 The Trustees of Indiana University and Indiana
3 * University Research and Technology
4 * Corporation. All rights reserved.
5 * Copyright (c) 2004-2005 The University of Tennessee and The University
6 * of Tennessee Research Foundation. All rights
7 * reserved.
8 * Copyright (c) 2004-2005 High Performance Computing Center Stuttgart,
9 * University of Stuttgart. All rights reserved.
10 * Copyright (c) 2004-2005 The Regents of the University of California.
11 * All rights reserved.
12 * Copyright (c) 2013 University of Houston. All rights reserved.
13 * Copyright (c) 2018 Research Organization for Information Science
14 * and Technology (RIST). All rights reserved.
15 * $COPYRIGHT$
16 *
17 * Additional copyrights may follow
18 *
19 * $HEADER$
20 */
21
22
23 #include "ompi_config.h"
24 #include "sharedfp_individual.h"
25
26 #include "mpi.h"
27 #include "ompi/constants.h"
28 #include "ompi/mca/sharedfp/sharedfp.h"
29
30 int mca_sharedfp_individual_usage_counter=0;
31
32 int mca_sharedfp_individual_seek (ompio_file_t *fh,
33 OMPI_MPI_OFFSET_TYPE offset, int whence)
34 {
35 if ( 0 == mca_sharedfp_individual_usage_counter ) {
36 /* As long as nobody using this module 'inapproprialy', its is ok.
37 ** to call this function, since it might come out of File_set_view.
38 ** however, we have to return an error as soon as people are calling
39 ** this function on this component and expect it to work.
40 */
41
42 return OMPI_SUCCESS;
43 }
44
45 opal_output(0,"mca_sharedfp_individual_seek: NOT IMPLEMENTED\n");
46 return OMPI_ERROR;
47 }