sion_f90.F90

#include "sion_const.h"
 
!*****************************************************************************
!**  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       **
!*****************************************************************************
 
!*****************************************************************************
!** Module file of Fortran 90 interface to SIONlib                          **
!*****************************************************************************
!*
!* @file sion_f90.f90
!*
!* @brief Fortran90 interface
!*
!* @author Florian Janetzko
!* @date 03.05.2013
!*
module sion_f90
 
  implicit none
 
!****************************
!* SION version information *
!****************************
  integer, parameter :: sion_main_version       = sion_main_version
  integer, parameter :: sion_sub_version        = sion_sub_version
  integer, parameter :: sion_version_patchlevel = sion_version_patchlevel
  integer, parameter :: sion_fileformat_version = sion_fileformat_version
 
!******************
!* SION constants *
!******************
  integer,   parameter :: sion_current_rank  = sion_current_rank
  integer,   parameter :: sion_current_blk   = sion_current_blk
  integer,   parameter :: sion_current_chunk = sion_current_chunk
  integer*8, parameter :: sion_current_pos   = sion_current_pos
  integer,   parameter :: sion_absolute_pos  = sion_absolute_pos
  integer,   parameter :: sion_success       = sion_success
 
!************************************************************
!* Explicit interfaces to C void functions with overloading *
!************************************************************
  interface fsion_swap
    module procedure fsion_swap_integer
    module procedure fsion_swap_integer8
    module procedure fsion_swap_real
    module procedure fsion_swap_double_precision
    module procedure fsion_swap_complex
    module procedure fsion_swap_logical
    module procedure fsion_swap_character
  end interface fsion_swap
 
  interface fsion_write
    module procedure fsion_write_integer
    module procedure fsion_write_integer8
    module procedure fsion_write_real
    module procedure fsion_write_double_precision
    module procedure fsion_write_complex
    module procedure fsion_write_logical
    module procedure fsion_write_character
  end interface fsion_write
 
  interface fsion_fwrite
    module procedure fsion_fwrite_integer
    module procedure fsion_fwrite_integer8
    module procedure fsion_fwrite_real
    module procedure fsion_fwrite_double_precision
    module procedure fsion_fwrite_complex
    module procedure fsion_fwrite_logical
    module procedure fsion_fwrite_character
  end interface fsion_fwrite
 
  interface fsion_read
    module procedure fsion_read_integer
    module procedure fsion_read_integer8
    module procedure fsion_read_real
    module procedure fsion_read_double_precision
    module procedure fsion_read_complex
    module procedure fsion_read_logical
    module procedure fsion_read_character
  end interface fsion_read
 
  interface fsion_fread
    module procedure fsion_fread_integer
    module procedure fsion_fread_integer8
    module procedure fsion_fread_real
    module procedure fsion_fread_double_precision
    module procedure fsion_fread_complex
    module procedure fsion_fread_logical
    module procedure fsion_fread_character
  end interface fsion_fread
 
