sion_f77_mpi.f

************************************************************************
**  SIONLIB     http://www.fz-juelich.de/jsc/sionlib                  **
************************************************************************
**  Copyright (c) 2008-2019                                           **
**  Forschungszentrum Juelich, Juelich Supercomputing Centre          **
**                                                                    **
**  See the file COPYRIGHT in the package base directory for details  **
************************************************************************
 
**************************************************************
** Fortran 77 MPI interface to SIONlib                      **
**************************************************************
*
* @file sion_f77.f
*
* @brief Fortran77 interface
*
* @author Florian Janetzko
* @date 29.05.2013
* @date 05.06.2014 wrapper for collectives added
*
 
***********************************************
* Fortran interface subroutines and functions *
***********************************************
* Subroutines (without overloading)
      SUBROUTINE fsion_paropen_mpi(FNAME,FILE_MODE,NFILES,
     &                             GCOMM,LCOMM,
     &                             CHUNKSIZE,FSBLKSIZE,GLOBALRANK,
     &                             NEWFN,SID)
      
        IMPLICIT NONE 
 
        include 'sion_f77.h'
      
        CHARACTER(LEN=*) FNAME
        CHARACTER(LEN=*) FILE_MODE
        CHARACTER(LEN=*) NEWFN
        INTEGER          GCOMM
        INTEGER          LCOMM
        INTEGER          NFILES
        INTEGER*8        CHUNKSIZE
        INTEGER*4        FSBLKSIZE
        INTEGER          GLOBALRANK
        INTEGER          SID
      
        CALL fsion_paropen_mpi_c(fname,file_mode,nfiles,gcomm,lcomm,
     &                           chunksize,fsblksize,globalrank,
     &                           newfn,sid)
      END 
 
 
      SUBROUTINE fsion_parclose_mpi(SID,IERR)
      
        IMPLICIT NONE 
 
        include 'sion_f77.h'
      
        INTEGER          SID
        INTEGER          IERR
      
        CALL fsion_parclose_mpi_c(sid,ierr)
      END 
 
* Subroutines (with overloading)
* Datatype INTEGER
      SUBROUTINE fsion_coll_fwrite_mpi_integer(DATA,SIZE,NITEMS,SID,RC)
 
        IMPLICIT NONE
 
        include 'sion_f77.h'
 
        INTEGER   DATA
        INTEGER*8 SIZE
        INTEGER*8 NITEMS
        INTEGER   SID
        INTEGER*8 RC
 
        CALL fsion_coll_fwrite_mpi(DATA,SIZE,nitems,sid,rc)
      END
 
      SUBROUTINE fsion_coll_fread_mpi_integer(DATA,SIZE,NITEMS,SID,RC)
 
        IMPLICIT NONE
 
        include 'sion_f77.h'
 
        INTEGER   DATA
        INTEGER*8 SIZE
        INTEGER*8 NITEMS
        INTEGER   SID
        INTEGER*8 RC
 
        CALL fsion_coll_fread_mpi(DATA,SIZE,nitems,sid,rc)
      END
 
* Datatype CHARACTER
      SUBROUTINE fsion_coll_fwrite_mpi_character(DATA,SIZE,NITEMS,SID,
     &                                           RC)
 
        IMPLICIT NONE
 
        include 'sion_f77.h'
 
        CHARACTER DATA
        INTEGER*8 SIZE
        INTEGER*8 NITEMS
        INTEGER   SID
        INTEGER*8 RC
 
        CALL fsion_coll_fwrite_mpi(DATA,SIZE,nitems,sid,rc)
      END
 
      SUBROUTINE fsion_coll_fread_mpi_character(DATA,SIZE,NITEMS,
     &                                          SID,RC)
 
        IMPLICIT NONE
 
        include 'sion_f77.h'
 
        CHARACTER DATA
        INTEGER*8 SIZE
        INTEGER*8 NITEMS
        INTEGER   SID
        INTEGER*8 RC
 
        CALL fsion_coll_fread_mpi(DATA,SIZE,nitems,sid,rc)
      END
 
