sion_f77.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 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_open(FNAME,FILE_MODE,NTASKS,NFILES,CHUNKSIZES,
     &                      FSBLKSIZE,GLOBALRANKS,SID)
      
        IMPLICIT NONE 
 
        include 'sion_f77.h'
      
        CHARACTER(LEN=*) FNAME
        CHARACTER(LEN=*) FILE_MODE
        INTEGER          NTASKS
        INTEGER          NFILES
        INTEGER*8        CHUNKSIZES
        INTEGER*4        FSBLKSIZE
        INTEGER          GLOBALRANKS
        INTEGER          SID
      
        CALL fsion_open_c(fname,file_mode,ntasks,nfiles,chunksizes,
     &                    fsblksize,globalranks,sid)
      END 
      
      SUBROUTINE fsion_open_rank(FNAME,FILE_MODE,CHUNKSIZE,FSBLKSIZE,
     &                           RANK,SID)
      
        IMPLICIT NONE
 
        include 'sion_f77.h'
      
        CHARACTER(LEN=*) FNAME
        CHARACTER(LEN=*) FILE_MODE
        INTEGER*8        CHUNKSIZE
        INTEGER*4        FSBLKSIZE
        INTEGER          RANK
        INTEGER          SID
      
        CALL fsion_open_rank_c(fname,file_mode,chunksize,fsblksize,
     &                         rank,sid)
      END 
      
      SUBROUTINE fsion_close(SID,IERR)
      
        IMPLICIT NONE
 
        include 'sion_f77.h'
      
        INTEGER SID
        INTEGER IERR
      
        CALL fsion_close_c(sid,ierr)
      END 
      
      SUBROUTINE fsion_feof(SID,EOF)
      
        IMPLICIT NONE
 
        include 'sion_f77.h'
      
        INTEGER SID
        INTEGER EOF
      
        CALL fsion_feof_c(sid,eof)
      END 
      
      SUBROUTINE fsion_seek(SID,RANK,CURRENTBLOCKNR,POSINBLK,IERR)
      
        IMPLICIT NONE
 
        include 'sion_f77.h'
      
        INTEGER   SID
        INTEGER   RANK
        INTEGER   CURRENTBLOCKNR
        INTEGER*8 POSINBLK
        INTEGER   IERR
      
        CALL fsion_seek_c(sid,rank,currentblocknr,posinblk,ierr)
      END 
      
      SUBROUTINE fsion_ensure_free_space(SID,BYTES,IERR)
      
        IMPLICIT NONE
 
        include 'sion_f77.h'
      
        INTEGER   SID
        INTEGER*8 BYTES
        INTEGER   IERR
      
        CALL fsion_ensure_free_space_c(sid,bytes,ierr)
      END 
      
      SUBROUTINE fsion_flush(SID,IERR)
      
        IMPLICIT NONE
 
        include 'sion_f77.h'
      
        INTEGER SID
        INTEGER IERR
      
        CALL fsion_flush_c(sid,ierr)
      END 
      
      SUBROUTINE fsion_get_locations(SID,NTASKS,MAXBLOCKS,GLOBALSKIP,
     &                               START_OF_VARHEADER,SION_LOCALSIZES,
     &                               SION_GLOBALRANKS,SION_CHUNKCOUNT,
     &                               SION_CHUNKSIZES,IERR)
      
        IMPLICIT NONE
 
        include 'sion_f77.h'
      
        INTEGER   SID
        INTEGER   NTASKS
        INTEGER   MAXBLOCKS
        INTEGER*8 GLOBALSKIP
        INTEGER*8 START_OF_VARHEADER
        INTEGER*8 SION_LOCALSIZES
        INTEGER*8 SION_GLOBALRANKS
        INTEGER*8 SION_CHUNKCOUNT
        INTEGER*8 SION_CHUNKSIZES
        INTEGER   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_current_locations(SID,NTASKS,
     &                                       SION_CURRENTPOS,  
     &                                       SION_CURRENTBLOCKNR,IERR)
      
        IMPLICIT NONE
 
        include 'sion_f77.h'
      
        integer   SID
        integer   NTASKS
        integer*8 SION_CURRENTPOS
        integer*8 SION_CURRENTBLOCKNR
        integer   IERR
      
        CALL fsion_get_current_locations_c(sid,ntasks,
     &                                     sion_currentpos,
     &                                     sion_currentblocknr,ierr)
      END 
      
      SUBROUTINE fsion_get_chunksizes(SID,CHUNKSIZES,IERR)
      
        IMPLICIT NONE
 
        include 'sion_f77.h'
      
        INTEGER   SID
        INTEGER*8 CHUNKSIZES
        INTEGER   IERR 
      
        CALL fsion_get_chunksizes_c(sid,chunksizes,ierr)
      END 
      
      SUBROUTINE fsion_get_globalranks(SID,GLOBALRANKS,IERR)
      
        IMPLICIT NONE
 
        include 'sion_f77.h'
      
        INTEGER   SID
        INTEGER   GLOBALRANKS
        INTEGER   IERR
      
        CALL fsion_get_globalranks_c(sid,globalranks,ierr)
      END 
      
      SUBROUTINE fsion_get_mapping_spec(SID,MAPPING_SIZE,NUMFILES,IERR)
      
        IMPLICIT NONE
 
        include 'sion_f77.h'
      
        INTEGER SID
        INTEGER MAPPING_SIZE
        INTEGER NUMFILES
        INTEGER IERR
      
        CALL fsion_get_mapping_spec_c(sid,mapping_size,numfiles,ierr)
      END 
      
      SUBROUTINE fsion_get_mapping(SID,MAPPING,IERR)
      
        IMPLICIT NONE
 
        include 'sion_f77.h'
      
        INTEGER   SID
        INTEGER*4 MAPPING
        INTEGER   IERR
      
        CALL fsion_get_mapping_c(sid,mapping,ierr)
      END 
      
      SUBROUTINE fsion_get_fileno(SID,FILENUMBER)
      
        IMPLICIT NONE
 
        include 'sion_f77.h'
      
        INTEGER SID
        INTEGER FILENUMBER    
      
        CALL fsion_get_fileno_c(sid,filenumber)
      END 
      
      SUBROUTINE fsion_get_file_endianess(SID,ENDIANNESS)
      
        IMPLICIT NONE
 
        include 'sion_f77.h'
      
        INTEGER SID
        INTEGER ENDIANNESS
      
        CALL fsion_get_file_endianness_c(sid,endianness)
      END 
      
      SUBROUTINE fsion_get_file_endianness(SID,ENDIANNESS)
      
        IMPLICIT NONE
 
        include 'sion_f77.h'
      
        INTEGER SID
        INTEGER ENDIANNESS
      
        CALL fsion_get_file_endianness_c(sid,endianness)
      END 
      
      SUBROUTINE fsion_get_endianess(ENDIANNESS)
      
        IMPLICIT NONE
 
        include 'sion_f77.h'
      
        INTEGER ENDIANNESS
      
        CALL fsion_get_endianness_c(endianness)
      END 
      
      SUBROUTINE fsion_get_endianness(ENDIANNESS)
      
        IMPLICIT NONE
 
        include 'sion_f77.h'
      
        INTEGER ENDIANNESS
      
        CALL fsion_get_endianness_c(endianness)
      END 
      
      SUBROUTINE fsion_endianness_swap_needed(SID,NEEDED)
      
        IMPLICIT NONE
 
        include 'sion_f77.h'
      
        INTEGER SID
        INTEGER NEEDED
      
        CALL fsion_endianness_swap_needed_c(sid,needed)
      END 
      
