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/context_interface_attr.F90

    r1941 r2616  
    2929 
    3030 
     31    SUBROUTINE cxios_set_context_default_gatherer(context_hdl, default_gatherer, default_gatherer_size) BIND(C) 
     32      USE ISO_C_BINDING 
     33      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 
     34      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: default_gatherer 
     35      INTEGER  (kind = C_INT)     , VALUE        :: default_gatherer_size 
     36    END SUBROUTINE cxios_set_context_default_gatherer 
     37 
     38    SUBROUTINE cxios_get_context_default_gatherer(context_hdl, default_gatherer, default_gatherer_size) BIND(C) 
     39      USE ISO_C_BINDING 
     40      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 
     41      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: default_gatherer 
     42      INTEGER  (kind = C_INT)     , VALUE        :: default_gatherer_size 
     43    END SUBROUTINE cxios_get_context_default_gatherer 
     44 
     45    FUNCTION cxios_is_defined_context_default_gatherer(context_hdl) BIND(C) 
     46      USE ISO_C_BINDING 
     47      LOGICAL(kind=C_BOOL) :: cxios_is_defined_context_default_gatherer 
     48      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 
     49    END FUNCTION cxios_is_defined_context_default_gatherer 
     50 
     51 
     52    SUBROUTINE cxios_set_context_default_pool(context_hdl, default_pool, default_pool_size) BIND(C) 
     53      USE ISO_C_BINDING 
     54      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 
     55      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: default_pool 
     56      INTEGER  (kind = C_INT)     , VALUE        :: default_pool_size 
     57    END SUBROUTINE cxios_set_context_default_pool 
     58 
     59    SUBROUTINE cxios_get_context_default_pool(context_hdl, default_pool, default_pool_size) BIND(C) 
     60      USE ISO_C_BINDING 
     61      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 
     62      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: default_pool 
     63      INTEGER  (kind = C_INT)     , VALUE        :: default_pool_size 
     64    END SUBROUTINE cxios_get_context_default_pool 
     65 
     66    FUNCTION cxios_is_defined_context_default_pool(context_hdl) BIND(C) 
     67      USE ISO_C_BINDING 
     68      LOGICAL(kind=C_BOOL) :: cxios_is_defined_context_default_pool 
     69      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 
     70    END FUNCTION cxios_is_defined_context_default_pool 
     71 
     72 
     73    SUBROUTINE cxios_set_context_default_pool_gatherer(context_hdl, default_pool_gatherer, default_pool_gatherer_size) BIND(C) 
     74      USE ISO_C_BINDING 
     75      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 
     76      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: default_pool_gatherer 
     77      INTEGER  (kind = C_INT)     , VALUE        :: default_pool_gatherer_size 
     78    END SUBROUTINE cxios_set_context_default_pool_gatherer 
     79 
     80    SUBROUTINE cxios_get_context_default_pool_gatherer(context_hdl, default_pool_gatherer, default_pool_gatherer_size) BIND(C) 
     81      USE ISO_C_BINDING 
     82      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 
     83      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: default_pool_gatherer 
     84      INTEGER  (kind = C_INT)     , VALUE        :: default_pool_gatherer_size 
     85    END SUBROUTINE cxios_get_context_default_pool_gatherer 
     86 
     87    FUNCTION cxios_is_defined_context_default_pool_gatherer(context_hdl) BIND(C) 
     88      USE ISO_C_BINDING 
     89      LOGICAL(kind=C_BOOL) :: cxios_is_defined_context_default_pool_gatherer 
     90      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 
     91    END FUNCTION cxios_is_defined_context_default_pool_gatherer 
     92 
     93 
     94    SUBROUTINE cxios_set_context_default_pool_reader(context_hdl, default_pool_reader, default_pool_reader_size) BIND(C) 
     95      USE ISO_C_BINDING 
     96      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 
     97      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: default_pool_reader 
     98      INTEGER  (kind = C_INT)     , VALUE        :: default_pool_reader_size 
     99    END SUBROUTINE cxios_set_context_default_pool_reader 
     100 
     101    SUBROUTINE cxios_get_context_default_pool_reader(context_hdl, default_pool_reader, default_pool_reader_size) BIND(C) 
     102      USE ISO_C_BINDING 
     103      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 
     104      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: default_pool_reader 
     105      INTEGER  (kind = C_INT)     , VALUE        :: default_pool_reader_size 
     106    END SUBROUTINE cxios_get_context_default_pool_reader 
     107 
     108    FUNCTION cxios_is_defined_context_default_pool_reader(context_hdl) BIND(C) 
     109      USE ISO_C_BINDING 
     110      LOGICAL(kind=C_BOOL) :: cxios_is_defined_context_default_pool_reader 
     111      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 
     112    END FUNCTION cxios_is_defined_context_default_pool_reader 
     113 
     114 
     115    SUBROUTINE cxios_set_context_default_pool_writer(context_hdl, default_pool_writer, default_pool_writer_size) BIND(C) 
     116      USE ISO_C_BINDING 
     117      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 
     118      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: default_pool_writer 
     119      INTEGER  (kind = C_INT)     , VALUE        :: default_pool_writer_size 
     120    END SUBROUTINE cxios_set_context_default_pool_writer 
     121 
     122    SUBROUTINE cxios_get_context_default_pool_writer(context_hdl, default_pool_writer, default_pool_writer_size) BIND(C) 
     123      USE ISO_C_BINDING 
     124      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 
     125      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: default_pool_writer 
     126      INTEGER  (kind = C_INT)     , VALUE        :: default_pool_writer_size 
     127    END SUBROUTINE cxios_get_context_default_pool_writer 
     128 
     129    FUNCTION cxios_is_defined_context_default_pool_writer(context_hdl) BIND(C) 
     130      USE ISO_C_BINDING 
     131      LOGICAL(kind=C_BOOL) :: cxios_is_defined_context_default_pool_writer 
     132      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 
     133    END FUNCTION cxios_is_defined_context_default_pool_writer 
     134 
     135 
     136    SUBROUTINE cxios_set_context_default_reader(context_hdl, default_reader, default_reader_size) BIND(C) 
     137      USE ISO_C_BINDING 
     138      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 
     139      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: default_reader 
     140      INTEGER  (kind = C_INT)     , VALUE        :: default_reader_size 
     141    END SUBROUTINE cxios_set_context_default_reader 
     142 
     143    SUBROUTINE cxios_get_context_default_reader(context_hdl, default_reader, default_reader_size) BIND(C) 
     144      USE ISO_C_BINDING 
     145      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 
     146      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: default_reader 
     147      INTEGER  (kind = C_INT)     , VALUE        :: default_reader_size 
     148    END SUBROUTINE cxios_get_context_default_reader 
     149 
     150    FUNCTION cxios_is_defined_context_default_reader(context_hdl) BIND(C) 
     151      USE ISO_C_BINDING 
     152      LOGICAL(kind=C_BOOL) :: cxios_is_defined_context_default_reader 
     153      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 
     154    END FUNCTION cxios_is_defined_context_default_reader 
     155 
     156 
     157    SUBROUTINE cxios_set_context_default_using_server2(context_hdl, default_using_server2) BIND(C) 
     158      USE ISO_C_BINDING 
     159      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 
     160      LOGICAL (KIND=C_BOOL)      , VALUE :: default_using_server2 
     161    END SUBROUTINE cxios_set_context_default_using_server2 
     162 
     163    SUBROUTINE cxios_get_context_default_using_server2(context_hdl, default_using_server2) BIND(C) 
     164      USE ISO_C_BINDING 
     165      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 
     166      LOGICAL (KIND=C_BOOL)             :: default_using_server2 
     167    END SUBROUTINE cxios_get_context_default_using_server2 
     168 
     169    FUNCTION cxios_is_defined_context_default_using_server2(context_hdl) BIND(C) 
     170      USE ISO_C_BINDING 
     171      LOGICAL(kind=C_BOOL) :: cxios_is_defined_context_default_using_server2 
     172      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 
     173    END FUNCTION cxios_is_defined_context_default_using_server2 
     174 
     175 
     176    SUBROUTINE cxios_set_context_default_writer(context_hdl, default_writer, default_writer_size) BIND(C) 
     177      USE ISO_C_BINDING 
     178      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 
     179      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: default_writer 
     180      INTEGER  (kind = C_INT)     , VALUE        :: default_writer_size 
     181    END SUBROUTINE cxios_set_context_default_writer 
     182 
     183    SUBROUTINE cxios_get_context_default_writer(context_hdl, default_writer, default_writer_size) BIND(C) 
     184      USE ISO_C_BINDING 
     185      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 
     186      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: default_writer 
     187      INTEGER  (kind = C_INT)     , VALUE        :: default_writer_size 
     188    END SUBROUTINE cxios_get_context_default_writer 
     189 
     190    FUNCTION cxios_is_defined_context_default_writer(context_hdl) BIND(C) 
     191      USE ISO_C_BINDING 
     192      LOGICAL(kind=C_BOOL) :: cxios_is_defined_context_default_writer 
     193      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 
     194    END FUNCTION cxios_is_defined_context_default_writer 
     195 
     196 
    31197    SUBROUTINE cxios_set_context_output_dir(context_hdl, output_dir, output_dir_size) BIND(C) 
    32198      USE ISO_C_BINDING 
Note: See TracChangeset for help on using the changeset viewer.