- Timestamp:
- 06/03/13 11:21:19 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/interface/fortran_attr/axisgroup_interface_attr.f90
r415 r432 23 23 END SUBROUTINE cxios_get_axisgroup_group_ref 24 24 25 FUNCTION cxios_is_defined_axisgroup_group_ref(axisgroup_hdl ) BIND(C) 26 USE ISO_C_BINDING 27 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_group_ref 28 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 29 END FUNCTION cxios_is_defined_axisgroup_group_ref 30 25 31 26 32 SUBROUTINE cxios_set_axisgroup_long_name(axisgroup_hdl, long_name, long_name_size) BIND(C) … … 38 44 END SUBROUTINE cxios_get_axisgroup_long_name 39 45 46 FUNCTION cxios_is_defined_axisgroup_long_name(axisgroup_hdl ) BIND(C) 47 USE ISO_C_BINDING 48 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_long_name 49 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 50 END FUNCTION cxios_is_defined_axisgroup_long_name 51 40 52 41 53 SUBROUTINE cxios_set_axisgroup_name(axisgroup_hdl, name, name_size) BIND(C) … … 53 65 END SUBROUTINE cxios_get_axisgroup_name 54 66 67 FUNCTION cxios_is_defined_axisgroup_name(axisgroup_hdl ) BIND(C) 68 USE ISO_C_BINDING 69 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_name 70 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 71 END FUNCTION cxios_is_defined_axisgroup_name 72 55 73 56 74 SUBROUTINE cxios_set_axisgroup_positive(axisgroup_hdl, positive, positive_size) BIND(C) … … 68 86 END SUBROUTINE cxios_get_axisgroup_positive 69 87 88 FUNCTION cxios_is_defined_axisgroup_positive(axisgroup_hdl ) BIND(C) 89 USE ISO_C_BINDING 90 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_positive 91 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 92 END FUNCTION cxios_is_defined_axisgroup_positive 93 70 94 71 95 SUBROUTINE cxios_set_axisgroup_size(axisgroup_hdl, size) BIND(C) … … 80 104 INTEGER (KIND=C_INT) :: size 81 105 END SUBROUTINE cxios_get_axisgroup_size 106 107 FUNCTION cxios_is_defined_axisgroup_size(axisgroup_hdl ) BIND(C) 108 USE ISO_C_BINDING 109 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_size 110 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 111 END FUNCTION cxios_is_defined_axisgroup_size 82 112 83 113 … … 96 126 END SUBROUTINE cxios_get_axisgroup_standard_name 97 127 128 FUNCTION cxios_is_defined_axisgroup_standard_name(axisgroup_hdl ) BIND(C) 129 USE ISO_C_BINDING 130 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_standard_name 131 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 132 END FUNCTION cxios_is_defined_axisgroup_standard_name 133 98 134 99 135 SUBROUTINE cxios_set_axisgroup_unit(axisgroup_hdl, unit, unit_size) BIND(C) … … 110 146 INTEGER (kind = C_INT) , VALUE :: unit_size 111 147 END SUBROUTINE cxios_get_axisgroup_unit 148 149 FUNCTION cxios_is_defined_axisgroup_unit(axisgroup_hdl ) BIND(C) 150 USE ISO_C_BINDING 151 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_unit 152 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 153 END FUNCTION cxios_is_defined_axisgroup_unit 112 154 113 155 … … 126 168 END SUBROUTINE cxios_get_axisgroup_value 127 169 170 FUNCTION cxios_is_defined_axisgroup_value(axisgroup_hdl ) BIND(C) 171 USE ISO_C_BINDING 172 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_value 173 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 174 END FUNCTION cxios_is_defined_axisgroup_value 175 128 176 129 177 SUBROUTINE cxios_set_axisgroup_zoom_begin(axisgroup_hdl, zoom_begin) BIND(C) … … 139 187 END SUBROUTINE cxios_get_axisgroup_zoom_begin 140 188 189 FUNCTION cxios_is_defined_axisgroup_zoom_begin(axisgroup_hdl ) BIND(C) 190 USE ISO_C_BINDING 191 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_zoom_begin 192 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 193 END FUNCTION cxios_is_defined_axisgroup_zoom_begin 194 141 195 142 196 SUBROUTINE cxios_set_axisgroup_zoom_end(axisgroup_hdl, zoom_end) BIND(C) … … 152 206 END SUBROUTINE cxios_get_axisgroup_zoom_end 153 207 208 FUNCTION cxios_is_defined_axisgroup_zoom_end(axisgroup_hdl ) BIND(C) 209 USE ISO_C_BINDING 210 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_zoom_end 211 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 212 END FUNCTION cxios_is_defined_axisgroup_zoom_end 213 154 214 155 215 SUBROUTINE cxios_set_axisgroup_zoom_size(axisgroup_hdl, zoom_size) BIND(C) … … 164 224 INTEGER (KIND=C_INT) :: zoom_size 165 225 END SUBROUTINE cxios_get_axisgroup_zoom_size 226 227 FUNCTION cxios_is_defined_axisgroup_zoom_size(axisgroup_hdl ) BIND(C) 228 USE ISO_C_BINDING 229 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_zoom_size 230 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 231 END FUNCTION cxios_is_defined_axisgroup_zoom_size 166 232 167 233
Note: See TracChangeset
for help on using the changeset viewer.