* Functions (without overloading)
      FUNCTION fsion_bytes_avail_in_block(SID)
      
        IMPLICIT NONE
 
        include 'sion_f77.h'
      
        INTEGER*8 FSION_BYTES_AVAIL_IN_BLOCK
        INTEGER*8 FSION_BYTES_AVAIL_IN_BLOCK_C
        INTEGER   SID
      
        fsion_bytes_avail_in_block = fsion_bytes_avail_in_block_c(sid)
      END 
      
      FUNCTION fsion_get_position(SID)
      
        IMPLICIT NONE
 
        include 'sion_f77.h'
      
        INTEGER*8 FSION_GET_POSITION
        INTEGER*8 FSION_GET_POSITION_C
        INTEGER   SID
      
        fsion_get_position = fsion_get_position_c(sid)
      END 
      
* Subroutines (with overloading)
      SUBROUTINE fsion_swap(TARGET,SOURCE,SIZE,N,AFLAG,RC)
      
        IMPLICIT NONE
 
        include 'sion_f77.h'
      
        INTEGER TARGET
        INTEGER SOURCE
        INTEGER SIZE
        INTEGER N
        INTEGER AFLAG
        INTEGER RC
      
        CALL fsion_swap_c(TARGET,source,SIZE,n,aflag,rc) 
      END 
 
      
