Ignore:
Timestamp:
02/18/12 22:43:24 (12 years ago)
Author:
ymipsl
Message:

Fortran attribut interface are now automaticaly generated.
Add get attribut fonctionnality from fortran.

YM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • XIOS/trunk/src/fortran/domain_interface.f90

    r312 r313  
    33        
    44   INTERFACE ! Ne pas appeler directement/Interface FORTRAN 2003 <-> C99 
    5         
    6       SUBROUTINE cxios_set_domain_name(domain_hdl, name, name_size) BIND(C) 
    7          USE ISO_C_BINDING 
    8          INTEGER  (kind = C_INTPTR_T), VALUE        :: domain_hdl 
    9          CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name 
    10          INTEGER  (kind = C_INT)     , VALUE        :: name_size 
    11       END SUBROUTINE cxios_set_domain_name 
    12  
    13       SUBROUTINE cxios_set_domain_standard_name(domain_hdl, standard_name, standard_name_size) BIND(C) 
    14          USE ISO_C_BINDING 
    15          INTEGER  (kind = C_INTPTR_T), VALUE        :: domain_hdl 
    16          CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name 
    17          INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size 
    18       END SUBROUTINE cxios_set_domain_standard_name 
    19  
    20       SUBROUTINE cxios_set_domain_long_name(domain_hdl, long_name, long_name_size) BIND(C) 
    21          USE ISO_C_BINDING 
    22          INTEGER  (kind = C_INTPTR_T), VALUE        :: domain_hdl 
    23          CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name 
    24          INTEGER  (kind = C_INT)     , VALUE        :: long_name_size 
    25       END SUBROUTINE cxios_set_domain_long_name 
    26  
    27       SUBROUTINE cxios_set_domain_domain_group_ref(domain_hdl, domain_group_ref, domain_group_ref_size) BIND(C) 
    28          USE ISO_C_BINDING 
    29          INTEGER  (kind = C_INTPTR_T), VALUE        :: domain_hdl 
    30          CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_group_ref 
    31          INTEGER  (kind = C_INT)     , VALUE        :: domain_group_ref_size 
    32       END SUBROUTINE cxios_set_domain_domain_group_ref 
    33  
    34       SUBROUTINE cxios_set_domain_ni_glo(domain_hdl, ni_glo) BIND(C) 
    35          USE ISO_C_BINDING 
    36          INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    37          INTEGER (kind = C_INT)     , VALUE :: ni_glo 
    38       END SUBROUTINE cxios_set_domain_ni_glo 
    39  
    40       SUBROUTINE cxios_set_domain_nj_glo(domain_hdl, nj_glo) BIND(C) 
    41          USE ISO_C_BINDING 
    42          INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    43          INTEGER (kind = C_INT)     , VALUE :: nj_glo 
    44       END SUBROUTINE cxios_set_domain_nj_glo 
    45  
    46       SUBROUTINE cxios_set_domain_ibegin(domain_hdl, ibegin) BIND(C) 
    47          USE ISO_C_BINDING 
    48          INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    49          INTEGER (kind = C_INT)     , VALUE :: ibegin 
    50       END SUBROUTINE cxios_set_domain_ibegin 
    51  
    52       SUBROUTINE cxios_set_domain_iend(domain_hdl, iend) BIND(C) 
    53          USE ISO_C_BINDING 
    54          INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    55          INTEGER (kind = C_INT)     , VALUE :: iend 
    56       END SUBROUTINE cxios_set_domain_iend 
    57  
    58       SUBROUTINE cxios_set_domain_ni(domain_hdl, ni) BIND(C) 
    59          USE ISO_C_BINDING 
    60          INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    61          INTEGER (kind = C_INT)     , VALUE :: ni 
    62       END SUBROUTINE cxios_set_domain_ni 
    63  
    64       SUBROUTINE cxios_set_domain_jbegin(domain_hdl, jbegin) BIND(C) 
    65          USE ISO_C_BINDING 
    66          INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    67          INTEGER (kind = C_INT)     , VALUE :: jbegin 
    68       END SUBROUTINE cxios_set_domain_jbegin 
    69  
    70       SUBROUTINE cxios_set_domain_jend(domain_hdl, jend) BIND(C) 
    71          USE ISO_C_BINDING 
    72          INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    73          INTEGER (kind = C_INT)     , VALUE :: jend 
    74       END SUBROUTINE cxios_set_domain_jend 
    75  
    76       SUBROUTINE cxios_set_domain_nj(domain_hdl, nj) BIND(C) 
    77          USE ISO_C_BINDING 
    78          INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    79          INTEGER (kind = C_INT)     , VALUE :: nj 
    80       END SUBROUTINE cxios_set_domain_nj 
    81  
    82       SUBROUTINE cxios_set_domain_mask(domain_hdl, mask, mask_extent1, mask_extent2) BIND(C) 
    83          USE ISO_C_BINDING 
    84          INTEGER (kind = C_INTPTR_T), VALUE        :: domain_hdl 
    85          LOGICAL(kind = C_BOOL)     , DIMENSION(*) :: mask 
    86          INTEGER (kind = C_INT)     , VALUE        :: mask_extent1 
    87          INTEGER (kind = C_INT)     , VALUE        :: mask_extent2 
    88       END SUBROUTINE cxios_set_domain_mask 
    89  
    90       SUBROUTINE cxios_set_domain_data_dim(domain_hdl, data_dim) BIND(C) 
    91          USE ISO_C_BINDING 
    92          INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    93          INTEGER (kind = C_INT)     , VALUE :: data_dim 
    94       END SUBROUTINE cxios_set_domain_data_dim 
    95  
    96       SUBROUTINE cxios_set_domain_data_ni(domain_hdl, data_ni) BIND(C) 
    97          USE ISO_C_BINDING 
    98          INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    99          INTEGER (kind = C_INT)     , VALUE :: data_ni 
    100       END SUBROUTINE cxios_set_domain_data_ni 
    101  
    102       SUBROUTINE cxios_set_domain_data_nj(domain_hdl, data_nj) BIND(C) 
    103          USE ISO_C_BINDING 
    104          INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    105          INTEGER (kind = C_INT)     , VALUE :: data_nj 
    106       END SUBROUTINE cxios_set_domain_data_nj 
    107  
    108       SUBROUTINE cxios_set_domain_data_ibegin(domain_hdl, data_ibegin) BIND(C) 
    109          USE ISO_C_BINDING 
    110          INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    111          INTEGER (kind = C_INT)     , VALUE :: data_ibegin 
    112       END SUBROUTINE cxios_set_domain_data_ibegin 
    113  
    114       SUBROUTINE cxios_set_domain_data_jbegin(domain_hdl, data_jbegin) BIND(C) 
    115          USE ISO_C_BINDING 
    116          INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    117          INTEGER (kind = C_INT)     , VALUE :: data_jbegin 
    118       END SUBROUTINE cxios_set_domain_data_jbegin 
    119  
    120       SUBROUTINE cxios_set_domain_zoom_ni(domain_hdl, zoom_ni) BIND(C) 
    121          USE ISO_C_BINDING 
    122          INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    123          INTEGER (kind = C_INT)     , VALUE :: zoom_ni 
    124       END SUBROUTINE cxios_set_domain_zoom_ni 
    125  
    126       SUBROUTINE cxios_set_domain_zoom_nj(domain_hdl, zoom_nj) BIND(C) 
    127          USE ISO_C_BINDING 
    128          INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    129          INTEGER (kind = C_INT)     , VALUE :: zoom_nj 
    130       END SUBROUTINE cxios_set_domain_zoom_nj 
    131  
    132       SUBROUTINE cxios_set_domain_zoom_ibegin(domain_hdl, zoom_ibegin) BIND(C) 
    133          USE ISO_C_BINDING 
    134          INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    135          INTEGER (kind = C_INT)     , VALUE :: zoom_ibegin 
    136       END SUBROUTINE cxios_set_domain_zoom_ibegin 
    137  
    138       SUBROUTINE cxios_set_domain_zoom_jbegin(domain_hdl, zoom_jbegin) BIND(C) 
    139          USE ISO_C_BINDING 
    140          INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    141          INTEGER (kind = C_INT)     , VALUE :: zoom_jbegin 
    142       END SUBROUTINE cxios_set_domain_zoom_jbegin 
    143  
    144       SUBROUTINE cxios_set_domain_data_n_index(domain_hdl, data_n_index) BIND(C) 
    145          USE ISO_C_BINDING 
    146          INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    147          INTEGER (kind = C_INT)     , VALUE :: data_n_index 
    148       END SUBROUTINE cxios_set_domain_data_n_index 
    149  
    150       SUBROUTINE cxios_set_domain_data_i_index(domain_hdl, data_i_index, data_i_index_extent1) BIND(C) 
    151          USE ISO_C_BINDING 
    152          INTEGER (kind = C_INTPTR_T), VALUE        :: domain_hdl 
    153          INTEGER (kind = C_INT)     , DIMENSION(*) :: data_i_index 
    154          INTEGER (kind = C_INT)     , VALUE        :: data_i_index_extent1 
    155       END SUBROUTINE cxios_set_domain_data_i_index 
    156  
    157       SUBROUTINE cxios_set_domain_data_j_index(domain_hdl, data_j_index, data_j_index_extent1) BIND(C) 
    158          USE ISO_C_BINDING 
    159          INTEGER (kind = C_INTPTR_T), VALUE        :: domain_hdl 
    160          INTEGER (kind = C_INT)     , DIMENSION(*) :: data_j_index 
    161          INTEGER (kind = C_INT)     , VALUE        :: data_j_index_extent1 
    162       END SUBROUTINE cxios_set_domain_data_j_index 
    163  
    164       SUBROUTINE cxios_set_domain_lonvalue(domain_hdl, lonvalue, lonvalue_extent1) BIND(C) 
    165          USE ISO_C_BINDING 
    166          INTEGER (kind = C_INTPTR_T), VALUE        :: domain_hdl 
    167          REAL    (kind = C_DOUBLE)  , DIMENSION(*) :: lonvalue 
    168          INTEGER (kind = C_INT)     , VALUE        :: lonvalue_extent1 
    169       END SUBROUTINE cxios_set_domain_lonvalue 
    170  
    171       SUBROUTINE cxios_set_domain_latvalue(domain_hdl, latvalue, latvalue_extent1) BIND(C) 
    172          USE ISO_C_BINDING 
    173          INTEGER (kind = C_INTPTR_T), VALUE        :: domain_hdl 
    174          REAL    (kind = C_DOUBLE)  , DIMENSION(*) :: latvalue 
    175          INTEGER (kind = C_INT)     , VALUE        :: latvalue_extent1 
    176       END SUBROUTINE cxios_set_domain_latvalue 
    1775        
    1786      SUBROUTINE cxios_domain_handle_create(ret, idt, idt_size) BIND(C) 
Note: See TracChangeset for help on using the changeset viewer.