* Datatype REAL
      SUBROUTINE fsion_coll_fwrite_mpi_real(DATA,SIZE,NITEMS,SID,RC)
 
        IMPLICIT NONE
 
        include 'sion_f77.h'
 
        REAL      DATA
        INTEGER*8 SIZE
        INTEGER*8 NITEMS
        INTEGER   SID
        INTEGER*8 RC
 
        CALL fsion_coll_fwrite_mpi(DATA,SIZE,nitems,sid,rc)
      END
 
      SUBROUTINE fsion_coll_fread_mpi_real(DATA,SIZE,NITEMS,SID,RC)
 
        IMPLICIT NONE
 
        include 'sion_f77.h'
 
        REAL      DATA
        INTEGER*8 SIZE
        INTEGER*8 NITEMS
        INTEGER   SID
        INTEGER*8 RC
 
        CALL fsion_coll_fread_mpi(DATA,SIZE,nitems,sid,rc)
      END
 
* Datatype DOUBLE PRECISION
      SUBROUTINE fsion_coll_fwrite_mpi_double(DATA,SIZE,NITEMS,SID,RC)
 
        IMPLICIT NONE
 
        include 'sion_f77.h'
 
        DOUBLE PRECISION DATA
        INTEGER*8 SIZE
        INTEGER*8 NITEMS
        INTEGER   SID
        INTEGER*8 RC
 
        CALL fsion_coll_fwrite_mpi(DATA,SIZE,nitems,sid,rc)
      END
 
      SUBROUTINE fsion_coll_fread_mpi_double(DATA,SIZE,NITEMS,SID,RC)
 
        IMPLICIT NONE
 
        include 'sion_f77.h'
 
        DOUBLE PRECISION DATA
        INTEGER*8 SIZE
        INTEGER*8 NITEMS
        INTEGER   SID
        INTEGER*8 RC
 
        CALL fsion_coll_fread_mpi(DATA,SIZE,nitems,sid,rc)
      END
 
* Datatype COMPLEX
      SUBROUTINE fsion_coll_fwrite_mpi_complex(DATA,SIZE,NITEMS,SID,RC)
 
        IMPLICIT NONE
 
        include 'sion_f77.h'
 
        COMPLEX   DATA
        INTEGER*8 SIZE
        INTEGER*8 NITEMS
        INTEGER   SID
        INTEGER*8 RC
 
        CALL fsion_coll_fwrite_mpi(DATA,SIZE,nitems,sid,rc)
      END
 
      SUBROUTINE fsion_coll_fread_mpi_complex(DATA,SIZE,NITEMS,SID,RC)
 
        IMPLICIT NONE
 
        include 'sion_f77.h'
 
        COMPLEX   DATA
        INTEGER*8 SIZE
        INTEGER*8 NITEMS
        INTEGER   SID
        INTEGER*8 RC
 
        CALL fsion_coll_fread_mpi(DATA,SIZE,nitems,sid,rc)
      END
 
* Datatype LOGICAL
      SUBROUTINE fsion_coll_fwrite_mpi_logical(DATA,SIZE,NITEMS,SID,RC)
 
        IMPLICIT NONE
 
        include 'sion_f77.h'
 
        LOGICAL   DATA
        INTEGER*8 SIZE
        INTEGER*8 NITEMS
        INTEGER   SID
        INTEGER*8 RC
 
        CALL fsion_coll_fwrite_mpi(DATA,SIZE,nitems,sid,rc)
      END
 
      SUBROUTINE fsion_coll_fread_mpi_logical(DATA,SIZE,NITEMS,SID,RC)
 
        IMPLICIT NONE
 
        include 'sion_f77.h'
 
        LOGICAL   DATA
        INTEGER*8 SIZE
        INTEGER*8 NITEMS
        INTEGER   SID
        INTEGER*8 RC
 
        CALL fsion_coll_fread_mpi(DATA,SIZE,nitems,sid,rc)
      END