sion_f77_omp.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 OpenMP interface to SIONlib                   **
**************************************************************
*
* @file sion_f77.f
*
* @brief Fortran77 interface
*
* @author Florian Janetzko
* @date 29.05.2013
*
 
***********************************************
* Fortran interface subroutines and functions *
***********************************************
* Subroutines (without overloading)
      SUBROUTINE fsion_paropen_omp(FNAME,FILE_MODE,
     &                             CHUNKSIZE,FSBLKSIZE,GLOBALRANK,
     &                             NEWFN,SID)
      
        IMPLICIT NONE 
 
        include 'sion_f77.h'
      
        CHARACTER(LEN=*) FNAME
        CHARACTER(LEN=*) FILE_MODE
        CHARACTER(LEN=*) NEWFN
        INTEGER*8        CHUNKSIZE
        INTEGER*4        FSBLKSIZE
        INTEGER          GLOBALRANK
        INTEGER          SID
      
        CALL fsion_paropen_omp_c(fname,file_mode,
     &                           chunksize,fsblksize,globalrank,
     &                           newfn,sid)
      END 
 
 
      SUBROUTINE fsion_parclose_omp(SID,IERR)
      
        IMPLICIT NONE 
 
        include 'sion_f77.h'
      
        INTEGER          SID
        INTEGER          IERR
      
        CALL fsion_parclose_omp_c(sid,ierr)
      END