- Timestamp:
- 06/03/13 11:21:19 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/interface/fortran_attr/filegroup_interface_attr.f90
r415 r432 23 23 END SUBROUTINE cxios_get_filegroup_description 24 24 25 FUNCTION cxios_is_defined_filegroup_description(filegroup_hdl ) BIND(C) 26 USE ISO_C_BINDING 27 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_description 28 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 29 END FUNCTION cxios_is_defined_filegroup_description 30 25 31 26 32 SUBROUTINE cxios_set_filegroup_enabled(filegroup_hdl, enabled) BIND(C) … … 35 41 LOGICAL (KIND=C_BOOL) :: enabled 36 42 END SUBROUTINE cxios_get_filegroup_enabled 43 44 FUNCTION cxios_is_defined_filegroup_enabled(filegroup_hdl ) BIND(C) 45 USE ISO_C_BINDING 46 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_enabled 47 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 48 END FUNCTION cxios_is_defined_filegroup_enabled 37 49 38 50 … … 51 63 END SUBROUTINE cxios_get_filegroup_group_ref 52 64 65 FUNCTION cxios_is_defined_filegroup_group_ref(filegroup_hdl ) BIND(C) 66 USE ISO_C_BINDING 67 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_group_ref 68 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 69 END FUNCTION cxios_is_defined_filegroup_group_ref 70 53 71 54 72 SUBROUTINE cxios_set_filegroup_min_digits(filegroup_hdl, min_digits) BIND(C) … … 63 81 INTEGER (KIND=C_INT) :: min_digits 64 82 END SUBROUTINE cxios_get_filegroup_min_digits 83 84 FUNCTION cxios_is_defined_filegroup_min_digits(filegroup_hdl ) BIND(C) 85 USE ISO_C_BINDING 86 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_min_digits 87 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 88 END FUNCTION cxios_is_defined_filegroup_min_digits 65 89 66 90 … … 79 103 END SUBROUTINE cxios_get_filegroup_name 80 104 105 FUNCTION cxios_is_defined_filegroup_name(filegroup_hdl ) BIND(C) 106 USE ISO_C_BINDING 107 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_name 108 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 109 END FUNCTION cxios_is_defined_filegroup_name 110 81 111 82 112 SUBROUTINE cxios_set_filegroup_name_suffix(filegroup_hdl, name_suffix, name_suffix_size) BIND(C) … … 94 124 END SUBROUTINE cxios_get_filegroup_name_suffix 95 125 126 FUNCTION cxios_is_defined_filegroup_name_suffix(filegroup_hdl ) BIND(C) 127 USE ISO_C_BINDING 128 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_name_suffix 129 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 130 END FUNCTION cxios_is_defined_filegroup_name_suffix 131 96 132 97 133 SUBROUTINE cxios_set_filegroup_output_freq(filegroup_hdl, output_freq, output_freq_size) BIND(C) … … 109 145 END SUBROUTINE cxios_get_filegroup_output_freq 110 146 147 FUNCTION cxios_is_defined_filegroup_output_freq(filegroup_hdl ) BIND(C) 148 USE ISO_C_BINDING 149 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_output_freq 150 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 151 END FUNCTION cxios_is_defined_filegroup_output_freq 152 111 153 112 154 SUBROUTINE cxios_set_filegroup_output_level(filegroup_hdl, output_level) BIND(C) … … 121 163 INTEGER (KIND=C_INT) :: output_level 122 164 END SUBROUTINE cxios_get_filegroup_output_level 165 166 FUNCTION cxios_is_defined_filegroup_output_level(filegroup_hdl ) BIND(C) 167 USE ISO_C_BINDING 168 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_output_level 169 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 170 END FUNCTION cxios_is_defined_filegroup_output_level 123 171 124 172 … … 137 185 END SUBROUTINE cxios_get_filegroup_par_access 138 186 187 FUNCTION cxios_is_defined_filegroup_par_access(filegroup_hdl ) BIND(C) 188 USE ISO_C_BINDING 189 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_par_access 190 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 191 END FUNCTION cxios_is_defined_filegroup_par_access 192 139 193 140 194 SUBROUTINE cxios_set_filegroup_split_freq(filegroup_hdl, split_freq, split_freq_size) BIND(C) … … 152 206 END SUBROUTINE cxios_get_filegroup_split_freq 153 207 208 FUNCTION cxios_is_defined_filegroup_split_freq(filegroup_hdl ) BIND(C) 209 USE ISO_C_BINDING 210 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_split_freq 211 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 212 END FUNCTION cxios_is_defined_filegroup_split_freq 213 214 215 SUBROUTINE cxios_set_filegroup_split_freq_format(filegroup_hdl, split_freq_format, split_freq_format_size) BIND(C) 216 USE ISO_C_BINDING 217 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 218 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: split_freq_format 219 INTEGER (kind = C_INT) , VALUE :: split_freq_format_size 220 END SUBROUTINE cxios_set_filegroup_split_freq_format 221 222 SUBROUTINE cxios_get_filegroup_split_freq_format(filegroup_hdl, split_freq_format, split_freq_format_size) BIND(C) 223 USE ISO_C_BINDING 224 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 225 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: split_freq_format 226 INTEGER (kind = C_INT) , VALUE :: split_freq_format_size 227 END SUBROUTINE cxios_get_filegroup_split_freq_format 228 229 FUNCTION cxios_is_defined_filegroup_split_freq_format(filegroup_hdl ) BIND(C) 230 USE ISO_C_BINDING 231 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_split_freq_format 232 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 233 END FUNCTION cxios_is_defined_filegroup_split_freq_format 234 154 235 155 236 SUBROUTINE cxios_set_filegroup_sync_freq(filegroup_hdl, sync_freq, sync_freq_size) BIND(C) … … 167 248 END SUBROUTINE cxios_get_filegroup_sync_freq 168 249 250 FUNCTION cxios_is_defined_filegroup_sync_freq(filegroup_hdl ) BIND(C) 251 USE ISO_C_BINDING 252 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_sync_freq 253 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 254 END FUNCTION cxios_is_defined_filegroup_sync_freq 255 169 256 170 257 SUBROUTINE cxios_set_filegroup_type(filegroup_hdl, type, type_size) BIND(C) … … 182 269 END SUBROUTINE cxios_get_filegroup_type 183 270 271 FUNCTION cxios_is_defined_filegroup_type(filegroup_hdl ) BIND(C) 272 USE ISO_C_BINDING 273 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_type 274 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 275 END FUNCTION cxios_is_defined_filegroup_type 276 184 277 185 278 END INTERFACE
Note: See TracChangeset
for help on using the changeset viewer.