!***********************************************
!* Fortran interface subroutines and functions *
!***********************************************
contains
! Subroutines (without overloading)
  subroutine fsion_open(fname,file_mode,ntasks,nfiles,chunksizes,fsblksize,globalranks,sid)
 
    implicit none 
 
    character(len=*), intent(in)    :: fname
    character(len=*), intent(inout) :: file_mode
    integer, intent(in)             :: ntasks
    integer, intent(in)             :: nfiles
    integer*8, intent(inout)        :: chunksizes
    integer*4, intent(inout)        :: fsblksize
    integer, intent(in)             :: globalranks
    integer, intent(out)            :: sid
 
    call fsion_open_c(fname,file_mode,ntasks,nfiles,chunksizes,fsblksize,globalranks,sid)
  end subroutine fsion_open
 
  subroutine fsion_open_rank(fname,file_mode,chunksize,fsblksize,rank,sid)
 
    implicit none
 
    character(len=*), intent(in)    :: fname
    character(len=*), intent(inout) :: file_mode
    integer*8, intent(inout)        :: chunksize
    integer*4, intent(inout)        :: fsblksize
    integer, intent(in)             :: rank
    integer, intent(out)            :: sid
 
    call fsion_open_rank_c(fname,file_mode,chunksize,fsblksize,rank,sid)
  end subroutine fsion_open_rank
 
  subroutine fsion_close(sid,ierr)
 
    implicit none
 
    integer, intent(in)             :: sid
    integer, intent(out)            :: ierr
 
    call fsion_close_c(sid,ierr)
  end subroutine fsion_close
 
  subroutine fsion_feof(sid,eof)
 
    implicit none
 
    integer, intent(in)             :: sid
    integer, intent(out)            :: eof
 
    call fsion_feof_c(sid,eof)
  end subroutine fsion_feof
 
  subroutine fsion_seek(sid,rank,currentblocknr,posinblk,ierr)
 
    implicit none
 
    integer, intent(in)             :: sid
    integer, intent(in)             :: rank
    integer, intent(in)             :: currentblocknr
    integer*8, intent(in)           :: posinblk
    integer, intent(out)            :: ierr
 
    call fsion_seek_c(sid,rank,currentblocknr,posinblk,ierr)
  end subroutine fsion_seek
 
  subroutine fsion_ensure_free_space(sid,bytes,ierr)
 
    implicit none
 
    integer, intent(in)             :: sid
    integer*8, intent(in)           :: bytes
    integer, intent(out)            :: ierr
 
    call fsion_ensure_free_space_c(sid,bytes,ierr)
  end subroutine fsion_ensure_free_space
 
  subroutine fsion_flush(sid,ierr)
 
    implicit none
 
    integer, intent(in)             :: sid
    integer, intent(out)            :: ierr
 
    call fsion_flush_c(sid,ierr)
  end subroutine fsion_flush
 
  subroutine fsion_get_locations(sid,ntasks,maxblocks,globalskip,start_of_varheader,&
&                                sion_localsizes,sion_globalranks,sion_chunkcount,sion_chunksizes,ierr)
 
    implicit none
 
    integer, intent(in)             :: sid
    integer, intent(out)            :: ntasks
    integer, intent(out)            :: maxblocks
    integer*8, intent(out)          :: globalskip
    integer*8, intent(out)          :: start_of_varheader
    integer*8, intent(out)          :: sion_localsizes
    integer*8, intent(out)          :: sion_globalranks
    integer*8, intent(out)          :: sion_chunkcount
    integer*8, intent(out)          :: sion_chunksizes
    integer, intent(out)            :: ierr
 
    call fsion_get_locations_c(sid,ntasks,maxblocks,globalskip,start_of_varheader,&
&                              sion_localsizes,sion_globalranks,sion_chunkcount,sion_chunksizes,ierr)
  end subroutine fsion_get_locations
 
  subroutine fsion_get_current_locations(sid,ntasks,sion_currentpos,sion_currentblocknr,ierr)
 
    implicit none
 
    integer, intent(in)             :: sid
    integer, intent(out)            :: ntasks
    integer*8, intent(out)          :: sion_currentpos
    integer*8, intent(out)          :: sion_currentblocknr
    integer, intent(out)            :: ierr
 
    call fsion_get_current_locations_c(sid,ntasks,sion_currentpos,sion_currentblocknr,ierr)
  end subroutine
 
  subroutine fsion_get_chunksizes(sid,chunksizes,ierr)
 
    implicit none
 
    integer, intent(in)             :: sid
    integer*8, intent(out)          :: chunksizes
    integer, intent(out)            :: ierr 
 
    call fsion_get_chunksizes_c(sid,chunksizes,ierr)
  end subroutine fsion_get_chunksizes
 
  subroutine fsion_get_globalranks(sid,globalranks,ierr)
 
    implicit none
 
    integer, intent(in)             :: sid
    integer, intent(out)            :: globalranks
    integer, intent(out)            :: ierr
 
    call fsion_get_globalranks_c(sid,globalranks,ierr)
  end subroutine fsion_get_globalranks
 
  subroutine fsion_get_mapping_spec(sid,mapping_size,numfiles,ierr)
 
    implicit none
 
    integer, intent(in)             :: sid
    integer, intent(out)            :: mapping_size
    integer, intent(out)            :: numfiles
    integer, intent(out)            :: ierr
 
    call fsion_get_mapping_spec_c(sid,mapping_size,numfiles,ierr)
  end subroutine fsion_get_mapping_spec
 
  subroutine fsion_get_mapping(sid,mapping,ierr)
 
    implicit none
 
    integer, intent(in)             :: sid
    integer*4, intent(out)          :: mapping
    integer, intent(out)            :: ierr
 
    call fsion_get_mapping_c(sid,mapping,ierr)
  end subroutine fsion_get_mapping
 
  subroutine fsion_get_fileno(sid,filenumber)
 
    implicit none
 
    integer, intent(in)             :: sid
    integer, intent(out)            :: filenumber    
 
    call fsion_get_fileno_c(sid,filenumber)
  end subroutine fsion_get_fileno
 
  subroutine fsion_get_file_endianess(sid,endianness)
 
    implicit none
 
    integer, intent(in)             :: sid
    integer, intent(out)            :: endianness
 
    call fsion_get_file_endianness_c(sid,endianness)
  end subroutine fsion_get_file_endianess
 
  subroutine fsion_get_file_endianness(sid,endianness)
 
    implicit none
 
    integer, intent(in)             :: sid
    integer, intent(out)            :: endianness
 
    call fsion_get_file_endianness_c(sid,endianness)
  end subroutine fsion_get_file_endianness
 
  subroutine fsion_get_endianess(endianness)
 
    implicit none
 
    integer, intent(out)            :: endianness
 
    call fsion_get_endianness_c(endianness)
  end subroutine fsion_get_endianess
 
  subroutine fsion_get_endianness(endianness)
 
    implicit none
 
    integer, intent(out)            :: endianness
 
    call fsion_get_endianness_c(endianness)
  end subroutine fsion_get_endianness
 
  subroutine fsion_endianness_swap_needed(sid,needed)
 
    implicit none
 
    integer, intent(in)             :: sid
    integer, intent(out)            :: needed
 
    call fsion_endianness_swap_needed_c(sid,needed)
  end subroutine fsion_endianness_swap_needed
 
