SIONlib  1.7.7
Scalable I/O library for parallel access to task-local files
sion_f77_ompi.f
1 ************************************************************************
2 ** SIONLIB http://www.fz-juelich.de/jsc/sionlib **
3 ************************************************************************
4 ** Copyright (c) 2008-2019 **
5 ** Forschungszentrum Juelich, Juelich Supercomputing Centre **
6 ** **
7 ** See the file COPYRIGHT in the package base directory for details **
8 ************************************************************************
9 
10 **************************************************************
11 ** Fortran 77 hybrid MPI/OpenMP interface to SIONlib **
12 **************************************************************
13 *
14 * @file sion_f77.f
15 *
16 * @brief Fortran77 interface
17 *
18 * @author Florian Janetzko
19 * @date 29.05.2013
20 *
21 
22 ***********************************************
23 * Fortran interface subroutines and functions *
24 ***********************************************
25 * Subroutines (without overloading)
26  SUBROUTINE fsion_paropen_ompi(FNAME,FILE_MODE,NFILES,
27  & GCOMM,LCOMM,
28  & CHUNKSIZE,FSBLKSIZE,GLOBALRANK,
29  & NEWFN,SID)
30 
31  IMPLICIT NONE
32 
33  include 'sion_f77.h'
34 
35  CHARACTER(LEN=*) FNAME
36  CHARACTER(LEN=*) FILE_MODE
37  CHARACTER(LEN=*) NEWFN
38  INTEGER GCOMM
39  INTEGER LCOMM
40  INTEGER NFILES
41  INTEGER*8 CHUNKSIZE
42  INTEGER*4 FSBLKSIZE
43  INTEGER GLOBALRANK
44  INTEGER SID
45 
46  CALL fsion_paropen_ompi_c(fname,file_mode,nfiles,gcomm,lcomm,
47  & chunksize,fsblksize,globalrank,
48  & newfn,sid)
49  END
50 
51 
52  SUBROUTINE fsion_parclose_ompi(SID,IERR)
53 
54  IMPLICIT NONE
55 
56  include 'sion_f77.h'
57 
58  INTEGER SID
59  INTEGER IERR
60 
61  CALL fsion_parclose_ompi_c(sid,ierr)
62  END
fsion_paropen_ompi_c
void fsion_paropen_ompi_c(char *fname, char *file_mode, int *numFiles, MPI_Fint *fgComm, MPI_Fint *flComm, sion_int64 *chunksize, sion_int32 *fsblksize, int *globalrank, char *newfname, int *sid, int fname_len, int file_mode_len, int newfname_len)
Fortran wrapper function that calls sion_paropen_mpi for 1 file.
Definition: sion_fortran_ompi.c:55
fsion_parclose_ompi_c
void fsion_parclose_ompi_c(int *sid, int *ierr)
Fortran procedure to close a sion file opened in OpenMP/MPI in parallel.
Definition: sion_fortran_ompi.c:195
Generated by doxygen 1.9.1