* Datatype INTEGER
      SUBROUTINE fsion_write_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_write(DATA,SIZE,nitems,sid,rc)
      END 
      
      SUBROUTINE fsion_fwrite_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_fwrite(DATA,SIZE,nitems,sid,rc)
      END 
 
      SUBROUTINE fsion_read_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_read(DATA,SIZE,nitems,sid,rc)
      END 
      
      SUBROUTINE fsion_fread_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_fread(DATA,SIZE,nitems,sid,rc)
      END 
 
 
* Datatype CHARACTER
      SUBROUTINE fsion_write_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_write(DATA,SIZE,nitems,sid,rc)
      END 
      
      SUBROUTINE fsion_fwrite_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_fwrite(DATA,SIZE,nitems,sid,rc)
      END 
      
      SUBROUTINE fsion_read_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_read(DATA,SIZE,nitems,sid,rc)
      END 
      
      SUBROUTINE fsion_fread_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_fread(DATA,SIZE,nitems,sid,rc)
      END 
 
 
* Datatype REAL
      SUBROUTINE fsion_write_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_write(DATA,SIZE,nitems,sid,rc)
      END 
      
      SUBROUTINE fsion_fwrite_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_fwrite(DATA,SIZE,nitems,sid,rc)
      END 
      
      SUBROUTINE fsion_read_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_read(DATA,SIZE,nitems,sid,rc)
      END 
      
      SUBROUTINE fsion_fread_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_fread(DATA,SIZE,nitems,sid,rc)
      END 
 
* Datatype DOUBLE PRECISION
      SUBROUTINE fsion_write_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_write(DATA,SIZE,nitems,sid,rc)
      END 
      
      SUBROUTINE fsion_fwrite_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_fwrite(DATA,SIZE,nitems,sid,rc)
      END 
      
      SUBROUTINE fsion_read_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_read(DATA,SIZE,nitems,sid,rc)
      END 
      
      SUBROUTINE fsion_fread_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_fread(DATA,SIZE,nitems,sid,rc)
      END 
 
* Datatype COMPLEX
      SUBROUTINE fsion_write_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_write(DATA,SIZE,nitems,sid,rc)
      END 
      
      SUBROUTINE fsion_fwrite_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_fwrite(DATA,SIZE,nitems,sid,rc)
      END 
      
      SUBROUTINE fsion_read_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_read(DATA,SIZE,nitems,sid,rc)
      END 
      
      SUBROUTINE fsion_fread_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_fread(DATA,SIZE,nitems,sid,rc)
      END 
 
* Datatype LOGICAL
      SUBROUTINE fsion_write_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_write(DATA,SIZE,nitems,sid,rc)
      END 
      
      SUBROUTINE fsion_fwrite_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_fwrite(DATA,SIZE,nitems,sid,rc)
      END 
      
      SUBROUTINE fsion_read_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_read(DATA,SIZE,nitems,sid,rc)
      END 
      
      SUBROUTINE fsion_fread_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_fread(DATA,SIZE,nitems,sid,rc)
      END