! Functions (without overloading)
  function fsion_bytes_avail_in_block(sid)
 
    implicit none
 
    integer*8                       :: fsion_bytes_avail_in_block
    integer*8                       :: fsion_bytes_avail_in_block_c
    integer, intent(in)             :: sid
 
    fsion_bytes_avail_in_block = fsion_bytes_avail_in_block_c(sid)
  end function fsion_bytes_avail_in_block
 
  function fsion_get_position(sid)
 
    implicit none
 
    integer*8                       :: fsion_get_position
    integer*8                       :: fsion_get_position_c
    integer, intent(in)             :: sid
 
    fsion_get_position = fsion_get_position_c(sid)
  end function fsion_get_position
 
! Subroutines (with overloading)
! fsion_swap
  subroutine fsion_swap_integer(target,source,size,n,do_swap,rc)
 
    implicit none
 
    integer, intent (inout)         :: target
    integer, intent (in)            :: source
    integer, intent (in)            :: size
    integer, intent (in)            :: n
    integer, intent (in)            :: do_swap
    integer, intent (in)            :: rc
 
    call fsion_swap_c(target,source,size,n,do_swap,rc) 
  end subroutine fsion_swap_integer
  subroutine fsion_swap_integer8(target,source,size,n,do_swap,rc)
 
    implicit none
 
    integer*8, intent (inout)       :: target
    integer*8, intent (in)          :: source
    integer, intent (in)            :: size
    integer, intent (in)            :: n
    integer, intent (in)            :: do_swap
    integer, intent (in)            :: rc
 
    call fsion_swap_c(target,source,size,n,do_swap,rc) 
  end subroutine fsion_swap_integer8
  subroutine fsion_swap_real(target,source,size,n,do_swap,rc)
 
    implicit none
 
    real, intent (inout)            :: target
    real, intent (in)               :: source
    integer, intent (in)            :: size
    integer, intent (in)            :: n
    integer, intent (in)            :: do_swap
    integer, intent (in)            :: rc
 
    call fsion_swap_c(target,source,size,n,do_swap,rc) 
  end subroutine fsion_swap_real
  subroutine fsion_swap_double_precision(target,source,size,n,do_swap,rc)
 
    implicit none
 
    double precision, intent (inout):: target
    double precision, intent (in)   :: source
    integer, intent (in)            :: size
    integer, intent (in)            :: n
    integer, intent (in)            :: do_swap
    integer, intent (in)            :: rc
 
    call fsion_swap_c(target,source,size,n,do_swap,rc) 
  end subroutine fsion_swap_double_precision
  subroutine fsion_swap_complex(target,source,size,n,do_swap,rc)
 
    implicit none
 
    complex, intent (inout)         :: target
    complex, intent (in)            :: source
    integer, intent (in)            :: size
    integer, intent (in)            :: n
    integer, intent (in)            :: do_swap
    integer, intent (in)            :: rc
 
    call fsion_swap_c(target,source,size,n,do_swap,rc) 
  end subroutine fsion_swap_complex
  subroutine fsion_swap_logical(target,source,size,n,do_swap,rc)
 
    implicit none
 
    logical, intent (inout)         :: target
    logical, intent (in)            :: source
    integer, intent (in)            :: size
    integer, intent (in)            :: n
    integer, intent (in)            :: do_swap
    integer, intent (in)            :: rc
 
    call fsion_swap_c(target,source,size,n,do_swap,rc) 
  end subroutine fsion_swap_logical
  subroutine fsion_swap_character(target,source,size,n,do_swap,rc)
 
    implicit none
 
    character(len=*), intent (inout):: target
    character(len=*), intent (in)   :: source
    integer, intent (in)            :: size
    integer, intent (in)            :: n
    integer, intent (in)            :: do_swap
    integer, intent (in)            :: rc
 
    call fsion_swap_c(target,source,size,n,do_swap,rc) 
  end subroutine fsion_swap_character
 
