-/* Copyright (c) 2010-2021. The SimGrid Team. All rights reserved. */
+/* Copyright (c) 2010-2023. The SimGrid Team. All rights reserved. */
/* 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. */
MPI_File tmp;
*ierr= MPI_File_open(simgrid::smpi::Comm::f2c(*comm), filename, *amode, simgrid::smpi::Info::f2c(*info), &tmp);
if (*ierr == MPI_SUCCESS) {
- *fh = tmp->add_f();
+ *fh = tmp->c2f();
}
}
void mpi_file_get_position_(int* fh, MPI_Offset* offset, int* ierr){
*ierr= MPI_File_get_position(simgrid::smpi::File::f2c(*fh), offset);
}
+
void mpi_file_get_position_shared_(int* fh, MPI_Offset* offset, int* ierr){
*ierr= MPI_File_get_position_shared(simgrid::smpi::File::f2c(*fh), offset);
}
+void mpi_file_get_size_(int* fh, MPI_Offset* size, int* ierr){
+ *ierr= MPI_File_get_size(simgrid::smpi::File::f2c(*fh), size);
+}
+
+void mpi_file_set_size_(int* fh, MPI_Offset* size, int* ierr){
+ *ierr= MPI_File_set_size(simgrid::smpi::File::f2c(*fh), *size);
+}
+
void mpi_file_read_ ( int* fh, void* buf, int* count, int* datatype, MPI_Status* status, int* ierr){
*ierr= MPI_File_read(simgrid::smpi::File::f2c(*fh), buf, *count, simgrid::smpi::Datatype::f2c(*datatype), status);
}
}
-}
\ No newline at end of file
+}