Changeset 313 for XIOS/trunk/src/fortran/domaingroup_interface.f90
- Timestamp:
- 02/18/12 22:43:24 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/fortran/domaingroup_interface.f90
r312 r313 4 4 INTERFACE ! Ne pas appeler directement/Interface FORTRAN 2003 <-> C99 5 5 6 SUBROUTINE cxios_set_domaingroup_name(domaingroup_hdl, name, name_size) BIND(C)7 USE ISO_C_BINDING8 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl9 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: name10 INTEGER (kind = C_INT) , VALUE :: name_size11 END SUBROUTINE cxios_set_domaingroup_name12 13 SUBROUTINE cxios_set_domaingroup_standard_name(domaingroup_hdl, standard_name, standard_name_size) BIND(C)14 USE ISO_C_BINDING15 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl16 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: standard_name17 INTEGER (kind = C_INT) , VALUE :: standard_name_size18 END SUBROUTINE cxios_set_domaingroup_standard_name19 20 SUBROUTINE cxios_set_domaingroup_long_name(domaingroup_hdl, long_name, long_name_size) BIND(C)21 USE ISO_C_BINDING22 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl23 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: long_name24 INTEGER (kind = C_INT) , VALUE :: long_name_size25 END SUBROUTINE cxios_set_domaingroup_long_name26 27 SUBROUTINE cxios_set_domaingroup_domain_group_ref(domaingroup_hdl, domain_group_ref, domain_group_ref_size) BIND(C)28 USE ISO_C_BINDING29 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl30 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: domain_group_ref31 INTEGER (kind = C_INT) , VALUE :: domain_group_ref_size32 END SUBROUTINE cxios_set_domaingroup_domain_group_ref33 34 SUBROUTINE cxios_set_domaingroup_ni_glo(domaingroup_hdl, ni_glo) BIND(C)35 USE ISO_C_BINDING36 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl37 INTEGER (kind = C_INT) , VALUE :: ni_glo38 END SUBROUTINE cxios_set_domaingroup_ni_glo39 40 SUBROUTINE cxios_set_domaingroup_nj_glo(domaingroup_hdl, nj_glo) BIND(C)41 USE ISO_C_BINDING42 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl43 INTEGER (kind = C_INT) , VALUE :: nj_glo44 END SUBROUTINE cxios_set_domaingroup_nj_glo45 46 SUBROUTINE cxios_set_domaingroup_ibegin(domaingroup_hdl, ibegin) BIND(C)47 USE ISO_C_BINDING48 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl49 INTEGER (kind = C_INT) , VALUE :: ibegin50 END SUBROUTINE cxios_set_domaingroup_ibegin51 52 SUBROUTINE cxios_set_domaingroup_iend(domaingroup_hdl, iend) BIND(C)53 USE ISO_C_BINDING54 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl55 INTEGER (kind = C_INT) , VALUE :: iend56 END SUBROUTINE cxios_set_domaingroup_iend57 58 SUBROUTINE cxios_set_domaingroup_ni(domaingroup_hdl, ni) BIND(C)59 USE ISO_C_BINDING60 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl61 INTEGER (kind = C_INT) , VALUE :: ni62 END SUBROUTINE cxios_set_domaingroup_ni63 64 SUBROUTINE cxios_set_domaingroup_jbegin(domaingroup_hdl, jbegin) BIND(C)65 USE ISO_C_BINDING66 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl67 INTEGER (kind = C_INT) , VALUE :: jbegin68 END SUBROUTINE cxios_set_domaingroup_jbegin69 70 SUBROUTINE cxios_set_domaingroup_jend(domaingroup_hdl, jend) BIND(C)71 USE ISO_C_BINDING72 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl73 INTEGER (kind = C_INT) , VALUE :: jend74 END SUBROUTINE cxios_set_domaingroup_jend75 76 SUBROUTINE cxios_set_domaingroup_nj(domaingroup_hdl, nj) BIND(C)77 USE ISO_C_BINDING78 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl79 INTEGER (kind = C_INT) , VALUE :: nj80 END SUBROUTINE cxios_set_domaingroup_nj81 82 SUBROUTINE cxios_set_domaingroup_mask(domaingroup_hdl, mask, mask_extent1, mask_extent2) BIND(C)83 USE ISO_C_BINDING84 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl85 LOGICAL(kind = C_BOOL) , DIMENSION(*) :: mask86 INTEGER (kind = C_INT) , VALUE :: mask_extent187 INTEGER (kind = C_INT) , VALUE :: mask_extent288 END SUBROUTINE cxios_set_domaingroup_mask89 90 SUBROUTINE cxios_set_domaingroup_data_dim(domaingroup_hdl, data_dim) BIND(C)91 USE ISO_C_BINDING92 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl93 INTEGER (kind = C_INT) , VALUE :: data_dim94 END SUBROUTINE cxios_set_domaingroup_data_dim95 96 SUBROUTINE cxios_set_domaingroup_data_ni(domaingroup_hdl, data_ni) BIND(C)97 USE ISO_C_BINDING98 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl99 INTEGER (kind = C_INT) , VALUE :: data_ni100 END SUBROUTINE cxios_set_domaingroup_data_ni101 102 SUBROUTINE cxios_set_domaingroup_data_nj(domaingroup_hdl, data_nj) BIND(C)103 USE ISO_C_BINDING104 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl105 INTEGER (kind = C_INT) , VALUE :: data_nj106 END SUBROUTINE cxios_set_domaingroup_data_nj107 108 SUBROUTINE cxios_set_domaingroup_data_ibegin(domaingroup_hdl, data_ibegin) BIND(C)109 USE ISO_C_BINDING110 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl111 INTEGER (kind = C_INT) , VALUE :: data_ibegin112 END SUBROUTINE cxios_set_domaingroup_data_ibegin113 114 SUBROUTINE cxios_set_domaingroup_data_jbegin(domaingroup_hdl, data_jbegin) BIND(C)115 USE ISO_C_BINDING116 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl117 INTEGER (kind = C_INT) , VALUE :: data_jbegin118 END SUBROUTINE cxios_set_domaingroup_data_jbegin119 120 SUBROUTINE cxios_set_domaingroup_zoom_ni(domaingroup_hdl, zoom_ni) BIND(C)121 USE ISO_C_BINDING122 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl123 INTEGER (kind = C_INT) , VALUE :: zoom_ni124 END SUBROUTINE cxios_set_domaingroup_zoom_ni125 126 SUBROUTINE cxios_set_domaingroup_zoom_nj(domaingroup_hdl, zoom_nj) BIND(C)127 USE ISO_C_BINDING128 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl129 INTEGER (kind = C_INT) , VALUE :: zoom_nj130 END SUBROUTINE cxios_set_domaingroup_zoom_nj131 132 SUBROUTINE cxios_set_domaingroup_zoom_ibegin(domaingroup_hdl, zoom_ibegin) BIND(C)133 USE ISO_C_BINDING134 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl135 INTEGER (kind = C_INT) , VALUE :: zoom_ibegin136 END SUBROUTINE cxios_set_domaingroup_zoom_ibegin137 138 SUBROUTINE cxios_set_domaingroup_zoom_jbegin(domaingroup_hdl, zoom_jbegin) BIND(C)139 USE ISO_C_BINDING140 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl141 INTEGER (kind = C_INT) , VALUE :: zoom_jbegin142 END SUBROUTINE cxios_set_domaingroup_zoom_jbegin143 144 SUBROUTINE cxios_set_domaingroup_data_n_index(domaingroup_hdl, data_n_index) BIND(C)145 USE ISO_C_BINDING146 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl147 INTEGER (kind = C_INT) , VALUE :: data_n_index148 END SUBROUTINE cxios_set_domaingroup_data_n_index149 150 SUBROUTINE cxios_set_domaingroup_data_i_index(domaingroup_hdl, data_i_index, data_i_index_extent1) BIND(C)151 USE ISO_C_BINDING152 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl153 INTEGER (kind = C_INT) , DIMENSION(*) :: data_i_index154 INTEGER (kind = C_INT) , VALUE :: data_i_index_extent1155 END SUBROUTINE cxios_set_domaingroup_data_i_index156 157 SUBROUTINE cxios_set_domaingroup_data_j_index(domaingroup_hdl, data_j_index, data_j_index_extent1) BIND(C)158 USE ISO_C_BINDING159 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl160 INTEGER (kind = C_INT) , DIMENSION(*) :: data_j_index161 INTEGER (kind = C_INT) , VALUE :: data_j_index_extent1162 END SUBROUTINE cxios_set_domaingroup_data_j_index163 164 SUBROUTINE cxios_set_domaingroup_lonvalue(domaingroup_hdl, lonvalue, lonvalue_extent1) BIND(C)165 USE ISO_C_BINDING166 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl167 REAL (kind = C_DOUBLE) , DIMENSION(*) :: lonvalue168 INTEGER (kind = C_INT) , VALUE :: lonvalue_extent1169 END SUBROUTINE cxios_set_domaingroup_lonvalue170 171 SUBROUTINE cxios_set_domaingroup_latvalue(domaingroup_hdl, latvalue, latvalue_extent1) BIND(C)172 USE ISO_C_BINDING173 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl174 REAL (kind = C_DOUBLE) , DIMENSION(*) :: latvalue175 INTEGER (kind = C_INT) , VALUE :: latvalue_extent1176 END SUBROUTINE cxios_set_domaingroup_latvalue177 178 6 SUBROUTINE cxios_domaingroup_handle_create(ret, idt, idt_size) BIND(C) 179 7 USE ISO_C_BINDING
Note: See TracChangeset
for help on using the changeset viewer.