! fsion_write
  subroutine fsion_write_integer(data,size,nitems,sid,rc)
 
    implicit none
 
    integer, intent (in)            :: data
    integer*8, intent(in)           :: size  
    integer*8, intent(in)           :: nitems  
    integer, intent(in)             :: sid  
    integer*8, intent(out)          :: rc  
 
    call fsion_write_c(data,size,nitems,sid,rc)
  end subroutine fsion_write_integer
  subroutine fsion_write_integer8(data,size,nitems,sid,rc)
 
    implicit none
 
    integer*8, intent(in)           :: data
    integer*8, intent(in)           :: size  
    integer*8, intent(in)           :: nitems  
    integer, intent(in)             :: sid  
    integer*8, intent(out)          :: rc  
 
    call fsion_write_c(data,size,nitems,sid,rc)
  end subroutine fsion_write_integer8
  subroutine fsion_write_real(data,size,nitems,sid,rc)
 
    implicit none
 
    real, intent (in)               :: data
    integer*8, intent(in)           :: size
    integer*8, intent(in)           :: nitems
    integer, intent(in)             :: sid
    integer*8, intent(out)          :: rc
 
    call fsion_write_c(data,size,nitems,sid,rc)
  end subroutine fsion_write_real
  subroutine fsion_write_double_precision(data,size,nitems,sid,rc)
 
    implicit none
 
    double precision, intent (in)   :: data
    integer*8, intent(in)           :: size
    integer*8, intent(in)           :: nitems
    integer, intent(in)             :: sid
    integer*8, intent(out)          :: rc
 
    call fsion_write_c(data,size,nitems,sid,rc)
  end subroutine fsion_write_double_precision
  subroutine fsion_write_complex(data,size,nitems,sid,rc)
 
    implicit none
 
    complex, intent (in)            :: data
    integer*8, intent(in)           :: size
    integer*8, intent(in)           :: nitems
    integer, intent(in)             :: sid
    integer*8, intent(out)          :: rc
 
    call fsion_write_c(data,size,nitems,sid,rc)
  end subroutine fsion_write_complex
  subroutine fsion_write_logical(data,size,nitems,sid,rc)
 
    implicit none
 
    logical, intent (in)            :: data
    integer*8, intent(in)           :: size
    integer*8, intent(in)           :: nitems
    integer, intent(in)             :: sid
    integer*8, intent(out)          :: rc
 
    call fsion_write_c(data,size,nitems,sid,rc)
  end subroutine fsion_write_logical
  subroutine fsion_write_character(data,size,nitems,sid,rc)
 
    implicit none
 
    character(len=*), intent (in)   :: data
    integer*8, intent(in)           :: size
    integer*8, intent(in)           :: nitems
    integer, intent(in)             :: sid
    integer*8, intent(out)          :: rc
 
    call fsion_write_c(data,size,nitems,sid,rc)
  end subroutine fsion_write_character
 
