Ignore:
Timestamp:
03/19/24 14:23:16 (4 months ago)
Author:
jderouillat
Message:

Add XIOS3 fortran interfaces (resources management, chunking, compression)

File:
1 edited

Legend:

Unmodified
Added
Removed

  • XIOS3/trunk/src/interface/fortran_attr/filegroup_interface_attr.F90

    r1492 r2616  
    191191 
    192192 
     193    SUBROUTINE cxios_set_filegroup_gatherer(filegroup_hdl, gatherer, gatherer_size) BIND(C) 
     194      USE ISO_C_BINDING 
     195      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
     196      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: gatherer 
     197      INTEGER  (kind = C_INT)     , VALUE        :: gatherer_size 
     198    END SUBROUTINE cxios_set_filegroup_gatherer 
     199 
     200    SUBROUTINE cxios_get_filegroup_gatherer(filegroup_hdl, gatherer, gatherer_size) BIND(C) 
     201      USE ISO_C_BINDING 
     202      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
     203      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: gatherer 
     204      INTEGER  (kind = C_INT)     , VALUE        :: gatherer_size 
     205    END SUBROUTINE cxios_get_filegroup_gatherer 
     206 
     207    FUNCTION cxios_is_defined_filegroup_gatherer(filegroup_hdl) BIND(C) 
     208      USE ISO_C_BINDING 
     209      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_gatherer 
     210      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
     211    END FUNCTION cxios_is_defined_filegroup_gatherer 
     212 
     213 
    193214    SUBROUTINE cxios_set_filegroup_group_ref(filegroup_hdl, group_ref, group_ref_size) BIND(C) 
    194215      USE ISO_C_BINDING 
    … …  
    355376 
    356377 
     378    SUBROUTINE cxios_set_filegroup_pool_gatherer(filegroup_hdl, pool_gatherer, pool_gatherer_size) BIND(C) 
     379      USE ISO_C_BINDING 
     380      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
     381      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: pool_gatherer 
     382      INTEGER  (kind = C_INT)     , VALUE        :: pool_gatherer_size 
     383    END SUBROUTINE cxios_set_filegroup_pool_gatherer 
     384 
     385    SUBROUTINE cxios_get_filegroup_pool_gatherer(filegroup_hdl, pool_gatherer, pool_gatherer_size) BIND(C) 
     386      USE ISO_C_BINDING 
     387      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
     388      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: pool_gatherer 
     389      INTEGER  (kind = C_INT)     , VALUE        :: pool_gatherer_size 
     390    END SUBROUTINE cxios_get_filegroup_pool_gatherer 
     391 
     392    FUNCTION cxios_is_defined_filegroup_pool_gatherer(filegroup_hdl) BIND(C) 
     393      USE ISO_C_BINDING 
     394      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_pool_gatherer 
     395      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
     396    END FUNCTION cxios_is_defined_filegroup_pool_gatherer 
     397 
     398 
     399    SUBROUTINE cxios_set_filegroup_pool_reader(filegroup_hdl, pool_reader, pool_reader_size) BIND(C) 
     400      USE ISO_C_BINDING 
     401      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
     402      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: pool_reader 
     403      INTEGER  (kind = C_INT)     , VALUE        :: pool_reader_size 
     404    END SUBROUTINE cxios_set_filegroup_pool_reader 
     405 
     406    SUBROUTINE cxios_get_filegroup_pool_reader(filegroup_hdl, pool_reader, pool_reader_size) BIND(C) 
     407      USE ISO_C_BINDING 
     408      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
     409      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: pool_reader 
     410      INTEGER  (kind = C_INT)     , VALUE        :: pool_reader_size 
     411    END SUBROUTINE cxios_get_filegroup_pool_reader 
     412 
     413    FUNCTION cxios_is_defined_filegroup_pool_reader(filegroup_hdl) BIND(C) 
     414      USE ISO_C_BINDING 
     415      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_pool_reader 
     416      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
     417    END FUNCTION cxios_is_defined_filegroup_pool_reader 
     418 
     419 
     420    SUBROUTINE cxios_set_filegroup_pool_writer(filegroup_hdl, pool_writer, pool_writer_size) BIND(C) 
     421      USE ISO_C_BINDING 
     422      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
     423      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: pool_writer 
     424      INTEGER  (kind = C_INT)     , VALUE        :: pool_writer_size 
     425    END SUBROUTINE cxios_set_filegroup_pool_writer 
     426 
     427    SUBROUTINE cxios_get_filegroup_pool_writer(filegroup_hdl, pool_writer, pool_writer_size) BIND(C) 
     428      USE ISO_C_BINDING 
     429      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
     430      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: pool_writer 
     431      INTEGER  (kind = C_INT)     , VALUE        :: pool_writer_size 
     432    END SUBROUTINE cxios_get_filegroup_pool_writer 
     433 
     434    FUNCTION cxios_is_defined_filegroup_pool_writer(filegroup_hdl) BIND(C) 
     435      USE ISO_C_BINDING 
     436      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_pool_writer 
     437      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
     438    END FUNCTION cxios_is_defined_filegroup_pool_writer 
     439 
     440 
    357441    SUBROUTINE cxios_set_filegroup_read_metadata_par(filegroup_hdl, read_metadata_par) BIND(C) 
    358442      USE ISO_C_BINDING 
    … …  
    372456      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
    373457    END FUNCTION cxios_is_defined_filegroup_read_metadata_par 
     458 
     459 
     460    SUBROUTINE cxios_set_filegroup_reader(filegroup_hdl, reader, reader_size) BIND(C) 
     461      USE ISO_C_BINDING 
     462      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
     463      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: reader 
     464      INTEGER  (kind = C_INT)     , VALUE        :: reader_size 
     465    END SUBROUTINE cxios_set_filegroup_reader 
     466 
     467    SUBROUTINE cxios_get_filegroup_reader(filegroup_hdl, reader, reader_size) BIND(C) 
     468      USE ISO_C_BINDING 
     469      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
     470      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: reader 
     471      INTEGER  (kind = C_INT)     , VALUE        :: reader_size 
     472    END SUBROUTINE cxios_get_filegroup_reader 
     473 
     474    FUNCTION cxios_is_defined_filegroup_reader(filegroup_hdl) BIND(C) 
     475      USE ISO_C_BINDING 
     476      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_reader 
     477      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
     478    END FUNCTION cxios_is_defined_filegroup_reader 
    374479 
    375480 
    … …  
    687792 
    688793 
     794    SUBROUTINE cxios_set_filegroup_using_server2(filegroup_hdl, using_server2) BIND(C) 
     795      USE ISO_C_BINDING 
     796      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
     797      LOGICAL (KIND=C_BOOL)      , VALUE :: using_server2 
     798    END SUBROUTINE cxios_set_filegroup_using_server2 
     799 
     800    SUBROUTINE cxios_get_filegroup_using_server2(filegroup_hdl, using_server2) BIND(C) 
     801      USE ISO_C_BINDING 
     802      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
     803      LOGICAL (KIND=C_BOOL)             :: using_server2 
     804    END SUBROUTINE cxios_get_filegroup_using_server2 
     805 
     806    FUNCTION cxios_is_defined_filegroup_using_server2(filegroup_hdl) BIND(C) 
     807      USE ISO_C_BINDING 
     808      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_using_server2 
     809      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
     810    END FUNCTION cxios_is_defined_filegroup_using_server2 
     811 
     812 
    689813    SUBROUTINE cxios_set_filegroup_uuid_format(filegroup_hdl, uuid_format, uuid_format_size) BIND(C) 
    690814      USE ISO_C_BINDING 
    … …  
    728852    END FUNCTION cxios_is_defined_filegroup_uuid_name 
    729853 
     854 
     855    SUBROUTINE cxios_set_filegroup_writer(filegroup_hdl, writer, writer_size) BIND(C) 
     856      USE ISO_C_BINDING 
     857      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
     858      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: writer 
     859      INTEGER  (kind = C_INT)     , VALUE        :: writer_size 
     860    END SUBROUTINE cxios_set_filegroup_writer 
     861 
     862    SUBROUTINE cxios_get_filegroup_writer(filegroup_hdl, writer, writer_size) BIND(C) 
     863      USE ISO_C_BINDING 
     864      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
     865      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: writer 
     866      INTEGER  (kind = C_INT)     , VALUE        :: writer_size 
     867    END SUBROUTINE cxios_get_filegroup_writer 
     868 
     869    FUNCTION cxios_is_defined_filegroup_writer(filegroup_hdl) BIND(C) 
     870      USE ISO_C_BINDING 
     871      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_writer 
     872      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
     873    END FUNCTION cxios_is_defined_filegroup_writer 
     874 
    730875  END INTERFACE 
    731876 
Note: See TracChangeset for help on using the changeset viewer.