Ignore:
Timestamp:
04/24/18 18:03:18 (6 years ago)
Author:
oabramkina
Message:

Updating fortran interface for attributes that have been recently introduced and the following filters:

duplicate_scalar_to_axis
reduce_axis_to_axis
reduce_scalar_to_scalar
reorder_domain
temporal_splitting.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • XIOS/dev/XIOS_DEV_CMIP6/src/interface/fortran_attr/scalargroup_interface_attr.F90

    r1158 r1492  
    1010    ! Do not call directly / interface FORTRAN 2003 <-> C99 
    1111 
     12    SUBROUTINE cxios_set_scalargroup_axis_type(scalargroup_hdl, axis_type, axis_type_size) BIND(C) 
     13      USE ISO_C_BINDING 
     14      INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl 
     15      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: axis_type 
     16      INTEGER  (kind = C_INT)     , VALUE        :: axis_type_size 
     17    END SUBROUTINE cxios_set_scalargroup_axis_type 
     18 
     19    SUBROUTINE cxios_get_scalargroup_axis_type(scalargroup_hdl, axis_type, axis_type_size) BIND(C) 
     20      USE ISO_C_BINDING 
     21      INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl 
     22      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: axis_type 
     23      INTEGER  (kind = C_INT)     , VALUE        :: axis_type_size 
     24    END SUBROUTINE cxios_get_scalargroup_axis_type 
     25 
     26    FUNCTION cxios_is_defined_scalargroup_axis_type(scalargroup_hdl) BIND(C) 
     27      USE ISO_C_BINDING 
     28      LOGICAL(kind=C_BOOL) :: cxios_is_defined_scalargroup_axis_type 
     29      INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl 
     30    END FUNCTION cxios_is_defined_scalargroup_axis_type 
     31 
     32 
     33    SUBROUTINE cxios_set_scalargroup_bounds(scalargroup_hdl, bounds, extent) BIND(C) 
     34      USE ISO_C_BINDING 
     35      INTEGER (kind = C_INTPTR_T), VALUE       :: scalargroup_hdl 
     36      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds 
     37      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     38    END SUBROUTINE cxios_set_scalargroup_bounds 
     39 
     40    SUBROUTINE cxios_get_scalargroup_bounds(scalargroup_hdl, bounds, extent) BIND(C) 
     41      USE ISO_C_BINDING 
     42      INTEGER (kind = C_INTPTR_T), VALUE       :: scalargroup_hdl 
     43      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds 
     44      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     45    END SUBROUTINE cxios_get_scalargroup_bounds 
     46 
     47    FUNCTION cxios_is_defined_scalargroup_bounds(scalargroup_hdl) BIND(C) 
     48      USE ISO_C_BINDING 
     49      LOGICAL(kind=C_BOOL) :: cxios_is_defined_scalargroup_bounds 
     50      INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl 
     51    END FUNCTION cxios_is_defined_scalargroup_bounds 
     52 
     53 
     54    SUBROUTINE cxios_set_scalargroup_bounds_name(scalargroup_hdl, bounds_name, bounds_name_size) BIND(C) 
     55      USE ISO_C_BINDING 
     56      INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl 
     57      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: bounds_name 
     58      INTEGER  (kind = C_INT)     , VALUE        :: bounds_name_size 
     59    END SUBROUTINE cxios_set_scalargroup_bounds_name 
     60 
     61    SUBROUTINE cxios_get_scalargroup_bounds_name(scalargroup_hdl, bounds_name, bounds_name_size) BIND(C) 
     62      USE ISO_C_BINDING 
     63      INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl 
     64      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: bounds_name 
     65      INTEGER  (kind = C_INT)     , VALUE        :: bounds_name_size 
     66    END SUBROUTINE cxios_get_scalargroup_bounds_name 
     67 
     68    FUNCTION cxios_is_defined_scalargroup_bounds_name(scalargroup_hdl) BIND(C) 
     69      USE ISO_C_BINDING 
     70      LOGICAL(kind=C_BOOL) :: cxios_is_defined_scalargroup_bounds_name 
     71      INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl 
     72    END FUNCTION cxios_is_defined_scalargroup_bounds_name 
     73 
     74 
     75    SUBROUTINE cxios_set_scalargroup_comment(scalargroup_hdl, comment, comment_size) BIND(C) 
     76      USE ISO_C_BINDING 
     77      INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl 
     78      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: comment 
     79      INTEGER  (kind = C_INT)     , VALUE        :: comment_size 
     80    END SUBROUTINE cxios_set_scalargroup_comment 
     81 
     82    SUBROUTINE cxios_get_scalargroup_comment(scalargroup_hdl, comment, comment_size) BIND(C) 
     83      USE ISO_C_BINDING 
     84      INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl 
     85      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: comment 
     86      INTEGER  (kind = C_INT)     , VALUE        :: comment_size 
     87    END SUBROUTINE cxios_get_scalargroup_comment 
     88 
     89    FUNCTION cxios_is_defined_scalargroup_comment(scalargroup_hdl) BIND(C) 
     90      USE ISO_C_BINDING 
     91      LOGICAL(kind=C_BOOL) :: cxios_is_defined_scalargroup_comment 
     92      INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl 
     93    END FUNCTION cxios_is_defined_scalargroup_comment 
     94 
     95 
    1296    SUBROUTINE cxios_set_scalargroup_group_ref(scalargroup_hdl, group_ref, group_ref_size) BIND(C) 
    1397      USE ISO_C_BINDING 
    … …  
    31115 
    32116 
     117    SUBROUTINE cxios_set_scalargroup_label(scalargroup_hdl, label, label_size) BIND(C) 
     118      USE ISO_C_BINDING 
     119      INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl 
     120      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: label 
     121      INTEGER  (kind = C_INT)     , VALUE        :: label_size 
     122    END SUBROUTINE cxios_set_scalargroup_label 
     123 
     124    SUBROUTINE cxios_get_scalargroup_label(scalargroup_hdl, label, label_size) BIND(C) 
     125      USE ISO_C_BINDING 
     126      INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl 
     127      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: label 
     128      INTEGER  (kind = C_INT)     , VALUE        :: label_size 
     129    END SUBROUTINE cxios_get_scalargroup_label 
     130 
     131    FUNCTION cxios_is_defined_scalargroup_label(scalargroup_hdl) BIND(C) 
     132      USE ISO_C_BINDING 
     133      LOGICAL(kind=C_BOOL) :: cxios_is_defined_scalargroup_label 
     134      INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl 
     135    END FUNCTION cxios_is_defined_scalargroup_label 
     136 
     137 
    33138    SUBROUTINE cxios_set_scalargroup_long_name(scalargroup_hdl, long_name, long_name_size) BIND(C) 
    34139      USE ISO_C_BINDING 
    … …  
    73178 
    74179 
     180    SUBROUTINE cxios_set_scalargroup_positive(scalargroup_hdl, positive, positive_size) BIND(C) 
     181      USE ISO_C_BINDING 
     182      INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl 
     183      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: positive 
     184      INTEGER  (kind = C_INT)     , VALUE        :: positive_size 
     185    END SUBROUTINE cxios_set_scalargroup_positive 
     186 
     187    SUBROUTINE cxios_get_scalargroup_positive(scalargroup_hdl, positive, positive_size) BIND(C) 
     188      USE ISO_C_BINDING 
     189      INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl 
     190      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: positive 
     191      INTEGER  (kind = C_INT)     , VALUE        :: positive_size 
     192    END SUBROUTINE cxios_get_scalargroup_positive 
     193 
     194    FUNCTION cxios_is_defined_scalargroup_positive(scalargroup_hdl) BIND(C) 
     195      USE ISO_C_BINDING 
     196      LOGICAL(kind=C_BOOL) :: cxios_is_defined_scalargroup_positive 
     197      INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl 
     198    END FUNCTION cxios_is_defined_scalargroup_positive 
     199 
     200 
    75201    SUBROUTINE cxios_set_scalargroup_prec(scalargroup_hdl, prec) BIND(C) 
    76202      USE ISO_C_BINDING 
Note: See TracChangeset for help on using the changeset viewer.