! fsion_fwrite
  subroutine fsion_fwrite_integer(data,size,nitems,sid,rc)
 
    implicit none
 
    integer, intent (in)            :: data
    integer*8, intent(in)           :: size  
    integer*8, intent(in)           :: nitems  
    integer, intent(in)             :: sid  
    integer*8, intent(out)          :: rc  
 
    call fsion_fwrite_c(data,size,nitems,sid,rc)
  end subroutine fsion_fwrite_integer
  subroutine fsion_fwrite_integer8(data,size,nitems,sid,rc)
 
    implicit none
 
    integer*8, intent (in)          :: data
    integer*8, intent(in)           :: size  
    integer*8, intent(in)           :: nitems  
    integer, intent(in)             :: sid  
    integer*8, intent(out)          :: rc  
 
    call fsion_fwrite_c(data,size,nitems,sid,rc)
  end subroutine fsion_fwrite_integer8
  subroutine fsion_fwrite_real(data,size,nitems,sid,rc)
 
    implicit none
 
    real, intent (in)               :: data
    integer*8, intent(in)           :: size
    integer*8, intent(in)           :: nitems
    integer, intent(in)             :: sid
    integer*8, intent(out)          :: rc
 
    call fsion_fwrite_c(data,size,nitems,sid,rc)
  end subroutine fsion_fwrite_real
  subroutine fsion_fwrite_double_precision(data,size,nitems,sid,rc)
 
    implicit none
 
    double precision, intent (in)   :: data
    integer*8, intent(in)           :: size
    integer*8, intent(in)           :: nitems
    integer, intent(in)             :: sid
    integer*8, intent(out)          :: rc
 
    call fsion_fwrite_c(data,size,nitems,sid,rc)
  end subroutine fsion_fwrite_double_precision
  subroutine fsion_fwrite_complex(data,size,nitems,sid,rc)
 
    implicit none
 
    complex, intent (in)            :: data
    integer*8, intent(in)           :: size
    integer*8, intent(in)           :: nitems
    integer, intent(in)             :: sid
    integer*8, intent(out)          :: rc
 
    call fsion_fwrite_c(data,size,nitems,sid,rc)
  end subroutine fsion_fwrite_complex
  subroutine fsion_fwrite_logical(data,size,nitems,sid,rc)
 
    implicit none
 
    logical, intent (in)            :: data
    integer*8, intent(in)           :: size
    integer*8, intent(in)           :: nitems
    integer, intent(in)             :: sid
    integer*8, intent(out)          :: rc
 
    call fsion_fwrite_c(data,size,nitems,sid,rc)
  end subroutine fsion_fwrite_logical
  subroutine fsion_fwrite_character(data,size,nitems,sid,rc)
 
    implicit none
 
    character(len=*), intent (in)   :: data
    integer*8, intent(in)           :: size
    integer*8, intent(in)           :: nitems
    integer, intent(in)             :: sid
    integer*8, intent(out)          :: rc
 
    call fsion_fwrite_c(data,size,nitems,sid,rc)
  end subroutine fsion_fwrite_character
 
! fsion_read
  subroutine fsion_read_integer(data,size,nitems,sid,rc)
 
    implicit none
 
    integer, intent (out)           :: data
    integer*8, intent(in)           :: size  
    integer*8, intent(in)           :: nitems  
    integer, intent(in)             :: sid  
    integer*8, intent(out)          :: rc  
 
    call fsion_read_c(data,size,nitems,sid,rc)
  end subroutine fsion_read_integer
  subroutine fsion_read_integer8(data,size,nitems,sid,rc)
 
    implicit none
 
    integer*8, intent(out)           :: data
    integer*8, intent(in)           :: size  
    integer*8, intent(in)           :: nitems  
    integer, intent(in)             :: sid  
    integer*8, intent(out)          :: rc  
 
    call fsion_read_c(data,size,nitems,sid,rc)
  end subroutine fsion_read_integer8
  subroutine fsion_read_real(data,size,nitems,sid,rc)
 
    implicit none
 
    real, intent (out)              :: data
    integer*8, intent(in)           :: size
    integer*8, intent(in)           :: nitems
    integer, intent(in)             :: sid
    integer*8, intent(out)          :: rc
 
    call fsion_read_c(data,size,nitems,sid,rc)
  end subroutine fsion_read_real
  subroutine fsion_read_double_precision(data,size,nitems,sid,rc)
 
    implicit none
 
    double precision, intent (out)  :: data
    integer*8, intent(in)           :: size
    integer*8, intent(in)           :: nitems
    integer, intent(in)             :: sid
    integer*8, intent(out)          :: rc
 
    call fsion_read_c(data,size,nitems,sid,rc)
  end subroutine fsion_read_double_precision
  subroutine fsion_read_complex(data,size,nitems,sid,rc)
 
    implicit none
 
    complex, intent (out)           :: data
    integer*8, intent(in)           :: size
    integer*8, intent(in)           :: nitems
    integer, intent(in)             :: sid
    integer*8, intent(out)          :: rc
 
    call fsion_read_c(data,size,nitems,sid,rc)
  end subroutine fsion_read_complex
  subroutine fsion_read_logical(data,size,nitems,sid,rc)
 
    implicit none
 
    logical, intent (out)           :: data
    integer*8, intent(in)           :: size
    integer*8, intent(in)           :: nitems
    integer, intent(in)             :: sid
    integer*8, intent(out)          :: rc
 
    call fsion_read_c(data,size,nitems,sid,rc)
  end subroutine fsion_read_logical
  subroutine fsion_read_character(data,size,nitems,sid,rc)
 
    implicit none
 
    character(len=*), intent (out)  :: data
    integer*8, intent(in)           :: size
    integer*8, intent(in)           :: nitems
    integer, intent(in)             :: sid
    integer*8, intent(out)          :: rc
 
    call fsion_read_c(data,size,nitems,sid,rc)
  end subroutine fsion_read_character
 
