[326] | 1 | ! * ************************************************************************** * |
---|
| 2 | ! * Interface auto generated - do not modify * |
---|
| 3 | ! * ************************************************************************** * |
---|
| 4 | #include "xios_fortran_prefix.hpp" |
---|
| 5 | |
---|
| 6 | MODULE ifilegroup_attr |
---|
| 7 | USE, INTRINSIC :: ISO_C_BINDING |
---|
| 8 | USE ifile |
---|
| 9 | USE filegroup_interface_attr |
---|
[581] | 10 | |
---|
[326] | 11 | CONTAINS |
---|
[581] | 12 | |
---|
[326] | 13 | SUBROUTINE xios(set_filegroup_attr) & |
---|
[891] | 14 | ( filegroup_id, append, compression_level, cyclic, description, enabled, format, group_ref, min_digits & |
---|
[779] | 15 | , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq & |
---|
[802] | 16 | , split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix, type & |
---|
| 17 | ) |
---|
[581] | 18 | |
---|
[326] | 19 | IMPLICIT NONE |
---|
| 20 | TYPE(txios(filegroup)) :: filegroup_hdl |
---|
| 21 | CHARACTER(LEN=*), INTENT(IN) ::filegroup_id |
---|
[528] | 22 | LOGICAL , OPTIONAL, INTENT(IN) :: append |
---|
| 23 | LOGICAL (KIND=C_BOOL) :: append_tmp |
---|
[608] | 24 | INTEGER , OPTIONAL, INTENT(IN) :: compression_level |
---|
[891] | 25 | LOGICAL , OPTIONAL, INTENT(IN) :: cyclic |
---|
| 26 | LOGICAL (KIND=C_BOOL) :: cyclic_tmp |
---|
[326] | 27 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description |
---|
| 28 | LOGICAL , OPTIONAL, INTENT(IN) :: enabled |
---|
| 29 | LOGICAL (KIND=C_BOOL) :: enabled_tmp |
---|
[517] | 30 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: format |
---|
[326] | 31 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref |
---|
[415] | 32 | INTEGER , OPTIONAL, INTENT(IN) :: min_digits |
---|
[598] | 33 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode |
---|
[326] | 34 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name |
---|
| 35 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_suffix |
---|
[538] | 36 | TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: output_freq |
---|
[326] | 37 | INTEGER , OPTIONAL, INTENT(IN) :: output_level |
---|
[369] | 38 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access |
---|
[779] | 39 | INTEGER , OPTIONAL, INTENT(IN) :: record_offset |
---|
[538] | 40 | TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: split_freq |
---|
[432] | 41 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format |
---|
[538] | 42 | TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: sync_freq |
---|
[699] | 43 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter |
---|
[802] | 44 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter_name |
---|
[711] | 45 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: timeseries |
---|
| 46 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix |
---|
[326] | 47 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type |
---|
[581] | 48 | |
---|
[326] | 49 | CALL xios(get_filegroup_handle)(filegroup_id,filegroup_hdl) |
---|
| 50 | CALL xios(set_filegroup_attr_hdl_) & |
---|
[891] | 51 | ( filegroup_hdl, append, compression_level, cyclic, description, enabled, format, group_ref & |
---|
| 52 | , min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset & |
---|
| 53 | , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix & |
---|
| 54 | , type ) |
---|
[581] | 55 | |
---|
[326] | 56 | END SUBROUTINE xios(set_filegroup_attr) |
---|
[581] | 57 | |
---|
[326] | 58 | SUBROUTINE xios(set_filegroup_attr_hdl) & |
---|
[891] | 59 | ( filegroup_hdl, append, compression_level, cyclic, description, enabled, format, group_ref & |
---|
| 60 | , min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset & |
---|
| 61 | , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix & |
---|
| 62 | , type ) |
---|
[581] | 63 | |
---|
[326] | 64 | IMPLICIT NONE |
---|
| 65 | TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl |
---|
[528] | 66 | LOGICAL , OPTIONAL, INTENT(IN) :: append |
---|
| 67 | LOGICAL (KIND=C_BOOL) :: append_tmp |
---|
[608] | 68 | INTEGER , OPTIONAL, INTENT(IN) :: compression_level |
---|
[891] | 69 | LOGICAL , OPTIONAL, INTENT(IN) :: cyclic |
---|
| 70 | LOGICAL (KIND=C_BOOL) :: cyclic_tmp |
---|
[326] | 71 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description |
---|
| 72 | LOGICAL , OPTIONAL, INTENT(IN) :: enabled |
---|
| 73 | LOGICAL (KIND=C_BOOL) :: enabled_tmp |
---|
[517] | 74 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: format |
---|
[326] | 75 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref |
---|
[415] | 76 | INTEGER , OPTIONAL, INTENT(IN) :: min_digits |
---|
[598] | 77 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode |
---|
[326] | 78 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name |
---|
| 79 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_suffix |
---|
[538] | 80 | TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: output_freq |
---|
[326] | 81 | INTEGER , OPTIONAL, INTENT(IN) :: output_level |
---|
[369] | 82 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access |
---|
[779] | 83 | INTEGER , OPTIONAL, INTENT(IN) :: record_offset |
---|
[538] | 84 | TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: split_freq |
---|
[432] | 85 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format |
---|
[538] | 86 | TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: sync_freq |
---|
[699] | 87 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter |
---|
[802] | 88 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter_name |
---|
[711] | 89 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: timeseries |
---|
| 90 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix |
---|
[326] | 91 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type |
---|
[581] | 92 | |
---|
[326] | 93 | CALL xios(set_filegroup_attr_hdl_) & |
---|
[891] | 94 | ( filegroup_hdl, append, compression_level, cyclic, description, enabled, format, group_ref & |
---|
| 95 | , min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset & |
---|
| 96 | , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix & |
---|
| 97 | , type ) |
---|
[581] | 98 | |
---|
[326] | 99 | END SUBROUTINE xios(set_filegroup_attr_hdl) |
---|
[581] | 100 | |
---|
[326] | 101 | SUBROUTINE xios(set_filegroup_attr_hdl_) & |
---|
[891] | 102 | ( filegroup_hdl, append_, compression_level_, cyclic_, description_, enabled_, format_, group_ref_ & |
---|
| 103 | , min_digits_, mode_, name_, name_suffix_, output_freq_, output_level_, par_access_, record_offset_ & |
---|
| 104 | , split_freq_, split_freq_format_, sync_freq_, time_counter_, time_counter_name_, timeseries_ & |
---|
| 105 | , ts_prefix_, type_ ) |
---|
[581] | 106 | |
---|
[326] | 107 | IMPLICIT NONE |
---|
| 108 | TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl |
---|
[528] | 109 | LOGICAL , OPTIONAL, INTENT(IN) :: append_ |
---|
| 110 | LOGICAL (KIND=C_BOOL) :: append__tmp |
---|
[608] | 111 | INTEGER , OPTIONAL, INTENT(IN) :: compression_level_ |
---|
[891] | 112 | LOGICAL , OPTIONAL, INTENT(IN) :: cyclic_ |
---|
| 113 | LOGICAL (KIND=C_BOOL) :: cyclic__tmp |
---|
[326] | 114 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description_ |
---|
| 115 | LOGICAL , OPTIONAL, INTENT(IN) :: enabled_ |
---|
| 116 | LOGICAL (KIND=C_BOOL) :: enabled__tmp |
---|
[517] | 117 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: format_ |
---|
[326] | 118 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_ |
---|
[415] | 119 | INTEGER , OPTIONAL, INTENT(IN) :: min_digits_ |
---|
[598] | 120 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode_ |
---|
[326] | 121 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_ |
---|
| 122 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_suffix_ |
---|
[538] | 123 | TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: output_freq_ |
---|
[326] | 124 | INTEGER , OPTIONAL, INTENT(IN) :: output_level_ |
---|
[369] | 125 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access_ |
---|
[779] | 126 | INTEGER , OPTIONAL, INTENT(IN) :: record_offset_ |
---|
[538] | 127 | TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: split_freq_ |
---|
[432] | 128 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format_ |
---|
[538] | 129 | TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: sync_freq_ |
---|
[699] | 130 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter_ |
---|
[802] | 131 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter_name_ |
---|
[711] | 132 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: timeseries_ |
---|
| 133 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix_ |
---|
[326] | 134 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_ |
---|
[581] | 135 | |
---|
[528] | 136 | IF (PRESENT(append_)) THEN |
---|
[581] | 137 | append__tmp = append_ |
---|
[528] | 138 | CALL cxios_set_filegroup_append(filegroup_hdl%daddr, append__tmp) |
---|
| 139 | ENDIF |
---|
[581] | 140 | |
---|
[608] | 141 | IF (PRESENT(compression_level_)) THEN |
---|
| 142 | CALL cxios_set_filegroup_compression_level(filegroup_hdl%daddr, compression_level_) |
---|
| 143 | ENDIF |
---|
| 144 | |
---|
[891] | 145 | IF (PRESENT(cyclic_)) THEN |
---|
| 146 | cyclic__tmp = cyclic_ |
---|
| 147 | CALL cxios_set_filegroup_cyclic(filegroup_hdl%daddr, cyclic__tmp) |
---|
| 148 | ENDIF |
---|
| 149 | |
---|
[326] | 150 | IF (PRESENT(description_)) THEN |
---|
| 151 | CALL cxios_set_filegroup_description(filegroup_hdl%daddr, description_, len(description_)) |
---|
| 152 | ENDIF |
---|
[581] | 153 | |
---|
[326] | 154 | IF (PRESENT(enabled_)) THEN |
---|
[581] | 155 | enabled__tmp = enabled_ |
---|
[326] | 156 | CALL cxios_set_filegroup_enabled(filegroup_hdl%daddr, enabled__tmp) |
---|
| 157 | ENDIF |
---|
[581] | 158 | |
---|
[517] | 159 | IF (PRESENT(format_)) THEN |
---|
| 160 | CALL cxios_set_filegroup_format(filegroup_hdl%daddr, format_, len(format_)) |
---|
| 161 | ENDIF |
---|
[581] | 162 | |
---|
[326] | 163 | IF (PRESENT(group_ref_)) THEN |
---|
| 164 | CALL cxios_set_filegroup_group_ref(filegroup_hdl%daddr, group_ref_, len(group_ref_)) |
---|
| 165 | ENDIF |
---|
[581] | 166 | |
---|
[415] | 167 | IF (PRESENT(min_digits_)) THEN |
---|
| 168 | CALL cxios_set_filegroup_min_digits(filegroup_hdl%daddr, min_digits_) |
---|
| 169 | ENDIF |
---|
[581] | 170 | |
---|
[598] | 171 | IF (PRESENT(mode_)) THEN |
---|
| 172 | CALL cxios_set_filegroup_mode(filegroup_hdl%daddr, mode_, len(mode_)) |
---|
| 173 | ENDIF |
---|
| 174 | |
---|
[326] | 175 | IF (PRESENT(name_)) THEN |
---|
| 176 | CALL cxios_set_filegroup_name(filegroup_hdl%daddr, name_, len(name_)) |
---|
| 177 | ENDIF |
---|
[581] | 178 | |
---|
[326] | 179 | IF (PRESENT(name_suffix_)) THEN |
---|
| 180 | CALL cxios_set_filegroup_name_suffix(filegroup_hdl%daddr, name_suffix_, len(name_suffix_)) |
---|
| 181 | ENDIF |
---|
[581] | 182 | |
---|
[326] | 183 | IF (PRESENT(output_freq_)) THEN |
---|
[538] | 184 | CALL cxios_set_filegroup_output_freq(filegroup_hdl%daddr, output_freq_) |
---|
[326] | 185 | ENDIF |
---|
[581] | 186 | |
---|
[326] | 187 | IF (PRESENT(output_level_)) THEN |
---|
| 188 | CALL cxios_set_filegroup_output_level(filegroup_hdl%daddr, output_level_) |
---|
| 189 | ENDIF |
---|
[581] | 190 | |
---|
[369] | 191 | IF (PRESENT(par_access_)) THEN |
---|
| 192 | CALL cxios_set_filegroup_par_access(filegroup_hdl%daddr, par_access_, len(par_access_)) |
---|
| 193 | ENDIF |
---|
[581] | 194 | |
---|
[779] | 195 | IF (PRESENT(record_offset_)) THEN |
---|
| 196 | CALL cxios_set_filegroup_record_offset(filegroup_hdl%daddr, record_offset_) |
---|
| 197 | ENDIF |
---|
| 198 | |
---|
[326] | 199 | IF (PRESENT(split_freq_)) THEN |
---|
[538] | 200 | CALL cxios_set_filegroup_split_freq(filegroup_hdl%daddr, split_freq_) |
---|
[326] | 201 | ENDIF |
---|
[581] | 202 | |
---|
[432] | 203 | IF (PRESENT(split_freq_format_)) THEN |
---|
| 204 | CALL cxios_set_filegroup_split_freq_format(filegroup_hdl%daddr, split_freq_format_, len(split_freq_format_)) |
---|
| 205 | ENDIF |
---|
[581] | 206 | |
---|
[326] | 207 | IF (PRESENT(sync_freq_)) THEN |
---|
[538] | 208 | CALL cxios_set_filegroup_sync_freq(filegroup_hdl%daddr, sync_freq_) |
---|
[326] | 209 | ENDIF |
---|
[581] | 210 | |
---|
[699] | 211 | IF (PRESENT(time_counter_)) THEN |
---|
| 212 | CALL cxios_set_filegroup_time_counter(filegroup_hdl%daddr, time_counter_, len(time_counter_)) |
---|
| 213 | ENDIF |
---|
| 214 | |
---|
[802] | 215 | IF (PRESENT(time_counter_name_)) THEN |
---|
| 216 | CALL cxios_set_filegroup_time_counter_name(filegroup_hdl%daddr, time_counter_name_, len(time_counter_name_)) |
---|
| 217 | ENDIF |
---|
| 218 | |
---|
[711] | 219 | IF (PRESENT(timeseries_)) THEN |
---|
| 220 | CALL cxios_set_filegroup_timeseries(filegroup_hdl%daddr, timeseries_, len(timeseries_)) |
---|
| 221 | ENDIF |
---|
| 222 | |
---|
| 223 | IF (PRESENT(ts_prefix_)) THEN |
---|
| 224 | CALL cxios_set_filegroup_ts_prefix(filegroup_hdl%daddr, ts_prefix_, len(ts_prefix_)) |
---|
| 225 | ENDIF |
---|
| 226 | |
---|
[326] | 227 | IF (PRESENT(type_)) THEN |
---|
| 228 | CALL cxios_set_filegroup_type(filegroup_hdl%daddr, type_, len(type_)) |
---|
| 229 | ENDIF |
---|
[581] | 230 | |
---|
[326] | 231 | END SUBROUTINE xios(set_filegroup_attr_hdl_) |
---|
[581] | 232 | |
---|
[326] | 233 | SUBROUTINE xios(get_filegroup_attr) & |
---|
[891] | 234 | ( filegroup_id, append, compression_level, cyclic, description, enabled, format, group_ref, min_digits & |
---|
[779] | 235 | , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq & |
---|
[802] | 236 | , split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix, type & |
---|
| 237 | ) |
---|
[581] | 238 | |
---|
[326] | 239 | IMPLICIT NONE |
---|
| 240 | TYPE(txios(filegroup)) :: filegroup_hdl |
---|
| 241 | CHARACTER(LEN=*), INTENT(IN) ::filegroup_id |
---|
[528] | 242 | LOGICAL , OPTIONAL, INTENT(OUT) :: append |
---|
| 243 | LOGICAL (KIND=C_BOOL) :: append_tmp |
---|
[608] | 244 | INTEGER , OPTIONAL, INTENT(OUT) :: compression_level |
---|
[891] | 245 | LOGICAL , OPTIONAL, INTENT(OUT) :: cyclic |
---|
| 246 | LOGICAL (KIND=C_BOOL) :: cyclic_tmp |
---|
[326] | 247 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description |
---|
| 248 | LOGICAL , OPTIONAL, INTENT(OUT) :: enabled |
---|
| 249 | LOGICAL (KIND=C_BOOL) :: enabled_tmp |
---|
[517] | 250 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: format |
---|
[326] | 251 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref |
---|
[415] | 252 | INTEGER , OPTIONAL, INTENT(OUT) :: min_digits |
---|
[598] | 253 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode |
---|
[326] | 254 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name |
---|
| 255 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_suffix |
---|
[538] | 256 | TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: output_freq |
---|
[326] | 257 | INTEGER , OPTIONAL, INTENT(OUT) :: output_level |
---|
[369] | 258 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access |
---|
[779] | 259 | INTEGER , OPTIONAL, INTENT(OUT) :: record_offset |
---|
[538] | 260 | TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: split_freq |
---|
[432] | 261 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format |
---|
[538] | 262 | TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: sync_freq |
---|
[699] | 263 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter |
---|
[802] | 264 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter_name |
---|
[711] | 265 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: timeseries |
---|
| 266 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix |
---|
[326] | 267 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type |
---|
[581] | 268 | |
---|
[326] | 269 | CALL xios(get_filegroup_handle)(filegroup_id,filegroup_hdl) |
---|
| 270 | CALL xios(get_filegroup_attr_hdl_) & |
---|
[891] | 271 | ( filegroup_hdl, append, compression_level, cyclic, description, enabled, format, group_ref & |
---|
| 272 | , min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset & |
---|
| 273 | , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix & |
---|
| 274 | , type ) |
---|
[581] | 275 | |
---|
[326] | 276 | END SUBROUTINE xios(get_filegroup_attr) |
---|
[581] | 277 | |
---|
[326] | 278 | SUBROUTINE xios(get_filegroup_attr_hdl) & |
---|
[891] | 279 | ( filegroup_hdl, append, compression_level, cyclic, description, enabled, format, group_ref & |
---|
| 280 | , min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset & |
---|
| 281 | , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix & |
---|
| 282 | , type ) |
---|
[581] | 283 | |
---|
[326] | 284 | IMPLICIT NONE |
---|
| 285 | TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl |
---|
[528] | 286 | LOGICAL , OPTIONAL, INTENT(OUT) :: append |
---|
| 287 | LOGICAL (KIND=C_BOOL) :: append_tmp |
---|
[608] | 288 | INTEGER , OPTIONAL, INTENT(OUT) :: compression_level |
---|
[891] | 289 | LOGICAL , OPTIONAL, INTENT(OUT) :: cyclic |
---|
| 290 | LOGICAL (KIND=C_BOOL) :: cyclic_tmp |
---|
[326] | 291 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description |
---|
| 292 | LOGICAL , OPTIONAL, INTENT(OUT) :: enabled |
---|
| 293 | LOGICAL (KIND=C_BOOL) :: enabled_tmp |
---|
[517] | 294 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: format |
---|
[326] | 295 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref |
---|
[415] | 296 | INTEGER , OPTIONAL, INTENT(OUT) :: min_digits |
---|
[598] | 297 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode |
---|
[326] | 298 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name |
---|
| 299 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_suffix |
---|
[538] | 300 | TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: output_freq |
---|
[326] | 301 | INTEGER , OPTIONAL, INTENT(OUT) :: output_level |
---|
[369] | 302 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access |
---|
[779] | 303 | INTEGER , OPTIONAL, INTENT(OUT) :: record_offset |
---|
[538] | 304 | TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: split_freq |
---|
[432] | 305 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format |
---|
[538] | 306 | TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: sync_freq |
---|
[699] | 307 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter |
---|
[802] | 308 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter_name |
---|
[711] | 309 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: timeseries |
---|
| 310 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix |
---|
[326] | 311 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type |
---|
[581] | 312 | |
---|
[326] | 313 | CALL xios(get_filegroup_attr_hdl_) & |
---|
[891] | 314 | ( filegroup_hdl, append, compression_level, cyclic, description, enabled, format, group_ref & |
---|
| 315 | , min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset & |
---|
| 316 | , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix & |
---|
| 317 | , type ) |
---|
[581] | 318 | |
---|
[326] | 319 | END SUBROUTINE xios(get_filegroup_attr_hdl) |
---|
[581] | 320 | |
---|
[326] | 321 | SUBROUTINE xios(get_filegroup_attr_hdl_) & |
---|
[891] | 322 | ( filegroup_hdl, append_, compression_level_, cyclic_, description_, enabled_, format_, group_ref_ & |
---|
| 323 | , min_digits_, mode_, name_, name_suffix_, output_freq_, output_level_, par_access_, record_offset_ & |
---|
| 324 | , split_freq_, split_freq_format_, sync_freq_, time_counter_, time_counter_name_, timeseries_ & |
---|
| 325 | , ts_prefix_, type_ ) |
---|
[581] | 326 | |
---|
[326] | 327 | IMPLICIT NONE |
---|
| 328 | TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl |
---|
[528] | 329 | LOGICAL , OPTIONAL, INTENT(OUT) :: append_ |
---|
| 330 | LOGICAL (KIND=C_BOOL) :: append__tmp |
---|
[608] | 331 | INTEGER , OPTIONAL, INTENT(OUT) :: compression_level_ |
---|
[891] | 332 | LOGICAL , OPTIONAL, INTENT(OUT) :: cyclic_ |
---|
| 333 | LOGICAL (KIND=C_BOOL) :: cyclic__tmp |
---|
[326] | 334 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description_ |
---|
| 335 | LOGICAL , OPTIONAL, INTENT(OUT) :: enabled_ |
---|
| 336 | LOGICAL (KIND=C_BOOL) :: enabled__tmp |
---|
[517] | 337 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: format_ |
---|
[326] | 338 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_ |
---|
[415] | 339 | INTEGER , OPTIONAL, INTENT(OUT) :: min_digits_ |
---|
[598] | 340 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode_ |
---|
[326] | 341 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_ |
---|
| 342 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_suffix_ |
---|
[538] | 343 | TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: output_freq_ |
---|
[326] | 344 | INTEGER , OPTIONAL, INTENT(OUT) :: output_level_ |
---|
[369] | 345 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access_ |
---|
[779] | 346 | INTEGER , OPTIONAL, INTENT(OUT) :: record_offset_ |
---|
[538] | 347 | TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: split_freq_ |
---|
[432] | 348 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format_ |
---|
[538] | 349 | TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: sync_freq_ |
---|
[699] | 350 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter_ |
---|
[802] | 351 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter_name_ |
---|
[711] | 352 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: timeseries_ |
---|
| 353 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix_ |
---|
[326] | 354 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_ |
---|
[581] | 355 | |
---|
[528] | 356 | IF (PRESENT(append_)) THEN |
---|
| 357 | CALL cxios_get_filegroup_append(filegroup_hdl%daddr, append__tmp) |
---|
[581] | 358 | append_ = append__tmp |
---|
[528] | 359 | ENDIF |
---|
[581] | 360 | |
---|
[608] | 361 | IF (PRESENT(compression_level_)) THEN |
---|
| 362 | CALL cxios_get_filegroup_compression_level(filegroup_hdl%daddr, compression_level_) |
---|
| 363 | ENDIF |
---|
| 364 | |
---|
[891] | 365 | IF (PRESENT(cyclic_)) THEN |
---|
| 366 | CALL cxios_get_filegroup_cyclic(filegroup_hdl%daddr, cyclic__tmp) |
---|
| 367 | cyclic_ = cyclic__tmp |
---|
| 368 | ENDIF |
---|
| 369 | |
---|
[326] | 370 | IF (PRESENT(description_)) THEN |
---|
| 371 | CALL cxios_get_filegroup_description(filegroup_hdl%daddr, description_, len(description_)) |
---|
| 372 | ENDIF |
---|
[581] | 373 | |
---|
[326] | 374 | IF (PRESENT(enabled_)) THEN |
---|
| 375 | CALL cxios_get_filegroup_enabled(filegroup_hdl%daddr, enabled__tmp) |
---|
[581] | 376 | enabled_ = enabled__tmp |
---|
[326] | 377 | ENDIF |
---|
[581] | 378 | |
---|
[517] | 379 | IF (PRESENT(format_)) THEN |
---|
| 380 | CALL cxios_get_filegroup_format(filegroup_hdl%daddr, format_, len(format_)) |
---|
| 381 | ENDIF |
---|
[581] | 382 | |
---|
[326] | 383 | IF (PRESENT(group_ref_)) THEN |
---|
| 384 | CALL cxios_get_filegroup_group_ref(filegroup_hdl%daddr, group_ref_, len(group_ref_)) |
---|
| 385 | ENDIF |
---|
[581] | 386 | |
---|
[415] | 387 | IF (PRESENT(min_digits_)) THEN |
---|
| 388 | CALL cxios_get_filegroup_min_digits(filegroup_hdl%daddr, min_digits_) |
---|
| 389 | ENDIF |
---|
[581] | 390 | |
---|
[598] | 391 | IF (PRESENT(mode_)) THEN |
---|
| 392 | CALL cxios_get_filegroup_mode(filegroup_hdl%daddr, mode_, len(mode_)) |
---|
| 393 | ENDIF |
---|
| 394 | |
---|
[326] | 395 | IF (PRESENT(name_)) THEN |
---|
| 396 | CALL cxios_get_filegroup_name(filegroup_hdl%daddr, name_, len(name_)) |
---|
| 397 | ENDIF |
---|
[581] | 398 | |
---|
[326] | 399 | IF (PRESENT(name_suffix_)) THEN |
---|
| 400 | CALL cxios_get_filegroup_name_suffix(filegroup_hdl%daddr, name_suffix_, len(name_suffix_)) |
---|
| 401 | ENDIF |
---|
[581] | 402 | |
---|
[326] | 403 | IF (PRESENT(output_freq_)) THEN |
---|
[538] | 404 | CALL cxios_get_filegroup_output_freq(filegroup_hdl%daddr, output_freq_) |
---|
[326] | 405 | ENDIF |
---|
[581] | 406 | |
---|
[326] | 407 | IF (PRESENT(output_level_)) THEN |
---|
| 408 | CALL cxios_get_filegroup_output_level(filegroup_hdl%daddr, output_level_) |
---|
| 409 | ENDIF |
---|
[581] | 410 | |
---|
[369] | 411 | IF (PRESENT(par_access_)) THEN |
---|
| 412 | CALL cxios_get_filegroup_par_access(filegroup_hdl%daddr, par_access_, len(par_access_)) |
---|
| 413 | ENDIF |
---|
[581] | 414 | |
---|
[779] | 415 | IF (PRESENT(record_offset_)) THEN |
---|
| 416 | CALL cxios_get_filegroup_record_offset(filegroup_hdl%daddr, record_offset_) |
---|
| 417 | ENDIF |
---|
| 418 | |
---|
[326] | 419 | IF (PRESENT(split_freq_)) THEN |
---|
[538] | 420 | CALL cxios_get_filegroup_split_freq(filegroup_hdl%daddr, split_freq_) |
---|
[326] | 421 | ENDIF |
---|
[581] | 422 | |
---|
[432] | 423 | IF (PRESENT(split_freq_format_)) THEN |
---|
| 424 | CALL cxios_get_filegroup_split_freq_format(filegroup_hdl%daddr, split_freq_format_, len(split_freq_format_)) |
---|
| 425 | ENDIF |
---|
[581] | 426 | |
---|
[326] | 427 | IF (PRESENT(sync_freq_)) THEN |
---|
[538] | 428 | CALL cxios_get_filegroup_sync_freq(filegroup_hdl%daddr, sync_freq_) |
---|
[326] | 429 | ENDIF |
---|
[581] | 430 | |
---|
[699] | 431 | IF (PRESENT(time_counter_)) THEN |
---|
| 432 | CALL cxios_get_filegroup_time_counter(filegroup_hdl%daddr, time_counter_, len(time_counter_)) |
---|
| 433 | ENDIF |
---|
| 434 | |
---|
[802] | 435 | IF (PRESENT(time_counter_name_)) THEN |
---|
| 436 | CALL cxios_get_filegroup_time_counter_name(filegroup_hdl%daddr, time_counter_name_, len(time_counter_name_)) |
---|
| 437 | ENDIF |
---|
| 438 | |
---|
[711] | 439 | IF (PRESENT(timeseries_)) THEN |
---|
| 440 | CALL cxios_get_filegroup_timeseries(filegroup_hdl%daddr, timeseries_, len(timeseries_)) |
---|
| 441 | ENDIF |
---|
| 442 | |
---|
| 443 | IF (PRESENT(ts_prefix_)) THEN |
---|
| 444 | CALL cxios_get_filegroup_ts_prefix(filegroup_hdl%daddr, ts_prefix_, len(ts_prefix_)) |
---|
| 445 | ENDIF |
---|
| 446 | |
---|
[326] | 447 | IF (PRESENT(type_)) THEN |
---|
| 448 | CALL cxios_get_filegroup_type(filegroup_hdl%daddr, type_, len(type_)) |
---|
| 449 | ENDIF |
---|
[581] | 450 | |
---|
[326] | 451 | END SUBROUTINE xios(get_filegroup_attr_hdl_) |
---|
[581] | 452 | |
---|
[432] | 453 | SUBROUTINE xios(is_defined_filegroup_attr) & |
---|
[891] | 454 | ( filegroup_id, append, compression_level, cyclic, description, enabled, format, group_ref, min_digits & |
---|
[779] | 455 | , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq & |
---|
[802] | 456 | , split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix, type & |
---|
| 457 | ) |
---|
[581] | 458 | |
---|
[432] | 459 | IMPLICIT NONE |
---|
| 460 | TYPE(txios(filegroup)) :: filegroup_hdl |
---|
| 461 | CHARACTER(LEN=*), INTENT(IN) ::filegroup_id |
---|
[528] | 462 | LOGICAL, OPTIONAL, INTENT(OUT) :: append |
---|
| 463 | LOGICAL(KIND=C_BOOL) :: append_tmp |
---|
[608] | 464 | LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level |
---|
| 465 | LOGICAL(KIND=C_BOOL) :: compression_level_tmp |
---|
[891] | 466 | LOGICAL, OPTIONAL, INTENT(OUT) :: cyclic |
---|
| 467 | LOGICAL(KIND=C_BOOL) :: cyclic_tmp |
---|
[432] | 468 | LOGICAL, OPTIONAL, INTENT(OUT) :: description |
---|
| 469 | LOGICAL(KIND=C_BOOL) :: description_tmp |
---|
| 470 | LOGICAL, OPTIONAL, INTENT(OUT) :: enabled |
---|
| 471 | LOGICAL(KIND=C_BOOL) :: enabled_tmp |
---|
[517] | 472 | LOGICAL, OPTIONAL, INTENT(OUT) :: format |
---|
| 473 | LOGICAL(KIND=C_BOOL) :: format_tmp |
---|
[432] | 474 | LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref |
---|
| 475 | LOGICAL(KIND=C_BOOL) :: group_ref_tmp |
---|
| 476 | LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits |
---|
| 477 | LOGICAL(KIND=C_BOOL) :: min_digits_tmp |
---|
[598] | 478 | LOGICAL, OPTIONAL, INTENT(OUT) :: mode |
---|
| 479 | LOGICAL(KIND=C_BOOL) :: mode_tmp |
---|
[432] | 480 | LOGICAL, OPTIONAL, INTENT(OUT) :: name |
---|
| 481 | LOGICAL(KIND=C_BOOL) :: name_tmp |
---|
| 482 | LOGICAL, OPTIONAL, INTENT(OUT) :: name_suffix |
---|
| 483 | LOGICAL(KIND=C_BOOL) :: name_suffix_tmp |
---|
| 484 | LOGICAL, OPTIONAL, INTENT(OUT) :: output_freq |
---|
| 485 | LOGICAL(KIND=C_BOOL) :: output_freq_tmp |
---|
| 486 | LOGICAL, OPTIONAL, INTENT(OUT) :: output_level |
---|
| 487 | LOGICAL(KIND=C_BOOL) :: output_level_tmp |
---|
| 488 | LOGICAL, OPTIONAL, INTENT(OUT) :: par_access |
---|
| 489 | LOGICAL(KIND=C_BOOL) :: par_access_tmp |
---|
[779] | 490 | LOGICAL, OPTIONAL, INTENT(OUT) :: record_offset |
---|
| 491 | LOGICAL(KIND=C_BOOL) :: record_offset_tmp |
---|
[432] | 492 | LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq |
---|
| 493 | LOGICAL(KIND=C_BOOL) :: split_freq_tmp |
---|
| 494 | LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format |
---|
| 495 | LOGICAL(KIND=C_BOOL) :: split_freq_format_tmp |
---|
| 496 | LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq |
---|
| 497 | LOGICAL(KIND=C_BOOL) :: sync_freq_tmp |
---|
[699] | 498 | LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter |
---|
| 499 | LOGICAL(KIND=C_BOOL) :: time_counter_tmp |
---|
[802] | 500 | LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter_name |
---|
| 501 | LOGICAL(KIND=C_BOOL) :: time_counter_name_tmp |
---|
[711] | 502 | LOGICAL, OPTIONAL, INTENT(OUT) :: timeseries |
---|
| 503 | LOGICAL(KIND=C_BOOL) :: timeseries_tmp |
---|
| 504 | LOGICAL, OPTIONAL, INTENT(OUT) :: ts_prefix |
---|
| 505 | LOGICAL(KIND=C_BOOL) :: ts_prefix_tmp |
---|
[432] | 506 | LOGICAL, OPTIONAL, INTENT(OUT) :: type |
---|
| 507 | LOGICAL(KIND=C_BOOL) :: type_tmp |
---|
[581] | 508 | |
---|
[432] | 509 | CALL xios(get_filegroup_handle)(filegroup_id,filegroup_hdl) |
---|
| 510 | CALL xios(is_defined_filegroup_attr_hdl_) & |
---|
[891] | 511 | ( filegroup_hdl, append, compression_level, cyclic, description, enabled, format, group_ref & |
---|
| 512 | , min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset & |
---|
| 513 | , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix & |
---|
| 514 | , type ) |
---|
[581] | 515 | |
---|
[432] | 516 | END SUBROUTINE xios(is_defined_filegroup_attr) |
---|
[581] | 517 | |
---|
[432] | 518 | SUBROUTINE xios(is_defined_filegroup_attr_hdl) & |
---|
[891] | 519 | ( filegroup_hdl, append, compression_level, cyclic, description, enabled, format, group_ref & |
---|
| 520 | , min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset & |
---|
| 521 | , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix & |
---|
| 522 | , type ) |
---|
[581] | 523 | |
---|
[432] | 524 | IMPLICIT NONE |
---|
| 525 | TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl |
---|
[528] | 526 | LOGICAL, OPTIONAL, INTENT(OUT) :: append |
---|
| 527 | LOGICAL(KIND=C_BOOL) :: append_tmp |
---|
[608] | 528 | LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level |
---|
| 529 | LOGICAL(KIND=C_BOOL) :: compression_level_tmp |
---|
[891] | 530 | LOGICAL, OPTIONAL, INTENT(OUT) :: cyclic |
---|
| 531 | LOGICAL(KIND=C_BOOL) :: cyclic_tmp |
---|
[432] | 532 | LOGICAL, OPTIONAL, INTENT(OUT) :: description |
---|
| 533 | LOGICAL(KIND=C_BOOL) :: description_tmp |
---|
| 534 | LOGICAL, OPTIONAL, INTENT(OUT) :: enabled |
---|
| 535 | LOGICAL(KIND=C_BOOL) :: enabled_tmp |
---|
[517] | 536 | LOGICAL, OPTIONAL, INTENT(OUT) :: format |
---|
| 537 | LOGICAL(KIND=C_BOOL) :: format_tmp |
---|
[432] | 538 | LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref |
---|
| 539 | LOGICAL(KIND=C_BOOL) :: group_ref_tmp |
---|
| 540 | LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits |
---|
| 541 | LOGICAL(KIND=C_BOOL) :: min_digits_tmp |
---|
[598] | 542 | LOGICAL, OPTIONAL, INTENT(OUT) :: mode |
---|
| 543 | LOGICAL(KIND=C_BOOL) :: mode_tmp |
---|
[432] | 544 | LOGICAL, OPTIONAL, INTENT(OUT) :: name |
---|
| 545 | LOGICAL(KIND=C_BOOL) :: name_tmp |
---|
| 546 | LOGICAL, OPTIONAL, INTENT(OUT) :: name_suffix |
---|
| 547 | LOGICAL(KIND=C_BOOL) :: name_suffix_tmp |
---|
| 548 | LOGICAL, OPTIONAL, INTENT(OUT) :: output_freq |
---|
| 549 | LOGICAL(KIND=C_BOOL) :: output_freq_tmp |
---|
| 550 | LOGICAL, OPTIONAL, INTENT(OUT) :: output_level |
---|
| 551 | LOGICAL(KIND=C_BOOL) :: output_level_tmp |
---|
| 552 | LOGICAL, OPTIONAL, INTENT(OUT) :: par_access |
---|
| 553 | LOGICAL(KIND=C_BOOL) :: par_access_tmp |
---|
[779] | 554 | LOGICAL, OPTIONAL, INTENT(OUT) :: record_offset |
---|
| 555 | LOGICAL(KIND=C_BOOL) :: record_offset_tmp |
---|
[432] | 556 | LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq |
---|
| 557 | LOGICAL(KIND=C_BOOL) :: split_freq_tmp |
---|
| 558 | LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format |
---|
| 559 | LOGICAL(KIND=C_BOOL) :: split_freq_format_tmp |
---|
| 560 | LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq |
---|
| 561 | LOGICAL(KIND=C_BOOL) :: sync_freq_tmp |
---|
[699] | 562 | LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter |
---|
| 563 | LOGICAL(KIND=C_BOOL) :: time_counter_tmp |
---|
[802] | 564 | LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter_name |
---|
| 565 | LOGICAL(KIND=C_BOOL) :: time_counter_name_tmp |
---|
[711] | 566 | LOGICAL, OPTIONAL, INTENT(OUT) :: timeseries |
---|
| 567 | LOGICAL(KIND=C_BOOL) :: timeseries_tmp |
---|
| 568 | LOGICAL, OPTIONAL, INTENT(OUT) :: ts_prefix |
---|
| 569 | LOGICAL(KIND=C_BOOL) :: ts_prefix_tmp |
---|
[432] | 570 | LOGICAL, OPTIONAL, INTENT(OUT) :: type |
---|
| 571 | LOGICAL(KIND=C_BOOL) :: type_tmp |
---|
[581] | 572 | |
---|
[432] | 573 | CALL xios(is_defined_filegroup_attr_hdl_) & |
---|
[891] | 574 | ( filegroup_hdl, append, compression_level, cyclic, description, enabled, format, group_ref & |
---|
| 575 | , min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset & |
---|
| 576 | , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix & |
---|
| 577 | , type ) |
---|
[581] | 578 | |
---|
[432] | 579 | END SUBROUTINE xios(is_defined_filegroup_attr_hdl) |
---|
[581] | 580 | |
---|
[432] | 581 | SUBROUTINE xios(is_defined_filegroup_attr_hdl_) & |
---|
[891] | 582 | ( filegroup_hdl, append_, compression_level_, cyclic_, description_, enabled_, format_, group_ref_ & |
---|
| 583 | , min_digits_, mode_, name_, name_suffix_, output_freq_, output_level_, par_access_, record_offset_ & |
---|
| 584 | , split_freq_, split_freq_format_, sync_freq_, time_counter_, time_counter_name_, timeseries_ & |
---|
| 585 | , ts_prefix_, type_ ) |
---|
[581] | 586 | |
---|
[432] | 587 | IMPLICIT NONE |
---|
| 588 | TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl |
---|
[528] | 589 | LOGICAL, OPTIONAL, INTENT(OUT) :: append_ |
---|
| 590 | LOGICAL(KIND=C_BOOL) :: append__tmp |
---|
[608] | 591 | LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level_ |
---|
| 592 | LOGICAL(KIND=C_BOOL) :: compression_level__tmp |
---|
[891] | 593 | LOGICAL, OPTIONAL, INTENT(OUT) :: cyclic_ |
---|
| 594 | LOGICAL(KIND=C_BOOL) :: cyclic__tmp |
---|
[432] | 595 | LOGICAL, OPTIONAL, INTENT(OUT) :: description_ |
---|
| 596 | LOGICAL(KIND=C_BOOL) :: description__tmp |
---|
| 597 | LOGICAL, OPTIONAL, INTENT(OUT) :: enabled_ |
---|
| 598 | LOGICAL(KIND=C_BOOL) :: enabled__tmp |
---|
[517] | 599 | LOGICAL, OPTIONAL, INTENT(OUT) :: format_ |
---|
| 600 | LOGICAL(KIND=C_BOOL) :: format__tmp |
---|
[432] | 601 | LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_ |
---|
| 602 | LOGICAL(KIND=C_BOOL) :: group_ref__tmp |
---|
| 603 | LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits_ |
---|
| 604 | LOGICAL(KIND=C_BOOL) :: min_digits__tmp |
---|
[598] | 605 | LOGICAL, OPTIONAL, INTENT(OUT) :: mode_ |
---|
| 606 | LOGICAL(KIND=C_BOOL) :: mode__tmp |
---|
[432] | 607 | LOGICAL, OPTIONAL, INTENT(OUT) :: name_ |
---|
| 608 | LOGICAL(KIND=C_BOOL) :: name__tmp |
---|
| 609 | LOGICAL, OPTIONAL, INTENT(OUT) :: name_suffix_ |
---|
| 610 | LOGICAL(KIND=C_BOOL) :: name_suffix__tmp |
---|
| 611 | LOGICAL, OPTIONAL, INTENT(OUT) :: output_freq_ |
---|
| 612 | LOGICAL(KIND=C_BOOL) :: output_freq__tmp |
---|
| 613 | LOGICAL, OPTIONAL, INTENT(OUT) :: output_level_ |
---|
| 614 | LOGICAL(KIND=C_BOOL) :: output_level__tmp |
---|
| 615 | LOGICAL, OPTIONAL, INTENT(OUT) :: par_access_ |
---|
| 616 | LOGICAL(KIND=C_BOOL) :: par_access__tmp |
---|
[779] | 617 | LOGICAL, OPTIONAL, INTENT(OUT) :: record_offset_ |
---|
| 618 | LOGICAL(KIND=C_BOOL) :: record_offset__tmp |
---|
[432] | 619 | LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_ |
---|
| 620 | LOGICAL(KIND=C_BOOL) :: split_freq__tmp |
---|
| 621 | LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format_ |
---|
| 622 | LOGICAL(KIND=C_BOOL) :: split_freq_format__tmp |
---|
| 623 | LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq_ |
---|
| 624 | LOGICAL(KIND=C_BOOL) :: sync_freq__tmp |
---|
[699] | 625 | LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter_ |
---|
| 626 | LOGICAL(KIND=C_BOOL) :: time_counter__tmp |
---|
[802] | 627 | LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter_name_ |
---|
| 628 | LOGICAL(KIND=C_BOOL) :: time_counter_name__tmp |
---|
[711] | 629 | LOGICAL, OPTIONAL, INTENT(OUT) :: timeseries_ |
---|
| 630 | LOGICAL(KIND=C_BOOL) :: timeseries__tmp |
---|
| 631 | LOGICAL, OPTIONAL, INTENT(OUT) :: ts_prefix_ |
---|
| 632 | LOGICAL(KIND=C_BOOL) :: ts_prefix__tmp |
---|
[432] | 633 | LOGICAL, OPTIONAL, INTENT(OUT) :: type_ |
---|
| 634 | LOGICAL(KIND=C_BOOL) :: type__tmp |
---|
[581] | 635 | |
---|
[528] | 636 | IF (PRESENT(append_)) THEN |
---|
[581] | 637 | append__tmp = cxios_is_defined_filegroup_append(filegroup_hdl%daddr) |
---|
| 638 | append_ = append__tmp |
---|
[528] | 639 | ENDIF |
---|
[581] | 640 | |
---|
[608] | 641 | IF (PRESENT(compression_level_)) THEN |
---|
| 642 | compression_level__tmp = cxios_is_defined_filegroup_compression_level(filegroup_hdl%daddr) |
---|
| 643 | compression_level_ = compression_level__tmp |
---|
| 644 | ENDIF |
---|
| 645 | |
---|
[891] | 646 | IF (PRESENT(cyclic_)) THEN |
---|
| 647 | cyclic__tmp = cxios_is_defined_filegroup_cyclic(filegroup_hdl%daddr) |
---|
| 648 | cyclic_ = cyclic__tmp |
---|
| 649 | ENDIF |
---|
| 650 | |
---|
[432] | 651 | IF (PRESENT(description_)) THEN |
---|
[581] | 652 | description__tmp = cxios_is_defined_filegroup_description(filegroup_hdl%daddr) |
---|
| 653 | description_ = description__tmp |
---|
[432] | 654 | ENDIF |
---|
[581] | 655 | |
---|
[432] | 656 | IF (PRESENT(enabled_)) THEN |
---|
[581] | 657 | enabled__tmp = cxios_is_defined_filegroup_enabled(filegroup_hdl%daddr) |
---|
| 658 | enabled_ = enabled__tmp |
---|
[432] | 659 | ENDIF |
---|
[581] | 660 | |
---|
[517] | 661 | IF (PRESENT(format_)) THEN |
---|
[581] | 662 | format__tmp = cxios_is_defined_filegroup_format(filegroup_hdl%daddr) |
---|
| 663 | format_ = format__tmp |
---|
[517] | 664 | ENDIF |
---|
[581] | 665 | |
---|
[432] | 666 | IF (PRESENT(group_ref_)) THEN |
---|
[581] | 667 | group_ref__tmp = cxios_is_defined_filegroup_group_ref(filegroup_hdl%daddr) |
---|
| 668 | group_ref_ = group_ref__tmp |
---|
[432] | 669 | ENDIF |
---|
[581] | 670 | |
---|
[432] | 671 | IF (PRESENT(min_digits_)) THEN |
---|
[581] | 672 | min_digits__tmp = cxios_is_defined_filegroup_min_digits(filegroup_hdl%daddr) |
---|
| 673 | min_digits_ = min_digits__tmp |
---|
[432] | 674 | ENDIF |
---|
[581] | 675 | |
---|
[598] | 676 | IF (PRESENT(mode_)) THEN |
---|
| 677 | mode__tmp = cxios_is_defined_filegroup_mode(filegroup_hdl%daddr) |
---|
| 678 | mode_ = mode__tmp |
---|
| 679 | ENDIF |
---|
| 680 | |
---|
[432] | 681 | IF (PRESENT(name_)) THEN |
---|
[581] | 682 | name__tmp = cxios_is_defined_filegroup_name(filegroup_hdl%daddr) |
---|
| 683 | name_ = name__tmp |
---|
[432] | 684 | ENDIF |
---|
[581] | 685 | |
---|
[432] | 686 | IF (PRESENT(name_suffix_)) THEN |
---|
[581] | 687 | name_suffix__tmp = cxios_is_defined_filegroup_name_suffix(filegroup_hdl%daddr) |
---|
| 688 | name_suffix_ = name_suffix__tmp |
---|
[432] | 689 | ENDIF |
---|
[581] | 690 | |
---|
[432] | 691 | IF (PRESENT(output_freq_)) THEN |
---|
[581] | 692 | output_freq__tmp = cxios_is_defined_filegroup_output_freq(filegroup_hdl%daddr) |
---|
| 693 | output_freq_ = output_freq__tmp |
---|
[432] | 694 | ENDIF |
---|
[581] | 695 | |
---|
[432] | 696 | IF (PRESENT(output_level_)) THEN |
---|
[581] | 697 | output_level__tmp = cxios_is_defined_filegroup_output_level(filegroup_hdl%daddr) |
---|
| 698 | output_level_ = output_level__tmp |
---|
[432] | 699 | ENDIF |
---|
[581] | 700 | |
---|
[432] | 701 | IF (PRESENT(par_access_)) THEN |
---|
[581] | 702 | par_access__tmp = cxios_is_defined_filegroup_par_access(filegroup_hdl%daddr) |
---|
| 703 | par_access_ = par_access__tmp |
---|
[432] | 704 | ENDIF |
---|
[581] | 705 | |
---|
[779] | 706 | IF (PRESENT(record_offset_)) THEN |
---|
| 707 | record_offset__tmp = cxios_is_defined_filegroup_record_offset(filegroup_hdl%daddr) |
---|
| 708 | record_offset_ = record_offset__tmp |
---|
| 709 | ENDIF |
---|
| 710 | |
---|
[432] | 711 | IF (PRESENT(split_freq_)) THEN |
---|
[581] | 712 | split_freq__tmp = cxios_is_defined_filegroup_split_freq(filegroup_hdl%daddr) |
---|
| 713 | split_freq_ = split_freq__tmp |
---|
[432] | 714 | ENDIF |
---|
[581] | 715 | |
---|
[432] | 716 | IF (PRESENT(split_freq_format_)) THEN |
---|
[581] | 717 | split_freq_format__tmp = cxios_is_defined_filegroup_split_freq_format(filegroup_hdl%daddr) |
---|
| 718 | split_freq_format_ = split_freq_format__tmp |
---|
[432] | 719 | ENDIF |
---|
[581] | 720 | |
---|
[432] | 721 | IF (PRESENT(sync_freq_)) THEN |
---|
[581] | 722 | sync_freq__tmp = cxios_is_defined_filegroup_sync_freq(filegroup_hdl%daddr) |
---|
| 723 | sync_freq_ = sync_freq__tmp |
---|
[432] | 724 | ENDIF |
---|
[581] | 725 | |
---|
[699] | 726 | IF (PRESENT(time_counter_)) THEN |
---|
| 727 | time_counter__tmp = cxios_is_defined_filegroup_time_counter(filegroup_hdl%daddr) |
---|
| 728 | time_counter_ = time_counter__tmp |
---|
| 729 | ENDIF |
---|
| 730 | |
---|
[802] | 731 | IF (PRESENT(time_counter_name_)) THEN |
---|
| 732 | time_counter_name__tmp = cxios_is_defined_filegroup_time_counter_name(filegroup_hdl%daddr) |
---|
| 733 | time_counter_name_ = time_counter_name__tmp |
---|
| 734 | ENDIF |
---|
| 735 | |
---|
[711] | 736 | IF (PRESENT(timeseries_)) THEN |
---|
| 737 | timeseries__tmp = cxios_is_defined_filegroup_timeseries(filegroup_hdl%daddr) |
---|
| 738 | timeseries_ = timeseries__tmp |
---|
| 739 | ENDIF |
---|
| 740 | |
---|
| 741 | IF (PRESENT(ts_prefix_)) THEN |
---|
| 742 | ts_prefix__tmp = cxios_is_defined_filegroup_ts_prefix(filegroup_hdl%daddr) |
---|
| 743 | ts_prefix_ = ts_prefix__tmp |
---|
| 744 | ENDIF |
---|
| 745 | |
---|
[432] | 746 | IF (PRESENT(type_)) THEN |
---|
[581] | 747 | type__tmp = cxios_is_defined_filegroup_type(filegroup_hdl%daddr) |
---|
| 748 | type_ = type__tmp |
---|
[432] | 749 | ENDIF |
---|
[581] | 750 | |
---|
[432] | 751 | END SUBROUTINE xios(is_defined_filegroup_attr_hdl_) |
---|
[581] | 752 | |
---|
[326] | 753 | END MODULE ifilegroup_attr |
---|