! fsion_fread
  subroutine fsion_fread_integer(data,size,nitems,sid,rc)
 
    implicit none
 
    integer, intent (out)           :: data
    integer*8, intent(in)           :: size  
    integer*8, intent(in)           :: nitems  
    integer, intent(in)             :: sid  
    integer*8, intent(out)          :: rc  
 
    call fsion_fread_c(data,size,nitems,sid,rc)
  end subroutine fsion_fread_integer
  subroutine fsion_fread_integer8(data,size,nitems,sid,rc)
 
    implicit none
 
    integer*8, intent (out)         :: data
    integer*8, intent(in)           :: size  
    integer*8, intent(in)           :: nitems  
    integer, intent(in)             :: sid  
    integer*8, intent(out)          :: rc  
 
    call fsion_fread_c(data,size,nitems,sid,rc)
  end subroutine fsion_fread_integer8
  subroutine fsion_fread_real(data,size,nitems,sid,rc)
 
    implicit none
 
    real, intent (out)              :: data
    integer*8, intent(in)           :: size
    integer*8, intent(in)           :: nitems
    integer, intent(in)             :: sid
    integer*8, intent(out)          :: rc
 
    call fsion_fread_c(data,size,nitems,sid,rc)
  end subroutine fsion_fread_real
  subroutine fsion_fread_double_precision(data,size,nitems,sid,rc)
 
    implicit none
 
    double precision, intent (out)  :: data
    integer*8, intent(in)           :: size
    integer*8, intent(in)           :: nitems
    integer, intent(in)             :: sid
    integer*8, intent(out)          :: rc
 
    call fsion_fread_c(data,size,nitems,sid,rc)
  end subroutine fsion_fread_double_precision
  subroutine fsion_fread_complex(data,size,nitems,sid,rc)
 
    implicit none
 
    complex, intent (out)           :: data
    integer*8, intent(in)           :: size
    integer*8, intent(in)           :: nitems
    integer, intent(in)             :: sid
    integer*8, intent(out)          :: rc
 
    call fsion_fread_c(data,size,nitems,sid,rc)
  end subroutine fsion_fread_complex
  subroutine fsion_fread_logical(data,size,nitems,sid,rc)
 
    implicit none
 
    logical, intent (out)           :: data
    integer*8, intent(in)           :: size
    integer*8, intent(in)           :: nitems
    integer, intent(in)             :: sid
    integer*8, intent(out)          :: rc
 
    call fsion_fread_c(data,size,nitems,sid,rc)
  end subroutine fsion_fread_logical
  subroutine fsion_fread_character(data,size,nitems,sid,rc)
 
    implicit none
 
    character(len=*), intent (out)   :: data
    integer*8, intent(in)           :: size
    integer*8, intent(in)           :: nitems
    integer, intent(in)             :: sid
    integer*8, intent(out)          :: rc
 
    call fsion_fread_c(data,size,nitems,sid,rc)
  end subroutine fsion_fread_character
 
end module sion_f90