[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) & |
---|
[1492] | 14 | ( filegroup_id, append, comment, compression_level, convention, convention_str, cyclic, description & |
---|
[2616] | 15 | , enabled, format, gatherer, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level & |
---|
| 16 | , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset & |
---|
| 17 | , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq & |
---|
| 18 | , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries & |
---|
| 19 | , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) |
---|
[581] | 20 | |
---|
[326] | 21 | IMPLICIT NONE |
---|
| 22 | TYPE(txios(filegroup)) :: filegroup_hdl |
---|
| 23 | CHARACTER(LEN=*), INTENT(IN) ::filegroup_id |
---|
[528] | 24 | LOGICAL , OPTIONAL, INTENT(IN) :: append |
---|
| 25 | LOGICAL (KIND=C_BOOL) :: append_tmp |
---|
[1492] | 26 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment |
---|
[608] | 27 | INTEGER , OPTIONAL, INTENT(IN) :: compression_level |
---|
[932] | 28 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: convention |
---|
[1201] | 29 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: convention_str |
---|
[891] | 30 | LOGICAL , OPTIONAL, INTENT(IN) :: cyclic |
---|
| 31 | LOGICAL (KIND=C_BOOL) :: cyclic_tmp |
---|
[326] | 32 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description |
---|
| 33 | LOGICAL , OPTIONAL, INTENT(IN) :: enabled |
---|
| 34 | LOGICAL (KIND=C_BOOL) :: enabled_tmp |
---|
[517] | 35 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: format |
---|
[2616] | 36 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: gatherer |
---|
[326] | 37 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref |
---|
[415] | 38 | INTEGER , OPTIONAL, INTENT(IN) :: min_digits |
---|
[598] | 39 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode |
---|
[326] | 40 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name |
---|
| 41 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_suffix |
---|
[538] | 42 | TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: output_freq |
---|
[326] | 43 | INTEGER , OPTIONAL, INTENT(IN) :: output_level |
---|
[369] | 44 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access |
---|
[2616] | 45 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_gatherer |
---|
| 46 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_reader |
---|
| 47 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_writer |
---|
[1492] | 48 | LOGICAL , OPTIONAL, INTENT(IN) :: read_metadata_par |
---|
| 49 | LOGICAL (KIND=C_BOOL) :: read_metadata_par_tmp |
---|
[2616] | 50 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: reader |
---|
[779] | 51 | INTEGER , OPTIONAL, INTENT(IN) :: record_offset |
---|
[1492] | 52 | TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: split_end_offset |
---|
[538] | 53 | TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: split_freq |
---|
[432] | 54 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format |
---|
[1492] | 55 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_last_date |
---|
| 56 | TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: split_start_offset |
---|
[538] | 57 | TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: sync_freq |
---|
[699] | 58 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter |
---|
[802] | 59 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter_name |
---|
[1158] | 60 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_stamp_format |
---|
| 61 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_stamp_name |
---|
| 62 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_units |
---|
[711] | 63 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: timeseries |
---|
| 64 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix |
---|
[326] | 65 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type |
---|
[2616] | 66 | LOGICAL , OPTIONAL, INTENT(IN) :: using_server2 |
---|
| 67 | LOGICAL (KIND=C_BOOL) :: using_server2_tmp |
---|
[1158] | 68 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_format |
---|
| 69 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_name |
---|
[2616] | 70 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: writer |
---|
[581] | 71 | |
---|
[966] | 72 | CALL xios(get_filegroup_handle) & |
---|
| 73 | (filegroup_id,filegroup_hdl) |
---|
[326] | 74 | CALL xios(set_filegroup_attr_hdl_) & |
---|
[1492] | 75 | ( filegroup_hdl, append, comment, compression_level, convention, convention_str, cyclic, description & |
---|
[2616] | 76 | , enabled, format, gatherer, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level & |
---|
| 77 | , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset & |
---|
| 78 | , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq & |
---|
| 79 | , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries & |
---|
| 80 | , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) |
---|
[581] | 81 | |
---|
[326] | 82 | END SUBROUTINE xios(set_filegroup_attr) |
---|
[581] | 83 | |
---|
[326] | 84 | SUBROUTINE xios(set_filegroup_attr_hdl) & |
---|
[1492] | 85 | ( filegroup_hdl, append, comment, compression_level, convention, convention_str, cyclic, description & |
---|
[2616] | 86 | , enabled, format, gatherer, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level & |
---|
| 87 | , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset & |
---|
| 88 | , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq & |
---|
| 89 | , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries & |
---|
| 90 | , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) |
---|
[581] | 91 | |
---|
[326] | 92 | IMPLICIT NONE |
---|
| 93 | TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl |
---|
[528] | 94 | LOGICAL , OPTIONAL, INTENT(IN) :: append |
---|
| 95 | LOGICAL (KIND=C_BOOL) :: append_tmp |
---|
[1492] | 96 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment |
---|
[608] | 97 | INTEGER , OPTIONAL, INTENT(IN) :: compression_level |
---|
[932] | 98 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: convention |
---|
[1201] | 99 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: convention_str |
---|
[891] | 100 | LOGICAL , OPTIONAL, INTENT(IN) :: cyclic |
---|
| 101 | LOGICAL (KIND=C_BOOL) :: cyclic_tmp |
---|
[326] | 102 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description |
---|
| 103 | LOGICAL , OPTIONAL, INTENT(IN) :: enabled |
---|
| 104 | LOGICAL (KIND=C_BOOL) :: enabled_tmp |
---|
[517] | 105 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: format |
---|
[2616] | 106 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: gatherer |
---|
[326] | 107 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref |
---|
[415] | 108 | INTEGER , OPTIONAL, INTENT(IN) :: min_digits |
---|
[598] | 109 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode |
---|
[326] | 110 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name |
---|
| 111 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_suffix |
---|
[538] | 112 | TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: output_freq |
---|
[326] | 113 | INTEGER , OPTIONAL, INTENT(IN) :: output_level |
---|
[369] | 114 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access |
---|
[2616] | 115 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_gatherer |
---|
| 116 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_reader |
---|
| 117 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_writer |
---|
[1492] | 118 | LOGICAL , OPTIONAL, INTENT(IN) :: read_metadata_par |
---|
| 119 | LOGICAL (KIND=C_BOOL) :: read_metadata_par_tmp |
---|
[2616] | 120 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: reader |
---|
[779] | 121 | INTEGER , OPTIONAL, INTENT(IN) :: record_offset |
---|
[1492] | 122 | TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: split_end_offset |
---|
[538] | 123 | TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: split_freq |
---|
[432] | 124 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format |
---|
[1492] | 125 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_last_date |
---|
| 126 | TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: split_start_offset |
---|
[538] | 127 | TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: sync_freq |
---|
[699] | 128 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter |
---|
[802] | 129 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter_name |
---|
[1158] | 130 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_stamp_format |
---|
| 131 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_stamp_name |
---|
| 132 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_units |
---|
[711] | 133 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: timeseries |
---|
| 134 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix |
---|
[326] | 135 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type |
---|
[2616] | 136 | LOGICAL , OPTIONAL, INTENT(IN) :: using_server2 |
---|
| 137 | LOGICAL (KIND=C_BOOL) :: using_server2_tmp |
---|
[1158] | 138 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_format |
---|
| 139 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_name |
---|
[2616] | 140 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: writer |
---|
[581] | 141 | |
---|
[326] | 142 | CALL xios(set_filegroup_attr_hdl_) & |
---|
[1492] | 143 | ( filegroup_hdl, append, comment, compression_level, convention, convention_str, cyclic, description & |
---|
[2616] | 144 | , enabled, format, gatherer, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level & |
---|
| 145 | , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset & |
---|
| 146 | , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq & |
---|
| 147 | , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries & |
---|
| 148 | , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) |
---|
[581] | 149 | |
---|
[326] | 150 | END SUBROUTINE xios(set_filegroup_attr_hdl) |
---|
[581] | 151 | |
---|
[326] | 152 | SUBROUTINE xios(set_filegroup_attr_hdl_) & |
---|
[1492] | 153 | ( filegroup_hdl, append_, comment_, compression_level_, convention_, convention_str_, cyclic_ & |
---|
[2616] | 154 | , description_, enabled_, format_, gatherer_, group_ref_, min_digits_, mode_, name_, name_suffix_ & |
---|
| 155 | , output_freq_, output_level_, par_access_, pool_gatherer_, pool_reader_, pool_writer_, read_metadata_par_ & |
---|
| 156 | , reader_, record_offset_, split_end_offset_, split_freq_, split_freq_format_, split_last_date_ & |
---|
| 157 | , split_start_offset_, sync_freq_, time_counter_, time_counter_name_, time_stamp_format_, time_stamp_name_ & |
---|
| 158 | , time_units_, timeseries_, ts_prefix_, type_, using_server2_, uuid_format_, uuid_name_, writer_ & |
---|
| 159 | ) |
---|
[581] | 160 | |
---|
[326] | 161 | IMPLICIT NONE |
---|
| 162 | TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl |
---|
[528] | 163 | LOGICAL , OPTIONAL, INTENT(IN) :: append_ |
---|
| 164 | LOGICAL (KIND=C_BOOL) :: append__tmp |
---|
[1492] | 165 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment_ |
---|
[608] | 166 | INTEGER , OPTIONAL, INTENT(IN) :: compression_level_ |
---|
[932] | 167 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: convention_ |
---|
[1201] | 168 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: convention_str_ |
---|
[891] | 169 | LOGICAL , OPTIONAL, INTENT(IN) :: cyclic_ |
---|
| 170 | LOGICAL (KIND=C_BOOL) :: cyclic__tmp |
---|
[326] | 171 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description_ |
---|
| 172 | LOGICAL , OPTIONAL, INTENT(IN) :: enabled_ |
---|
| 173 | LOGICAL (KIND=C_BOOL) :: enabled__tmp |
---|
[517] | 174 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: format_ |
---|
[2616] | 175 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: gatherer_ |
---|
[326] | 176 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_ |
---|
[415] | 177 | INTEGER , OPTIONAL, INTENT(IN) :: min_digits_ |
---|
[598] | 178 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode_ |
---|
[326] | 179 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_ |
---|
| 180 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_suffix_ |
---|
[538] | 181 | TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: output_freq_ |
---|
[326] | 182 | INTEGER , OPTIONAL, INTENT(IN) :: output_level_ |
---|
[369] | 183 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access_ |
---|
[2616] | 184 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_gatherer_ |
---|
| 185 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_reader_ |
---|
| 186 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_writer_ |
---|
[1492] | 187 | LOGICAL , OPTIONAL, INTENT(IN) :: read_metadata_par_ |
---|
| 188 | LOGICAL (KIND=C_BOOL) :: read_metadata_par__tmp |
---|
[2616] | 189 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: reader_ |
---|
[779] | 190 | INTEGER , OPTIONAL, INTENT(IN) :: record_offset_ |
---|
[1492] | 191 | TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: split_end_offset_ |
---|
[538] | 192 | TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: split_freq_ |
---|
[432] | 193 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format_ |
---|
[1492] | 194 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_last_date_ |
---|
| 195 | TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: split_start_offset_ |
---|
[538] | 196 | TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: sync_freq_ |
---|
[699] | 197 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter_ |
---|
[802] | 198 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter_name_ |
---|
[1158] | 199 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_stamp_format_ |
---|
| 200 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_stamp_name_ |
---|
| 201 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_units_ |
---|
[711] | 202 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: timeseries_ |
---|
| 203 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix_ |
---|
[326] | 204 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_ |
---|
[2616] | 205 | LOGICAL , OPTIONAL, INTENT(IN) :: using_server2_ |
---|
| 206 | LOGICAL (KIND=C_BOOL) :: using_server2__tmp |
---|
[1158] | 207 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_format_ |
---|
| 208 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_name_ |
---|
[2616] | 209 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: writer_ |
---|
[581] | 210 | |
---|
[528] | 211 | IF (PRESENT(append_)) THEN |
---|
[581] | 212 | append__tmp = append_ |
---|
[966] | 213 | CALL cxios_set_filegroup_append & |
---|
| 214 | (filegroup_hdl%daddr, append__tmp) |
---|
[528] | 215 | ENDIF |
---|
[581] | 216 | |
---|
[1492] | 217 | IF (PRESENT(comment_)) THEN |
---|
| 218 | CALL cxios_set_filegroup_comment & |
---|
| 219 | (filegroup_hdl%daddr, comment_, len(comment_)) |
---|
| 220 | ENDIF |
---|
| 221 | |
---|
[608] | 222 | IF (PRESENT(compression_level_)) THEN |
---|
[966] | 223 | CALL cxios_set_filegroup_compression_level & |
---|
| 224 | (filegroup_hdl%daddr, compression_level_) |
---|
[608] | 225 | ENDIF |
---|
| 226 | |
---|
[932] | 227 | IF (PRESENT(convention_)) THEN |
---|
[966] | 228 | CALL cxios_set_filegroup_convention & |
---|
| 229 | (filegroup_hdl%daddr, convention_, len(convention_)) |
---|
[932] | 230 | ENDIF |
---|
| 231 | |
---|
[1201] | 232 | IF (PRESENT(convention_str_)) THEN |
---|
| 233 | CALL cxios_set_filegroup_convention_str & |
---|
| 234 | (filegroup_hdl%daddr, convention_str_, len(convention_str_)) |
---|
| 235 | ENDIF |
---|
| 236 | |
---|
[891] | 237 | IF (PRESENT(cyclic_)) THEN |
---|
| 238 | cyclic__tmp = cyclic_ |
---|
[966] | 239 | CALL cxios_set_filegroup_cyclic & |
---|
| 240 | (filegroup_hdl%daddr, cyclic__tmp) |
---|
[891] | 241 | ENDIF |
---|
| 242 | |
---|
[326] | 243 | IF (PRESENT(description_)) THEN |
---|
[966] | 244 | CALL cxios_set_filegroup_description & |
---|
| 245 | (filegroup_hdl%daddr, description_, len(description_)) |
---|
[326] | 246 | ENDIF |
---|
[581] | 247 | |
---|
[326] | 248 | IF (PRESENT(enabled_)) THEN |
---|
[581] | 249 | enabled__tmp = enabled_ |
---|
[966] | 250 | CALL cxios_set_filegroup_enabled & |
---|
| 251 | (filegroup_hdl%daddr, enabled__tmp) |
---|
[326] | 252 | ENDIF |
---|
[581] | 253 | |
---|
[517] | 254 | IF (PRESENT(format_)) THEN |
---|
[966] | 255 | CALL cxios_set_filegroup_format & |
---|
| 256 | (filegroup_hdl%daddr, format_, len(format_)) |
---|
[517] | 257 | ENDIF |
---|
[581] | 258 | |
---|
[2616] | 259 | IF (PRESENT(gatherer_)) THEN |
---|
| 260 | CALL cxios_set_filegroup_gatherer & |
---|
| 261 | (filegroup_hdl%daddr, gatherer_, len(gatherer_)) |
---|
| 262 | ENDIF |
---|
| 263 | |
---|
[326] | 264 | IF (PRESENT(group_ref_)) THEN |
---|
[966] | 265 | CALL cxios_set_filegroup_group_ref & |
---|
| 266 | (filegroup_hdl%daddr, group_ref_, len(group_ref_)) |
---|
[326] | 267 | ENDIF |
---|
[581] | 268 | |
---|
[415] | 269 | IF (PRESENT(min_digits_)) THEN |
---|
[966] | 270 | CALL cxios_set_filegroup_min_digits & |
---|
| 271 | (filegroup_hdl%daddr, min_digits_) |
---|
[415] | 272 | ENDIF |
---|
[581] | 273 | |
---|
[598] | 274 | IF (PRESENT(mode_)) THEN |
---|
[966] | 275 | CALL cxios_set_filegroup_mode & |
---|
| 276 | (filegroup_hdl%daddr, mode_, len(mode_)) |
---|
[598] | 277 | ENDIF |
---|
| 278 | |
---|
[326] | 279 | IF (PRESENT(name_)) THEN |
---|
[966] | 280 | CALL cxios_set_filegroup_name & |
---|
| 281 | (filegroup_hdl%daddr, name_, len(name_)) |
---|
[326] | 282 | ENDIF |
---|
[581] | 283 | |
---|
[326] | 284 | IF (PRESENT(name_suffix_)) THEN |
---|
[966] | 285 | CALL cxios_set_filegroup_name_suffix & |
---|
| 286 | (filegroup_hdl%daddr, name_suffix_, len(name_suffix_)) |
---|
[326] | 287 | ENDIF |
---|
[581] | 288 | |
---|
[326] | 289 | IF (PRESENT(output_freq_)) THEN |
---|
[966] | 290 | CALL cxios_set_filegroup_output_freq & |
---|
| 291 | (filegroup_hdl%daddr, output_freq_) |
---|
[326] | 292 | ENDIF |
---|
[581] | 293 | |
---|
[326] | 294 | IF (PRESENT(output_level_)) THEN |
---|
[966] | 295 | CALL cxios_set_filegroup_output_level & |
---|
| 296 | (filegroup_hdl%daddr, output_level_) |
---|
[326] | 297 | ENDIF |
---|
[581] | 298 | |
---|
[369] | 299 | IF (PRESENT(par_access_)) THEN |
---|
[966] | 300 | CALL cxios_set_filegroup_par_access & |
---|
| 301 | (filegroup_hdl%daddr, par_access_, len(par_access_)) |
---|
[369] | 302 | ENDIF |
---|
[581] | 303 | |
---|
[2616] | 304 | IF (PRESENT(pool_gatherer_)) THEN |
---|
| 305 | CALL cxios_set_filegroup_pool_gatherer & |
---|
| 306 | (filegroup_hdl%daddr, pool_gatherer_, len(pool_gatherer_)) |
---|
| 307 | ENDIF |
---|
| 308 | |
---|
| 309 | IF (PRESENT(pool_reader_)) THEN |
---|
| 310 | CALL cxios_set_filegroup_pool_reader & |
---|
| 311 | (filegroup_hdl%daddr, pool_reader_, len(pool_reader_)) |
---|
| 312 | ENDIF |
---|
| 313 | |
---|
| 314 | IF (PRESENT(pool_writer_)) THEN |
---|
| 315 | CALL cxios_set_filegroup_pool_writer & |
---|
| 316 | (filegroup_hdl%daddr, pool_writer_, len(pool_writer_)) |
---|
| 317 | ENDIF |
---|
| 318 | |
---|
[1492] | 319 | IF (PRESENT(read_metadata_par_)) THEN |
---|
| 320 | read_metadata_par__tmp = read_metadata_par_ |
---|
| 321 | CALL cxios_set_filegroup_read_metadata_par & |
---|
| 322 | (filegroup_hdl%daddr, read_metadata_par__tmp) |
---|
| 323 | ENDIF |
---|
| 324 | |
---|
[2616] | 325 | IF (PRESENT(reader_)) THEN |
---|
| 326 | CALL cxios_set_filegroup_reader & |
---|
| 327 | (filegroup_hdl%daddr, reader_, len(reader_)) |
---|
| 328 | ENDIF |
---|
| 329 | |
---|
[779] | 330 | IF (PRESENT(record_offset_)) THEN |
---|
[966] | 331 | CALL cxios_set_filegroup_record_offset & |
---|
| 332 | (filegroup_hdl%daddr, record_offset_) |
---|
[779] | 333 | ENDIF |
---|
| 334 | |
---|
[1492] | 335 | IF (PRESENT(split_end_offset_)) THEN |
---|
| 336 | CALL cxios_set_filegroup_split_end_offset & |
---|
| 337 | (filegroup_hdl%daddr, split_end_offset_) |
---|
| 338 | ENDIF |
---|
| 339 | |
---|
[326] | 340 | IF (PRESENT(split_freq_)) THEN |
---|
[966] | 341 | CALL cxios_set_filegroup_split_freq & |
---|
| 342 | (filegroup_hdl%daddr, split_freq_) |
---|
[326] | 343 | ENDIF |
---|
[581] | 344 | |
---|
[432] | 345 | IF (PRESENT(split_freq_format_)) THEN |
---|
[966] | 346 | CALL cxios_set_filegroup_split_freq_format & |
---|
| 347 | (filegroup_hdl%daddr, split_freq_format_, len(split_freq_format_)) |
---|
[432] | 348 | ENDIF |
---|
[581] | 349 | |
---|
[1492] | 350 | IF (PRESENT(split_last_date_)) THEN |
---|
| 351 | CALL cxios_set_filegroup_split_last_date & |
---|
| 352 | (filegroup_hdl%daddr, split_last_date_, len(split_last_date_)) |
---|
| 353 | ENDIF |
---|
| 354 | |
---|
| 355 | IF (PRESENT(split_start_offset_)) THEN |
---|
| 356 | CALL cxios_set_filegroup_split_start_offset & |
---|
| 357 | (filegroup_hdl%daddr, split_start_offset_) |
---|
| 358 | ENDIF |
---|
| 359 | |
---|
[326] | 360 | IF (PRESENT(sync_freq_)) THEN |
---|
[966] | 361 | CALL cxios_set_filegroup_sync_freq & |
---|
| 362 | (filegroup_hdl%daddr, sync_freq_) |
---|
[326] | 363 | ENDIF |
---|
[581] | 364 | |
---|
[699] | 365 | IF (PRESENT(time_counter_)) THEN |
---|
[966] | 366 | CALL cxios_set_filegroup_time_counter & |
---|
| 367 | (filegroup_hdl%daddr, time_counter_, len(time_counter_)) |
---|
[699] | 368 | ENDIF |
---|
| 369 | |
---|
[802] | 370 | IF (PRESENT(time_counter_name_)) THEN |
---|
[966] | 371 | CALL cxios_set_filegroup_time_counter_name & |
---|
| 372 | (filegroup_hdl%daddr, time_counter_name_, len(time_counter_name_)) |
---|
[802] | 373 | ENDIF |
---|
| 374 | |
---|
[1158] | 375 | IF (PRESENT(time_stamp_format_)) THEN |
---|
| 376 | CALL cxios_set_filegroup_time_stamp_format & |
---|
| 377 | (filegroup_hdl%daddr, time_stamp_format_, len(time_stamp_format_)) |
---|
| 378 | ENDIF |
---|
| 379 | |
---|
| 380 | IF (PRESENT(time_stamp_name_)) THEN |
---|
| 381 | CALL cxios_set_filegroup_time_stamp_name & |
---|
| 382 | (filegroup_hdl%daddr, time_stamp_name_, len(time_stamp_name_)) |
---|
| 383 | ENDIF |
---|
| 384 | |
---|
| 385 | IF (PRESENT(time_units_)) THEN |
---|
| 386 | CALL cxios_set_filegroup_time_units & |
---|
| 387 | (filegroup_hdl%daddr, time_units_, len(time_units_)) |
---|
| 388 | ENDIF |
---|
| 389 | |
---|
[711] | 390 | IF (PRESENT(timeseries_)) THEN |
---|
[966] | 391 | CALL cxios_set_filegroup_timeseries & |
---|
| 392 | (filegroup_hdl%daddr, timeseries_, len(timeseries_)) |
---|
[711] | 393 | ENDIF |
---|
| 394 | |
---|
| 395 | IF (PRESENT(ts_prefix_)) THEN |
---|
[966] | 396 | CALL cxios_set_filegroup_ts_prefix & |
---|
| 397 | (filegroup_hdl%daddr, ts_prefix_, len(ts_prefix_)) |
---|
[711] | 398 | ENDIF |
---|
| 399 | |
---|
[326] | 400 | IF (PRESENT(type_)) THEN |
---|
[966] | 401 | CALL cxios_set_filegroup_type & |
---|
| 402 | (filegroup_hdl%daddr, type_, len(type_)) |
---|
[326] | 403 | ENDIF |
---|
[581] | 404 | |
---|
[2616] | 405 | IF (PRESENT(using_server2_)) THEN |
---|
| 406 | using_server2__tmp = using_server2_ |
---|
| 407 | CALL cxios_set_filegroup_using_server2 & |
---|
| 408 | (filegroup_hdl%daddr, using_server2__tmp) |
---|
| 409 | ENDIF |
---|
| 410 | |
---|
[1158] | 411 | IF (PRESENT(uuid_format_)) THEN |
---|
| 412 | CALL cxios_set_filegroup_uuid_format & |
---|
| 413 | (filegroup_hdl%daddr, uuid_format_, len(uuid_format_)) |
---|
| 414 | ENDIF |
---|
| 415 | |
---|
| 416 | IF (PRESENT(uuid_name_)) THEN |
---|
| 417 | CALL cxios_set_filegroup_uuid_name & |
---|
| 418 | (filegroup_hdl%daddr, uuid_name_, len(uuid_name_)) |
---|
| 419 | ENDIF |
---|
| 420 | |
---|
[2616] | 421 | IF (PRESENT(writer_)) THEN |
---|
| 422 | CALL cxios_set_filegroup_writer & |
---|
| 423 | (filegroup_hdl%daddr, writer_, len(writer_)) |
---|
| 424 | ENDIF |
---|
| 425 | |
---|
[326] | 426 | END SUBROUTINE xios(set_filegroup_attr_hdl_) |
---|
[581] | 427 | |
---|
[326] | 428 | SUBROUTINE xios(get_filegroup_attr) & |
---|
[1492] | 429 | ( filegroup_id, append, comment, compression_level, convention, convention_str, cyclic, description & |
---|
[2616] | 430 | , enabled, format, gatherer, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level & |
---|
| 431 | , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset & |
---|
| 432 | , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq & |
---|
| 433 | , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries & |
---|
| 434 | , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) |
---|
[581] | 435 | |
---|
[326] | 436 | IMPLICIT NONE |
---|
| 437 | TYPE(txios(filegroup)) :: filegroup_hdl |
---|
| 438 | CHARACTER(LEN=*), INTENT(IN) ::filegroup_id |
---|
[528] | 439 | LOGICAL , OPTIONAL, INTENT(OUT) :: append |
---|
| 440 | LOGICAL (KIND=C_BOOL) :: append_tmp |
---|
[1492] | 441 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment |
---|
[608] | 442 | INTEGER , OPTIONAL, INTENT(OUT) :: compression_level |
---|
[932] | 443 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: convention |
---|
[1201] | 444 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: convention_str |
---|
[891] | 445 | LOGICAL , OPTIONAL, INTENT(OUT) :: cyclic |
---|
| 446 | LOGICAL (KIND=C_BOOL) :: cyclic_tmp |
---|
[326] | 447 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description |
---|
| 448 | LOGICAL , OPTIONAL, INTENT(OUT) :: enabled |
---|
| 449 | LOGICAL (KIND=C_BOOL) :: enabled_tmp |
---|
[517] | 450 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: format |
---|
[2616] | 451 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: gatherer |
---|
[326] | 452 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref |
---|
[415] | 453 | INTEGER , OPTIONAL, INTENT(OUT) :: min_digits |
---|
[598] | 454 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode |
---|
[326] | 455 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name |
---|
| 456 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_suffix |
---|
[538] | 457 | TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: output_freq |
---|
[326] | 458 | INTEGER , OPTIONAL, INTENT(OUT) :: output_level |
---|
[369] | 459 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access |
---|
[2616] | 460 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_gatherer |
---|
| 461 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_reader |
---|
| 462 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_writer |
---|
[1492] | 463 | LOGICAL , OPTIONAL, INTENT(OUT) :: read_metadata_par |
---|
| 464 | LOGICAL (KIND=C_BOOL) :: read_metadata_par_tmp |
---|
[2616] | 465 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: reader |
---|
[779] | 466 | INTEGER , OPTIONAL, INTENT(OUT) :: record_offset |
---|
[1492] | 467 | TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: split_end_offset |
---|
[538] | 468 | TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: split_freq |
---|
[432] | 469 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format |
---|
[1492] | 470 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_last_date |
---|
| 471 | TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: split_start_offset |
---|
[538] | 472 | TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: sync_freq |
---|
[699] | 473 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter |
---|
[802] | 474 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter_name |
---|
[1158] | 475 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_stamp_format |
---|
| 476 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_stamp_name |
---|
| 477 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_units |
---|
[711] | 478 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: timeseries |
---|
| 479 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix |
---|
[326] | 480 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type |
---|
[2616] | 481 | LOGICAL , OPTIONAL, INTENT(OUT) :: using_server2 |
---|
| 482 | LOGICAL (KIND=C_BOOL) :: using_server2_tmp |
---|
[1158] | 483 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_format |
---|
| 484 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_name |
---|
[2616] | 485 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: writer |
---|
[581] | 486 | |
---|
[966] | 487 | CALL xios(get_filegroup_handle) & |
---|
| 488 | (filegroup_id,filegroup_hdl) |
---|
[326] | 489 | CALL xios(get_filegroup_attr_hdl_) & |
---|
[1492] | 490 | ( filegroup_hdl, append, comment, compression_level, convention, convention_str, cyclic, description & |
---|
[2616] | 491 | , enabled, format, gatherer, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level & |
---|
| 492 | , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset & |
---|
| 493 | , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq & |
---|
| 494 | , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries & |
---|
| 495 | , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) |
---|
[581] | 496 | |
---|
[326] | 497 | END SUBROUTINE xios(get_filegroup_attr) |
---|
[581] | 498 | |
---|
[326] | 499 | SUBROUTINE xios(get_filegroup_attr_hdl) & |
---|
[1492] | 500 | ( filegroup_hdl, append, comment, compression_level, convention, convention_str, cyclic, description & |
---|
[2616] | 501 | , enabled, format, gatherer, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level & |
---|
| 502 | , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset & |
---|
| 503 | , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq & |
---|
| 504 | , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries & |
---|
| 505 | , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) |
---|
[581] | 506 | |
---|
[326] | 507 | IMPLICIT NONE |
---|
| 508 | TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl |
---|
[528] | 509 | LOGICAL , OPTIONAL, INTENT(OUT) :: append |
---|
| 510 | LOGICAL (KIND=C_BOOL) :: append_tmp |
---|
[1492] | 511 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment |
---|
[608] | 512 | INTEGER , OPTIONAL, INTENT(OUT) :: compression_level |
---|
[932] | 513 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: convention |
---|
[1201] | 514 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: convention_str |
---|
[891] | 515 | LOGICAL , OPTIONAL, INTENT(OUT) :: cyclic |
---|
| 516 | LOGICAL (KIND=C_BOOL) :: cyclic_tmp |
---|
[326] | 517 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description |
---|
| 518 | LOGICAL , OPTIONAL, INTENT(OUT) :: enabled |
---|
| 519 | LOGICAL (KIND=C_BOOL) :: enabled_tmp |
---|
[517] | 520 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: format |
---|
[2616] | 521 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: gatherer |
---|
[326] | 522 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref |
---|
[415] | 523 | INTEGER , OPTIONAL, INTENT(OUT) :: min_digits |
---|
[598] | 524 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode |
---|
[326] | 525 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name |
---|
| 526 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_suffix |
---|
[538] | 527 | TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: output_freq |
---|
[326] | 528 | INTEGER , OPTIONAL, INTENT(OUT) :: output_level |
---|
[369] | 529 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access |
---|
[2616] | 530 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_gatherer |
---|
| 531 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_reader |
---|
| 532 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_writer |
---|
[1492] | 533 | LOGICAL , OPTIONAL, INTENT(OUT) :: read_metadata_par |
---|
| 534 | LOGICAL (KIND=C_BOOL) :: read_metadata_par_tmp |
---|
[2616] | 535 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: reader |
---|
[779] | 536 | INTEGER , OPTIONAL, INTENT(OUT) :: record_offset |
---|
[1492] | 537 | TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: split_end_offset |
---|
[538] | 538 | TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: split_freq |
---|
[432] | 539 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format |
---|
[1492] | 540 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_last_date |
---|
| 541 | TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: split_start_offset |
---|
[538] | 542 | TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: sync_freq |
---|
[699] | 543 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter |
---|
[802] | 544 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter_name |
---|
[1158] | 545 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_stamp_format |
---|
| 546 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_stamp_name |
---|
| 547 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_units |
---|
[711] | 548 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: timeseries |
---|
| 549 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix |
---|
[326] | 550 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type |
---|
[2616] | 551 | LOGICAL , OPTIONAL, INTENT(OUT) :: using_server2 |
---|
| 552 | LOGICAL (KIND=C_BOOL) :: using_server2_tmp |
---|
[1158] | 553 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_format |
---|
| 554 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_name |
---|
[2616] | 555 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: writer |
---|
[581] | 556 | |
---|
[326] | 557 | CALL xios(get_filegroup_attr_hdl_) & |
---|
[1492] | 558 | ( filegroup_hdl, append, comment, compression_level, convention, convention_str, cyclic, description & |
---|
[2616] | 559 | , enabled, format, gatherer, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level & |
---|
| 560 | , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset & |
---|
| 561 | , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq & |
---|
| 562 | , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries & |
---|
| 563 | , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) |
---|
[581] | 564 | |
---|
[326] | 565 | END SUBROUTINE xios(get_filegroup_attr_hdl) |
---|
[581] | 566 | |
---|
[326] | 567 | SUBROUTINE xios(get_filegroup_attr_hdl_) & |
---|
[1492] | 568 | ( filegroup_hdl, append_, comment_, compression_level_, convention_, convention_str_, cyclic_ & |
---|
[2616] | 569 | , description_, enabled_, format_, gatherer_, group_ref_, min_digits_, mode_, name_, name_suffix_ & |
---|
| 570 | , output_freq_, output_level_, par_access_, pool_gatherer_, pool_reader_, pool_writer_, read_metadata_par_ & |
---|
| 571 | , reader_, record_offset_, split_end_offset_, split_freq_, split_freq_format_, split_last_date_ & |
---|
| 572 | , split_start_offset_, sync_freq_, time_counter_, time_counter_name_, time_stamp_format_, time_stamp_name_ & |
---|
| 573 | , time_units_, timeseries_, ts_prefix_, type_, using_server2_, uuid_format_, uuid_name_, writer_ & |
---|
| 574 | ) |
---|
[581] | 575 | |
---|
[326] | 576 | IMPLICIT NONE |
---|
| 577 | TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl |
---|
[528] | 578 | LOGICAL , OPTIONAL, INTENT(OUT) :: append_ |
---|
| 579 | LOGICAL (KIND=C_BOOL) :: append__tmp |
---|
[1492] | 580 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment_ |
---|
[608] | 581 | INTEGER , OPTIONAL, INTENT(OUT) :: compression_level_ |
---|
[932] | 582 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: convention_ |
---|
[1201] | 583 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: convention_str_ |
---|
[891] | 584 | LOGICAL , OPTIONAL, INTENT(OUT) :: cyclic_ |
---|
| 585 | LOGICAL (KIND=C_BOOL) :: cyclic__tmp |
---|
[326] | 586 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description_ |
---|
| 587 | LOGICAL , OPTIONAL, INTENT(OUT) :: enabled_ |
---|
| 588 | LOGICAL (KIND=C_BOOL) :: enabled__tmp |
---|
[517] | 589 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: format_ |
---|
[2616] | 590 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: gatherer_ |
---|
[326] | 591 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_ |
---|
[415] | 592 | INTEGER , OPTIONAL, INTENT(OUT) :: min_digits_ |
---|
[598] | 593 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode_ |
---|
[326] | 594 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_ |
---|
| 595 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_suffix_ |
---|
[538] | 596 | TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: output_freq_ |
---|
[326] | 597 | INTEGER , OPTIONAL, INTENT(OUT) :: output_level_ |
---|
[369] | 598 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access_ |
---|
[2616] | 599 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_gatherer_ |
---|
| 600 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_reader_ |
---|
| 601 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_writer_ |
---|
[1492] | 602 | LOGICAL , OPTIONAL, INTENT(OUT) :: read_metadata_par_ |
---|
| 603 | LOGICAL (KIND=C_BOOL) :: read_metadata_par__tmp |
---|
[2616] | 604 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: reader_ |
---|
[779] | 605 | INTEGER , OPTIONAL, INTENT(OUT) :: record_offset_ |
---|
[1492] | 606 | TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: split_end_offset_ |
---|
[538] | 607 | TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: split_freq_ |
---|
[432] | 608 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format_ |
---|
[1492] | 609 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_last_date_ |
---|
| 610 | TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: split_start_offset_ |
---|
[538] | 611 | TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: sync_freq_ |
---|
[699] | 612 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter_ |
---|
[802] | 613 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter_name_ |
---|
[1158] | 614 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_stamp_format_ |
---|
| 615 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_stamp_name_ |
---|
| 616 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_units_ |
---|
[711] | 617 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: timeseries_ |
---|
| 618 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix_ |
---|
[326] | 619 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_ |
---|
[2616] | 620 | LOGICAL , OPTIONAL, INTENT(OUT) :: using_server2_ |
---|
| 621 | LOGICAL (KIND=C_BOOL) :: using_server2__tmp |
---|
[1158] | 622 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_format_ |
---|
| 623 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_name_ |
---|
[2616] | 624 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: writer_ |
---|
[581] | 625 | |
---|
[528] | 626 | IF (PRESENT(append_)) THEN |
---|
[966] | 627 | CALL cxios_get_filegroup_append & |
---|
| 628 | (filegroup_hdl%daddr, append__tmp) |
---|
[581] | 629 | append_ = append__tmp |
---|
[528] | 630 | ENDIF |
---|
[581] | 631 | |
---|
[1492] | 632 | IF (PRESENT(comment_)) THEN |
---|
| 633 | CALL cxios_get_filegroup_comment & |
---|
| 634 | (filegroup_hdl%daddr, comment_, len(comment_)) |
---|
| 635 | ENDIF |
---|
| 636 | |
---|
[608] | 637 | IF (PRESENT(compression_level_)) THEN |
---|
[966] | 638 | CALL cxios_get_filegroup_compression_level & |
---|
| 639 | (filegroup_hdl%daddr, compression_level_) |
---|
[608] | 640 | ENDIF |
---|
| 641 | |
---|
[932] | 642 | IF (PRESENT(convention_)) THEN |
---|
[966] | 643 | CALL cxios_get_filegroup_convention & |
---|
| 644 | (filegroup_hdl%daddr, convention_, len(convention_)) |
---|
[932] | 645 | ENDIF |
---|
| 646 | |
---|
[1201] | 647 | IF (PRESENT(convention_str_)) THEN |
---|
| 648 | CALL cxios_get_filegroup_convention_str & |
---|
| 649 | (filegroup_hdl%daddr, convention_str_, len(convention_str_)) |
---|
| 650 | ENDIF |
---|
| 651 | |
---|
[891] | 652 | IF (PRESENT(cyclic_)) THEN |
---|
[966] | 653 | CALL cxios_get_filegroup_cyclic & |
---|
| 654 | (filegroup_hdl%daddr, cyclic__tmp) |
---|
[891] | 655 | cyclic_ = cyclic__tmp |
---|
| 656 | ENDIF |
---|
| 657 | |
---|
[326] | 658 | IF (PRESENT(description_)) THEN |
---|
[966] | 659 | CALL cxios_get_filegroup_description & |
---|
| 660 | (filegroup_hdl%daddr, description_, len(description_)) |
---|
[326] | 661 | ENDIF |
---|
[581] | 662 | |
---|
[326] | 663 | IF (PRESENT(enabled_)) THEN |
---|
[966] | 664 | CALL cxios_get_filegroup_enabled & |
---|
| 665 | (filegroup_hdl%daddr, enabled__tmp) |
---|
[581] | 666 | enabled_ = enabled__tmp |
---|
[326] | 667 | ENDIF |
---|
[581] | 668 | |
---|
[517] | 669 | IF (PRESENT(format_)) THEN |
---|
[966] | 670 | CALL cxios_get_filegroup_format & |
---|
| 671 | (filegroup_hdl%daddr, format_, len(format_)) |
---|
[517] | 672 | ENDIF |
---|
[581] | 673 | |
---|
[2616] | 674 | IF (PRESENT(gatherer_)) THEN |
---|
| 675 | CALL cxios_get_filegroup_gatherer & |
---|
| 676 | (filegroup_hdl%daddr, gatherer_, len(gatherer_)) |
---|
| 677 | ENDIF |
---|
| 678 | |
---|
[326] | 679 | IF (PRESENT(group_ref_)) THEN |
---|
[966] | 680 | CALL cxios_get_filegroup_group_ref & |
---|
| 681 | (filegroup_hdl%daddr, group_ref_, len(group_ref_)) |
---|
[326] | 682 | ENDIF |
---|
[581] | 683 | |
---|
[415] | 684 | IF (PRESENT(min_digits_)) THEN |
---|
[966] | 685 | CALL cxios_get_filegroup_min_digits & |
---|
| 686 | (filegroup_hdl%daddr, min_digits_) |
---|
[415] | 687 | ENDIF |
---|
[581] | 688 | |
---|
[598] | 689 | IF (PRESENT(mode_)) THEN |
---|
[966] | 690 | CALL cxios_get_filegroup_mode & |
---|
| 691 | (filegroup_hdl%daddr, mode_, len(mode_)) |
---|
[598] | 692 | ENDIF |
---|
| 693 | |
---|
[326] | 694 | IF (PRESENT(name_)) THEN |
---|
[966] | 695 | CALL cxios_get_filegroup_name & |
---|
| 696 | (filegroup_hdl%daddr, name_, len(name_)) |
---|
[326] | 697 | ENDIF |
---|
[581] | 698 | |
---|
[326] | 699 | IF (PRESENT(name_suffix_)) THEN |
---|
[966] | 700 | CALL cxios_get_filegroup_name_suffix & |
---|
| 701 | (filegroup_hdl%daddr, name_suffix_, len(name_suffix_)) |
---|
[326] | 702 | ENDIF |
---|
[581] | 703 | |
---|
[326] | 704 | IF (PRESENT(output_freq_)) THEN |
---|
[966] | 705 | CALL cxios_get_filegroup_output_freq & |
---|
| 706 | (filegroup_hdl%daddr, output_freq_) |
---|
[326] | 707 | ENDIF |
---|
[581] | 708 | |
---|
[326] | 709 | IF (PRESENT(output_level_)) THEN |
---|
[966] | 710 | CALL cxios_get_filegroup_output_level & |
---|
| 711 | (filegroup_hdl%daddr, output_level_) |
---|
[326] | 712 | ENDIF |
---|
[581] | 713 | |
---|
[369] | 714 | IF (PRESENT(par_access_)) THEN |
---|
[966] | 715 | CALL cxios_get_filegroup_par_access & |
---|
| 716 | (filegroup_hdl%daddr, par_access_, len(par_access_)) |
---|
[369] | 717 | ENDIF |
---|
[581] | 718 | |
---|
[2616] | 719 | IF (PRESENT(pool_gatherer_)) THEN |
---|
| 720 | CALL cxios_get_filegroup_pool_gatherer & |
---|
| 721 | (filegroup_hdl%daddr, pool_gatherer_, len(pool_gatherer_)) |
---|
| 722 | ENDIF |
---|
| 723 | |
---|
| 724 | IF (PRESENT(pool_reader_)) THEN |
---|
| 725 | CALL cxios_get_filegroup_pool_reader & |
---|
| 726 | (filegroup_hdl%daddr, pool_reader_, len(pool_reader_)) |
---|
| 727 | ENDIF |
---|
| 728 | |
---|
| 729 | IF (PRESENT(pool_writer_)) THEN |
---|
| 730 | CALL cxios_get_filegroup_pool_writer & |
---|
| 731 | (filegroup_hdl%daddr, pool_writer_, len(pool_writer_)) |
---|
| 732 | ENDIF |
---|
| 733 | |
---|
[1492] | 734 | IF (PRESENT(read_metadata_par_)) THEN |
---|
| 735 | CALL cxios_get_filegroup_read_metadata_par & |
---|
| 736 | (filegroup_hdl%daddr, read_metadata_par__tmp) |
---|
| 737 | read_metadata_par_ = read_metadata_par__tmp |
---|
| 738 | ENDIF |
---|
| 739 | |
---|
[2616] | 740 | IF (PRESENT(reader_)) THEN |
---|
| 741 | CALL cxios_get_filegroup_reader & |
---|
| 742 | (filegroup_hdl%daddr, reader_, len(reader_)) |
---|
| 743 | ENDIF |
---|
| 744 | |
---|
[779] | 745 | IF (PRESENT(record_offset_)) THEN |
---|
[966] | 746 | CALL cxios_get_filegroup_record_offset & |
---|
| 747 | (filegroup_hdl%daddr, record_offset_) |
---|
[779] | 748 | ENDIF |
---|
| 749 | |
---|
[1492] | 750 | IF (PRESENT(split_end_offset_)) THEN |
---|
| 751 | CALL cxios_get_filegroup_split_end_offset & |
---|
| 752 | (filegroup_hdl%daddr, split_end_offset_) |
---|
| 753 | ENDIF |
---|
| 754 | |
---|
[326] | 755 | IF (PRESENT(split_freq_)) THEN |
---|
[966] | 756 | CALL cxios_get_filegroup_split_freq & |
---|
| 757 | (filegroup_hdl%daddr, split_freq_) |
---|
[326] | 758 | ENDIF |
---|
[581] | 759 | |
---|
[432] | 760 | IF (PRESENT(split_freq_format_)) THEN |
---|
[966] | 761 | CALL cxios_get_filegroup_split_freq_format & |
---|
| 762 | (filegroup_hdl%daddr, split_freq_format_, len(split_freq_format_)) |
---|
[432] | 763 | ENDIF |
---|
[581] | 764 | |
---|
[1492] | 765 | IF (PRESENT(split_last_date_)) THEN |
---|
| 766 | CALL cxios_get_filegroup_split_last_date & |
---|
| 767 | (filegroup_hdl%daddr, split_last_date_, len(split_last_date_)) |
---|
| 768 | ENDIF |
---|
| 769 | |
---|
| 770 | IF (PRESENT(split_start_offset_)) THEN |
---|
| 771 | CALL cxios_get_filegroup_split_start_offset & |
---|
| 772 | (filegroup_hdl%daddr, split_start_offset_) |
---|
| 773 | ENDIF |
---|
| 774 | |
---|
[326] | 775 | IF (PRESENT(sync_freq_)) THEN |
---|
[966] | 776 | CALL cxios_get_filegroup_sync_freq & |
---|
| 777 | (filegroup_hdl%daddr, sync_freq_) |
---|
[326] | 778 | ENDIF |
---|
[581] | 779 | |
---|
[699] | 780 | IF (PRESENT(time_counter_)) THEN |
---|
[966] | 781 | CALL cxios_get_filegroup_time_counter & |
---|
| 782 | (filegroup_hdl%daddr, time_counter_, len(time_counter_)) |
---|
[699] | 783 | ENDIF |
---|
| 784 | |
---|
[802] | 785 | IF (PRESENT(time_counter_name_)) THEN |
---|
[966] | 786 | CALL cxios_get_filegroup_time_counter_name & |
---|
| 787 | (filegroup_hdl%daddr, time_counter_name_, len(time_counter_name_)) |
---|
[802] | 788 | ENDIF |
---|
| 789 | |
---|
[1158] | 790 | IF (PRESENT(time_stamp_format_)) THEN |
---|
| 791 | CALL cxios_get_filegroup_time_stamp_format & |
---|
| 792 | (filegroup_hdl%daddr, time_stamp_format_, len(time_stamp_format_)) |
---|
| 793 | ENDIF |
---|
| 794 | |
---|
| 795 | IF (PRESENT(time_stamp_name_)) THEN |
---|
| 796 | CALL cxios_get_filegroup_time_stamp_name & |
---|
| 797 | (filegroup_hdl%daddr, time_stamp_name_, len(time_stamp_name_)) |
---|
| 798 | ENDIF |
---|
| 799 | |
---|
| 800 | IF (PRESENT(time_units_)) THEN |
---|
| 801 | CALL cxios_get_filegroup_time_units & |
---|
| 802 | (filegroup_hdl%daddr, time_units_, len(time_units_)) |
---|
| 803 | ENDIF |
---|
| 804 | |
---|
[711] | 805 | IF (PRESENT(timeseries_)) THEN |
---|
[966] | 806 | CALL cxios_get_filegroup_timeseries & |
---|
| 807 | (filegroup_hdl%daddr, timeseries_, len(timeseries_)) |
---|
[711] | 808 | ENDIF |
---|
| 809 | |
---|
| 810 | IF (PRESENT(ts_prefix_)) THEN |
---|
[966] | 811 | CALL cxios_get_filegroup_ts_prefix & |
---|
| 812 | (filegroup_hdl%daddr, ts_prefix_, len(ts_prefix_)) |
---|
[711] | 813 | ENDIF |
---|
| 814 | |
---|
[326] | 815 | IF (PRESENT(type_)) THEN |
---|
[966] | 816 | CALL cxios_get_filegroup_type & |
---|
| 817 | (filegroup_hdl%daddr, type_, len(type_)) |
---|
[326] | 818 | ENDIF |
---|
[581] | 819 | |
---|
[2616] | 820 | IF (PRESENT(using_server2_)) THEN |
---|
| 821 | CALL cxios_get_filegroup_using_server2 & |
---|
| 822 | (filegroup_hdl%daddr, using_server2__tmp) |
---|
| 823 | using_server2_ = using_server2__tmp |
---|
| 824 | ENDIF |
---|
| 825 | |
---|
[1158] | 826 | IF (PRESENT(uuid_format_)) THEN |
---|
| 827 | CALL cxios_get_filegroup_uuid_format & |
---|
| 828 | (filegroup_hdl%daddr, uuid_format_, len(uuid_format_)) |
---|
| 829 | ENDIF |
---|
| 830 | |
---|
| 831 | IF (PRESENT(uuid_name_)) THEN |
---|
| 832 | CALL cxios_get_filegroup_uuid_name & |
---|
| 833 | (filegroup_hdl%daddr, uuid_name_, len(uuid_name_)) |
---|
| 834 | ENDIF |
---|
| 835 | |
---|
[2616] | 836 | IF (PRESENT(writer_)) THEN |
---|
| 837 | CALL cxios_get_filegroup_writer & |
---|
| 838 | (filegroup_hdl%daddr, writer_, len(writer_)) |
---|
| 839 | ENDIF |
---|
| 840 | |
---|
[326] | 841 | END SUBROUTINE xios(get_filegroup_attr_hdl_) |
---|
[581] | 842 | |
---|
[432] | 843 | SUBROUTINE xios(is_defined_filegroup_attr) & |
---|
[1492] | 844 | ( filegroup_id, append, comment, compression_level, convention, convention_str, cyclic, description & |
---|
[2616] | 845 | , enabled, format, gatherer, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level & |
---|
| 846 | , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset & |
---|
| 847 | , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq & |
---|
| 848 | , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries & |
---|
| 849 | , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) |
---|
[581] | 850 | |
---|
[432] | 851 | IMPLICIT NONE |
---|
| 852 | TYPE(txios(filegroup)) :: filegroup_hdl |
---|
| 853 | CHARACTER(LEN=*), INTENT(IN) ::filegroup_id |
---|
[528] | 854 | LOGICAL, OPTIONAL, INTENT(OUT) :: append |
---|
| 855 | LOGICAL(KIND=C_BOOL) :: append_tmp |
---|
[1492] | 856 | LOGICAL, OPTIONAL, INTENT(OUT) :: comment |
---|
| 857 | LOGICAL(KIND=C_BOOL) :: comment_tmp |
---|
[608] | 858 | LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level |
---|
| 859 | LOGICAL(KIND=C_BOOL) :: compression_level_tmp |
---|
[932] | 860 | LOGICAL, OPTIONAL, INTENT(OUT) :: convention |
---|
| 861 | LOGICAL(KIND=C_BOOL) :: convention_tmp |
---|
[1201] | 862 | LOGICAL, OPTIONAL, INTENT(OUT) :: convention_str |
---|
| 863 | LOGICAL(KIND=C_BOOL) :: convention_str_tmp |
---|
[891] | 864 | LOGICAL, OPTIONAL, INTENT(OUT) :: cyclic |
---|
| 865 | LOGICAL(KIND=C_BOOL) :: cyclic_tmp |
---|
[432] | 866 | LOGICAL, OPTIONAL, INTENT(OUT) :: description |
---|
| 867 | LOGICAL(KIND=C_BOOL) :: description_tmp |
---|
| 868 | LOGICAL, OPTIONAL, INTENT(OUT) :: enabled |
---|
| 869 | LOGICAL(KIND=C_BOOL) :: enabled_tmp |
---|
[517] | 870 | LOGICAL, OPTIONAL, INTENT(OUT) :: format |
---|
| 871 | LOGICAL(KIND=C_BOOL) :: format_tmp |
---|
[2616] | 872 | LOGICAL, OPTIONAL, INTENT(OUT) :: gatherer |
---|
| 873 | LOGICAL(KIND=C_BOOL) :: gatherer_tmp |
---|
[432] | 874 | LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref |
---|
| 875 | LOGICAL(KIND=C_BOOL) :: group_ref_tmp |
---|
| 876 | LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits |
---|
| 877 | LOGICAL(KIND=C_BOOL) :: min_digits_tmp |
---|
[598] | 878 | LOGICAL, OPTIONAL, INTENT(OUT) :: mode |
---|
| 879 | LOGICAL(KIND=C_BOOL) :: mode_tmp |
---|
[432] | 880 | LOGICAL, OPTIONAL, INTENT(OUT) :: name |
---|
| 881 | LOGICAL(KIND=C_BOOL) :: name_tmp |
---|
| 882 | LOGICAL, OPTIONAL, INTENT(OUT) :: name_suffix |
---|
| 883 | LOGICAL(KIND=C_BOOL) :: name_suffix_tmp |
---|
| 884 | LOGICAL, OPTIONAL, INTENT(OUT) :: output_freq |
---|
| 885 | LOGICAL(KIND=C_BOOL) :: output_freq_tmp |
---|
| 886 | LOGICAL, OPTIONAL, INTENT(OUT) :: output_level |
---|
| 887 | LOGICAL(KIND=C_BOOL) :: output_level_tmp |
---|
| 888 | LOGICAL, OPTIONAL, INTENT(OUT) :: par_access |
---|
| 889 | LOGICAL(KIND=C_BOOL) :: par_access_tmp |
---|
[2616] | 890 | LOGICAL, OPTIONAL, INTENT(OUT) :: pool_gatherer |
---|
| 891 | LOGICAL(KIND=C_BOOL) :: pool_gatherer_tmp |
---|
| 892 | LOGICAL, OPTIONAL, INTENT(OUT) :: pool_reader |
---|
| 893 | LOGICAL(KIND=C_BOOL) :: pool_reader_tmp |
---|
| 894 | LOGICAL, OPTIONAL, INTENT(OUT) :: pool_writer |
---|
| 895 | LOGICAL(KIND=C_BOOL) :: pool_writer_tmp |
---|
[1492] | 896 | LOGICAL, OPTIONAL, INTENT(OUT) :: read_metadata_par |
---|
| 897 | LOGICAL(KIND=C_BOOL) :: read_metadata_par_tmp |
---|
[2616] | 898 | LOGICAL, OPTIONAL, INTENT(OUT) :: reader |
---|
| 899 | LOGICAL(KIND=C_BOOL) :: reader_tmp |
---|
[779] | 900 | LOGICAL, OPTIONAL, INTENT(OUT) :: record_offset |
---|
| 901 | LOGICAL(KIND=C_BOOL) :: record_offset_tmp |
---|
[1492] | 902 | LOGICAL, OPTIONAL, INTENT(OUT) :: split_end_offset |
---|
| 903 | LOGICAL(KIND=C_BOOL) :: split_end_offset_tmp |
---|
[432] | 904 | LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq |
---|
| 905 | LOGICAL(KIND=C_BOOL) :: split_freq_tmp |
---|
| 906 | LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format |
---|
| 907 | LOGICAL(KIND=C_BOOL) :: split_freq_format_tmp |
---|
[1492] | 908 | LOGICAL, OPTIONAL, INTENT(OUT) :: split_last_date |
---|
| 909 | LOGICAL(KIND=C_BOOL) :: split_last_date_tmp |
---|
| 910 | LOGICAL, OPTIONAL, INTENT(OUT) :: split_start_offset |
---|
| 911 | LOGICAL(KIND=C_BOOL) :: split_start_offset_tmp |
---|
[432] | 912 | LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq |
---|
| 913 | LOGICAL(KIND=C_BOOL) :: sync_freq_tmp |
---|
[699] | 914 | LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter |
---|
| 915 | LOGICAL(KIND=C_BOOL) :: time_counter_tmp |
---|
[802] | 916 | LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter_name |
---|
| 917 | LOGICAL(KIND=C_BOOL) :: time_counter_name_tmp |
---|
[1158] | 918 | LOGICAL, OPTIONAL, INTENT(OUT) :: time_stamp_format |
---|
| 919 | LOGICAL(KIND=C_BOOL) :: time_stamp_format_tmp |
---|
| 920 | LOGICAL, OPTIONAL, INTENT(OUT) :: time_stamp_name |
---|
| 921 | LOGICAL(KIND=C_BOOL) :: time_stamp_name_tmp |
---|
| 922 | LOGICAL, OPTIONAL, INTENT(OUT) :: time_units |
---|
| 923 | LOGICAL(KIND=C_BOOL) :: time_units_tmp |
---|
[711] | 924 | LOGICAL, OPTIONAL, INTENT(OUT) :: timeseries |
---|
| 925 | LOGICAL(KIND=C_BOOL) :: timeseries_tmp |
---|
| 926 | LOGICAL, OPTIONAL, INTENT(OUT) :: ts_prefix |
---|
| 927 | LOGICAL(KIND=C_BOOL) :: ts_prefix_tmp |
---|
[432] | 928 | LOGICAL, OPTIONAL, INTENT(OUT) :: type |
---|
| 929 | LOGICAL(KIND=C_BOOL) :: type_tmp |
---|
[2616] | 930 | LOGICAL, OPTIONAL, INTENT(OUT) :: using_server2 |
---|
| 931 | LOGICAL(KIND=C_BOOL) :: using_server2_tmp |
---|
[1158] | 932 | LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_format |
---|
| 933 | LOGICAL(KIND=C_BOOL) :: uuid_format_tmp |
---|
| 934 | LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_name |
---|
| 935 | LOGICAL(KIND=C_BOOL) :: uuid_name_tmp |
---|
[2616] | 936 | LOGICAL, OPTIONAL, INTENT(OUT) :: writer |
---|
| 937 | LOGICAL(KIND=C_BOOL) :: writer_tmp |
---|
[581] | 938 | |
---|
[966] | 939 | CALL xios(get_filegroup_handle) & |
---|
| 940 | (filegroup_id,filegroup_hdl) |
---|
[432] | 941 | CALL xios(is_defined_filegroup_attr_hdl_) & |
---|
[1492] | 942 | ( filegroup_hdl, append, comment, compression_level, convention, convention_str, cyclic, description & |
---|
[2616] | 943 | , enabled, format, gatherer, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level & |
---|
| 944 | , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset & |
---|
| 945 | , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq & |
---|
| 946 | , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries & |
---|
| 947 | , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) |
---|
[581] | 948 | |
---|
[432] | 949 | END SUBROUTINE xios(is_defined_filegroup_attr) |
---|
[581] | 950 | |
---|
[432] | 951 | SUBROUTINE xios(is_defined_filegroup_attr_hdl) & |
---|
[1492] | 952 | ( filegroup_hdl, append, comment, compression_level, convention, convention_str, cyclic, description & |
---|
[2616] | 953 | , enabled, format, gatherer, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level & |
---|
| 954 | , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset & |
---|
| 955 | , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq & |
---|
| 956 | , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries & |
---|
| 957 | , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) |
---|
[581] | 958 | |
---|
[432] | 959 | IMPLICIT NONE |
---|
| 960 | TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl |
---|
[528] | 961 | LOGICAL, OPTIONAL, INTENT(OUT) :: append |
---|
| 962 | LOGICAL(KIND=C_BOOL) :: append_tmp |
---|
[1492] | 963 | LOGICAL, OPTIONAL, INTENT(OUT) :: comment |
---|
| 964 | LOGICAL(KIND=C_BOOL) :: comment_tmp |
---|
[608] | 965 | LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level |
---|
| 966 | LOGICAL(KIND=C_BOOL) :: compression_level_tmp |
---|
[932] | 967 | LOGICAL, OPTIONAL, INTENT(OUT) :: convention |
---|
| 968 | LOGICAL(KIND=C_BOOL) :: convention_tmp |
---|
[1201] | 969 | LOGICAL, OPTIONAL, INTENT(OUT) :: convention_str |
---|
| 970 | LOGICAL(KIND=C_BOOL) :: convention_str_tmp |
---|
[891] | 971 | LOGICAL, OPTIONAL, INTENT(OUT) :: cyclic |
---|
| 972 | LOGICAL(KIND=C_BOOL) :: cyclic_tmp |
---|
[432] | 973 | LOGICAL, OPTIONAL, INTENT(OUT) :: description |
---|
| 974 | LOGICAL(KIND=C_BOOL) :: description_tmp |
---|
| 975 | LOGICAL, OPTIONAL, INTENT(OUT) :: enabled |
---|
| 976 | LOGICAL(KIND=C_BOOL) :: enabled_tmp |
---|
[517] | 977 | LOGICAL, OPTIONAL, INTENT(OUT) :: format |
---|
| 978 | LOGICAL(KIND=C_BOOL) :: format_tmp |
---|
[2616] | 979 | LOGICAL, OPTIONAL, INTENT(OUT) :: gatherer |
---|
| 980 | LOGICAL(KIND=C_BOOL) :: gatherer_tmp |
---|
[432] | 981 | LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref |
---|
| 982 | LOGICAL(KIND=C_BOOL) :: group_ref_tmp |
---|
| 983 | LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits |
---|
| 984 | LOGICAL(KIND=C_BOOL) :: min_digits_tmp |
---|
[598] | 985 | LOGICAL, OPTIONAL, INTENT(OUT) :: mode |
---|
| 986 | LOGICAL(KIND=C_BOOL) :: mode_tmp |
---|
[432] | 987 | LOGICAL, OPTIONAL, INTENT(OUT) :: name |
---|
| 988 | LOGICAL(KIND=C_BOOL) :: name_tmp |
---|
| 989 | LOGICAL, OPTIONAL, INTENT(OUT) :: name_suffix |
---|
| 990 | LOGICAL(KIND=C_BOOL) :: name_suffix_tmp |
---|
| 991 | LOGICAL, OPTIONAL, INTENT(OUT) :: output_freq |
---|
| 992 | LOGICAL(KIND=C_BOOL) :: output_freq_tmp |
---|
| 993 | LOGICAL, OPTIONAL, INTENT(OUT) :: output_level |
---|
| 994 | LOGICAL(KIND=C_BOOL) :: output_level_tmp |
---|
| 995 | LOGICAL, OPTIONAL, INTENT(OUT) :: par_access |
---|
| 996 | LOGICAL(KIND=C_BOOL) :: par_access_tmp |
---|
[2616] | 997 | LOGICAL, OPTIONAL, INTENT(OUT) :: pool_gatherer |
---|
| 998 | LOGICAL(KIND=C_BOOL) :: pool_gatherer_tmp |
---|
| 999 | LOGICAL, OPTIONAL, INTENT(OUT) :: pool_reader |
---|
| 1000 | LOGICAL(KIND=C_BOOL) :: pool_reader_tmp |
---|
| 1001 | LOGICAL, OPTIONAL, INTENT(OUT) :: pool_writer |
---|
| 1002 | LOGICAL(KIND=C_BOOL) :: pool_writer_tmp |
---|
[1492] | 1003 | LOGICAL, OPTIONAL, INTENT(OUT) :: read_metadata_par |
---|
| 1004 | LOGICAL(KIND=C_BOOL) :: read_metadata_par_tmp |
---|
[2616] | 1005 | LOGICAL, OPTIONAL, INTENT(OUT) :: reader |
---|
| 1006 | LOGICAL(KIND=C_BOOL) :: reader_tmp |
---|
[779] | 1007 | LOGICAL, OPTIONAL, INTENT(OUT) :: record_offset |
---|
| 1008 | LOGICAL(KIND=C_BOOL) :: record_offset_tmp |
---|
[1492] | 1009 | LOGICAL, OPTIONAL, INTENT(OUT) :: split_end_offset |
---|
| 1010 | LOGICAL(KIND=C_BOOL) :: split_end_offset_tmp |
---|
[432] | 1011 | LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq |
---|
| 1012 | LOGICAL(KIND=C_BOOL) :: split_freq_tmp |
---|
| 1013 | LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format |
---|
| 1014 | LOGICAL(KIND=C_BOOL) :: split_freq_format_tmp |
---|
[1492] | 1015 | LOGICAL, OPTIONAL, INTENT(OUT) :: split_last_date |
---|
| 1016 | LOGICAL(KIND=C_BOOL) :: split_last_date_tmp |
---|
| 1017 | LOGICAL, OPTIONAL, INTENT(OUT) :: split_start_offset |
---|
| 1018 | LOGICAL(KIND=C_BOOL) :: split_start_offset_tmp |
---|
[432] | 1019 | LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq |
---|
| 1020 | LOGICAL(KIND=C_BOOL) :: sync_freq_tmp |
---|
[699] | 1021 | LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter |
---|
| 1022 | LOGICAL(KIND=C_BOOL) :: time_counter_tmp |
---|
[802] | 1023 | LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter_name |
---|
| 1024 | LOGICAL(KIND=C_BOOL) :: time_counter_name_tmp |
---|
[1158] | 1025 | LOGICAL, OPTIONAL, INTENT(OUT) :: time_stamp_format |
---|
| 1026 | LOGICAL(KIND=C_BOOL) :: time_stamp_format_tmp |
---|
| 1027 | LOGICAL, OPTIONAL, INTENT(OUT) :: time_stamp_name |
---|
| 1028 | LOGICAL(KIND=C_BOOL) :: time_stamp_name_tmp |
---|
| 1029 | LOGICAL, OPTIONAL, INTENT(OUT) :: time_units |
---|
| 1030 | LOGICAL(KIND=C_BOOL) :: time_units_tmp |
---|
[711] | 1031 | LOGICAL, OPTIONAL, INTENT(OUT) :: timeseries |
---|
| 1032 | LOGICAL(KIND=C_BOOL) :: timeseries_tmp |
---|
| 1033 | LOGICAL, OPTIONAL, INTENT(OUT) :: ts_prefix |
---|
| 1034 | LOGICAL(KIND=C_BOOL) :: ts_prefix_tmp |
---|
[432] | 1035 | LOGICAL, OPTIONAL, INTENT(OUT) :: type |
---|
| 1036 | LOGICAL(KIND=C_BOOL) :: type_tmp |
---|
[2616] | 1037 | LOGICAL, OPTIONAL, INTENT(OUT) :: using_server2 |
---|
| 1038 | LOGICAL(KIND=C_BOOL) :: using_server2_tmp |
---|
[1158] | 1039 | LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_format |
---|
| 1040 | LOGICAL(KIND=C_BOOL) :: uuid_format_tmp |
---|
| 1041 | LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_name |
---|
| 1042 | LOGICAL(KIND=C_BOOL) :: uuid_name_tmp |
---|
[2616] | 1043 | LOGICAL, OPTIONAL, INTENT(OUT) :: writer |
---|
| 1044 | LOGICAL(KIND=C_BOOL) :: writer_tmp |
---|
[581] | 1045 | |
---|
[432] | 1046 | CALL xios(is_defined_filegroup_attr_hdl_) & |
---|
[1492] | 1047 | ( filegroup_hdl, append, comment, compression_level, convention, convention_str, cyclic, description & |
---|
[2616] | 1048 | , enabled, format, gatherer, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level & |
---|
| 1049 | , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset & |
---|
| 1050 | , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq & |
---|
| 1051 | , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries & |
---|
| 1052 | , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) |
---|
[581] | 1053 | |
---|
[432] | 1054 | END SUBROUTINE xios(is_defined_filegroup_attr_hdl) |
---|
[581] | 1055 | |
---|
[432] | 1056 | SUBROUTINE xios(is_defined_filegroup_attr_hdl_) & |
---|
[1492] | 1057 | ( filegroup_hdl, append_, comment_, compression_level_, convention_, convention_str_, cyclic_ & |
---|
[2616] | 1058 | , description_, enabled_, format_, gatherer_, group_ref_, min_digits_, mode_, name_, name_suffix_ & |
---|
| 1059 | , output_freq_, output_level_, par_access_, pool_gatherer_, pool_reader_, pool_writer_, read_metadata_par_ & |
---|
| 1060 | , reader_, record_offset_, split_end_offset_, split_freq_, split_freq_format_, split_last_date_ & |
---|
| 1061 | , split_start_offset_, sync_freq_, time_counter_, time_counter_name_, time_stamp_format_, time_stamp_name_ & |
---|
| 1062 | , time_units_, timeseries_, ts_prefix_, type_, using_server2_, uuid_format_, uuid_name_, writer_ & |
---|
| 1063 | ) |
---|
[581] | 1064 | |
---|
[432] | 1065 | IMPLICIT NONE |
---|
| 1066 | TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl |
---|
[528] | 1067 | LOGICAL, OPTIONAL, INTENT(OUT) :: append_ |
---|
| 1068 | LOGICAL(KIND=C_BOOL) :: append__tmp |
---|
[1492] | 1069 | LOGICAL, OPTIONAL, INTENT(OUT) :: comment_ |
---|
| 1070 | LOGICAL(KIND=C_BOOL) :: comment__tmp |
---|
[608] | 1071 | LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level_ |
---|
| 1072 | LOGICAL(KIND=C_BOOL) :: compression_level__tmp |
---|
[932] | 1073 | LOGICAL, OPTIONAL, INTENT(OUT) :: convention_ |
---|
| 1074 | LOGICAL(KIND=C_BOOL) :: convention__tmp |
---|
[1201] | 1075 | LOGICAL, OPTIONAL, INTENT(OUT) :: convention_str_ |
---|
| 1076 | LOGICAL(KIND=C_BOOL) :: convention_str__tmp |
---|
[891] | 1077 | LOGICAL, OPTIONAL, INTENT(OUT) :: cyclic_ |
---|
| 1078 | LOGICAL(KIND=C_BOOL) :: cyclic__tmp |
---|
[432] | 1079 | LOGICAL, OPTIONAL, INTENT(OUT) :: description_ |
---|
| 1080 | LOGICAL(KIND=C_BOOL) :: description__tmp |
---|
| 1081 | LOGICAL, OPTIONAL, INTENT(OUT) :: enabled_ |
---|
| 1082 | LOGICAL(KIND=C_BOOL) :: enabled__tmp |
---|
[517] | 1083 | LOGICAL, OPTIONAL, INTENT(OUT) :: format_ |
---|
| 1084 | LOGICAL(KIND=C_BOOL) :: format__tmp |
---|
[2616] | 1085 | LOGICAL, OPTIONAL, INTENT(OUT) :: gatherer_ |
---|
| 1086 | LOGICAL(KIND=C_BOOL) :: gatherer__tmp |
---|
[432] | 1087 | LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_ |
---|
| 1088 | LOGICAL(KIND=C_BOOL) :: group_ref__tmp |
---|
| 1089 | LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits_ |
---|
| 1090 | LOGICAL(KIND=C_BOOL) :: min_digits__tmp |
---|
[598] | 1091 | LOGICAL, OPTIONAL, INTENT(OUT) :: mode_ |
---|
| 1092 | LOGICAL(KIND=C_BOOL) :: mode__tmp |
---|
[432] | 1093 | LOGICAL, OPTIONAL, INTENT(OUT) :: name_ |
---|
| 1094 | LOGICAL(KIND=C_BOOL) :: name__tmp |
---|
| 1095 | LOGICAL, OPTIONAL, INTENT(OUT) :: name_suffix_ |
---|
| 1096 | LOGICAL(KIND=C_BOOL) :: name_suffix__tmp |
---|
| 1097 | LOGICAL, OPTIONAL, INTENT(OUT) :: output_freq_ |
---|
| 1098 | LOGICAL(KIND=C_BOOL) :: output_freq__tmp |
---|
| 1099 | LOGICAL, OPTIONAL, INTENT(OUT) :: output_level_ |
---|
| 1100 | LOGICAL(KIND=C_BOOL) :: output_level__tmp |
---|
| 1101 | LOGICAL, OPTIONAL, INTENT(OUT) :: par_access_ |
---|
| 1102 | LOGICAL(KIND=C_BOOL) :: par_access__tmp |
---|
[2616] | 1103 | LOGICAL, OPTIONAL, INTENT(OUT) :: pool_gatherer_ |
---|
| 1104 | LOGICAL(KIND=C_BOOL) :: pool_gatherer__tmp |
---|
| 1105 | LOGICAL, OPTIONAL, INTENT(OUT) :: pool_reader_ |
---|
| 1106 | LOGICAL(KIND=C_BOOL) :: pool_reader__tmp |
---|
| 1107 | LOGICAL, OPTIONAL, INTENT(OUT) :: pool_writer_ |
---|
| 1108 | LOGICAL(KIND=C_BOOL) :: pool_writer__tmp |
---|
[1492] | 1109 | LOGICAL, OPTIONAL, INTENT(OUT) :: read_metadata_par_ |
---|
| 1110 | LOGICAL(KIND=C_BOOL) :: read_metadata_par__tmp |
---|
[2616] | 1111 | LOGICAL, OPTIONAL, INTENT(OUT) :: reader_ |
---|
| 1112 | LOGICAL(KIND=C_BOOL) :: reader__tmp |
---|
[779] | 1113 | LOGICAL, OPTIONAL, INTENT(OUT) :: record_offset_ |
---|
| 1114 | LOGICAL(KIND=C_BOOL) :: record_offset__tmp |
---|
[1492] | 1115 | LOGICAL, OPTIONAL, INTENT(OUT) :: split_end_offset_ |
---|
| 1116 | LOGICAL(KIND=C_BOOL) :: split_end_offset__tmp |
---|
[432] | 1117 | LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_ |
---|
| 1118 | LOGICAL(KIND=C_BOOL) :: split_freq__tmp |
---|
| 1119 | LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format_ |
---|
| 1120 | LOGICAL(KIND=C_BOOL) :: split_freq_format__tmp |
---|
[1492] | 1121 | LOGICAL, OPTIONAL, INTENT(OUT) :: split_last_date_ |
---|
| 1122 | LOGICAL(KIND=C_BOOL) :: split_last_date__tmp |
---|
| 1123 | LOGICAL, OPTIONAL, INTENT(OUT) :: split_start_offset_ |
---|
| 1124 | LOGICAL(KIND=C_BOOL) :: split_start_offset__tmp |
---|
[432] | 1125 | LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq_ |
---|
| 1126 | LOGICAL(KIND=C_BOOL) :: sync_freq__tmp |
---|
[699] | 1127 | LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter_ |
---|
| 1128 | LOGICAL(KIND=C_BOOL) :: time_counter__tmp |
---|
[802] | 1129 | LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter_name_ |
---|
| 1130 | LOGICAL(KIND=C_BOOL) :: time_counter_name__tmp |
---|
[1158] | 1131 | LOGICAL, OPTIONAL, INTENT(OUT) :: time_stamp_format_ |
---|
| 1132 | LOGICAL(KIND=C_BOOL) :: time_stamp_format__tmp |
---|
| 1133 | LOGICAL, OPTIONAL, INTENT(OUT) :: time_stamp_name_ |
---|
| 1134 | LOGICAL(KIND=C_BOOL) :: time_stamp_name__tmp |
---|
| 1135 | LOGICAL, OPTIONAL, INTENT(OUT) :: time_units_ |
---|
| 1136 | LOGICAL(KIND=C_BOOL) :: time_units__tmp |
---|
[711] | 1137 | LOGICAL, OPTIONAL, INTENT(OUT) :: timeseries_ |
---|
| 1138 | LOGICAL(KIND=C_BOOL) :: timeseries__tmp |
---|
| 1139 | LOGICAL, OPTIONAL, INTENT(OUT) :: ts_prefix_ |
---|
| 1140 | LOGICAL(KIND=C_BOOL) :: ts_prefix__tmp |
---|
[432] | 1141 | LOGICAL, OPTIONAL, INTENT(OUT) :: type_ |
---|
| 1142 | LOGICAL(KIND=C_BOOL) :: type__tmp |
---|
[2616] | 1143 | LOGICAL, OPTIONAL, INTENT(OUT) :: using_server2_ |
---|
| 1144 | LOGICAL(KIND=C_BOOL) :: using_server2__tmp |
---|
[1158] | 1145 | LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_format_ |
---|
| 1146 | LOGICAL(KIND=C_BOOL) :: uuid_format__tmp |
---|
| 1147 | LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_name_ |
---|
| 1148 | LOGICAL(KIND=C_BOOL) :: uuid_name__tmp |
---|
[2616] | 1149 | LOGICAL, OPTIONAL, INTENT(OUT) :: writer_ |
---|
| 1150 | LOGICAL(KIND=C_BOOL) :: writer__tmp |
---|
[581] | 1151 | |
---|
[528] | 1152 | IF (PRESENT(append_)) THEN |
---|
[966] | 1153 | append__tmp = cxios_is_defined_filegroup_append & |
---|
| 1154 | (filegroup_hdl%daddr) |
---|
[581] | 1155 | append_ = append__tmp |
---|
[528] | 1156 | ENDIF |
---|
[581] | 1157 | |
---|
[1492] | 1158 | IF (PRESENT(comment_)) THEN |
---|
| 1159 | comment__tmp = cxios_is_defined_filegroup_comment & |
---|
| 1160 | (filegroup_hdl%daddr) |
---|
| 1161 | comment_ = comment__tmp |
---|
| 1162 | ENDIF |
---|
| 1163 | |
---|
[608] | 1164 | IF (PRESENT(compression_level_)) THEN |
---|
[966] | 1165 | compression_level__tmp = cxios_is_defined_filegroup_compression_level & |
---|
| 1166 | (filegroup_hdl%daddr) |
---|
[608] | 1167 | compression_level_ = compression_level__tmp |
---|
| 1168 | ENDIF |
---|
| 1169 | |
---|
[932] | 1170 | IF (PRESENT(convention_)) THEN |
---|
[966] | 1171 | convention__tmp = cxios_is_defined_filegroup_convention & |
---|
| 1172 | (filegroup_hdl%daddr) |
---|
[932] | 1173 | convention_ = convention__tmp |
---|
| 1174 | ENDIF |
---|
| 1175 | |
---|
[1201] | 1176 | IF (PRESENT(convention_str_)) THEN |
---|
| 1177 | convention_str__tmp = cxios_is_defined_filegroup_convention_str & |
---|
| 1178 | (filegroup_hdl%daddr) |
---|
| 1179 | convention_str_ = convention_str__tmp |
---|
| 1180 | ENDIF |
---|
| 1181 | |
---|
[891] | 1182 | IF (PRESENT(cyclic_)) THEN |
---|
[966] | 1183 | cyclic__tmp = cxios_is_defined_filegroup_cyclic & |
---|
| 1184 | (filegroup_hdl%daddr) |
---|
[891] | 1185 | cyclic_ = cyclic__tmp |
---|
| 1186 | ENDIF |
---|
| 1187 | |
---|
[432] | 1188 | IF (PRESENT(description_)) THEN |
---|
[966] | 1189 | description__tmp = cxios_is_defined_filegroup_description & |
---|
| 1190 | (filegroup_hdl%daddr) |
---|
[581] | 1191 | description_ = description__tmp |
---|
[432] | 1192 | ENDIF |
---|
[581] | 1193 | |
---|
[432] | 1194 | IF (PRESENT(enabled_)) THEN |
---|
[966] | 1195 | enabled__tmp = cxios_is_defined_filegroup_enabled & |
---|
| 1196 | (filegroup_hdl%daddr) |
---|
[581] | 1197 | enabled_ = enabled__tmp |
---|
[432] | 1198 | ENDIF |
---|
[581] | 1199 | |
---|
[517] | 1200 | IF (PRESENT(format_)) THEN |
---|
[966] | 1201 | format__tmp = cxios_is_defined_filegroup_format & |
---|
| 1202 | (filegroup_hdl%daddr) |
---|
[581] | 1203 | format_ = format__tmp |
---|
[517] | 1204 | ENDIF |
---|
[581] | 1205 | |
---|
[2616] | 1206 | IF (PRESENT(gatherer_)) THEN |
---|
| 1207 | gatherer__tmp = cxios_is_defined_filegroup_gatherer & |
---|
| 1208 | (filegroup_hdl%daddr) |
---|
| 1209 | gatherer_ = gatherer__tmp |
---|
| 1210 | ENDIF |
---|
| 1211 | |
---|
[432] | 1212 | IF (PRESENT(group_ref_)) THEN |
---|
[966] | 1213 | group_ref__tmp = cxios_is_defined_filegroup_group_ref & |
---|
| 1214 | (filegroup_hdl%daddr) |
---|
[581] | 1215 | group_ref_ = group_ref__tmp |
---|
[432] | 1216 | ENDIF |
---|
[581] | 1217 | |
---|
[432] | 1218 | IF (PRESENT(min_digits_)) THEN |
---|
[966] | 1219 | min_digits__tmp = cxios_is_defined_filegroup_min_digits & |
---|
| 1220 | (filegroup_hdl%daddr) |
---|
[581] | 1221 | min_digits_ = min_digits__tmp |
---|
[432] | 1222 | ENDIF |
---|
[581] | 1223 | |
---|
[598] | 1224 | IF (PRESENT(mode_)) THEN |
---|
[966] | 1225 | mode__tmp = cxios_is_defined_filegroup_mode & |
---|
| 1226 | (filegroup_hdl%daddr) |
---|
[598] | 1227 | mode_ = mode__tmp |
---|
| 1228 | ENDIF |
---|
| 1229 | |
---|
[432] | 1230 | IF (PRESENT(name_)) THEN |
---|
[966] | 1231 | name__tmp = cxios_is_defined_filegroup_name & |
---|
| 1232 | (filegroup_hdl%daddr) |
---|
[581] | 1233 | name_ = name__tmp |
---|
[432] | 1234 | ENDIF |
---|
[581] | 1235 | |
---|
[432] | 1236 | IF (PRESENT(name_suffix_)) THEN |
---|
[966] | 1237 | name_suffix__tmp = cxios_is_defined_filegroup_name_suffix & |
---|
| 1238 | (filegroup_hdl%daddr) |
---|
[581] | 1239 | name_suffix_ = name_suffix__tmp |
---|
[432] | 1240 | ENDIF |
---|
[581] | 1241 | |
---|
[432] | 1242 | IF (PRESENT(output_freq_)) THEN |
---|
[966] | 1243 | output_freq__tmp = cxios_is_defined_filegroup_output_freq & |
---|
| 1244 | (filegroup_hdl%daddr) |
---|
[581] | 1245 | output_freq_ = output_freq__tmp |
---|
[432] | 1246 | ENDIF |
---|
[581] | 1247 | |
---|
[432] | 1248 | IF (PRESENT(output_level_)) THEN |
---|
[966] | 1249 | output_level__tmp = cxios_is_defined_filegroup_output_level & |
---|
| 1250 | (filegroup_hdl%daddr) |
---|
[581] | 1251 | output_level_ = output_level__tmp |
---|
[432] | 1252 | ENDIF |
---|
[581] | 1253 | |
---|
[432] | 1254 | IF (PRESENT(par_access_)) THEN |
---|
[966] | 1255 | par_access__tmp = cxios_is_defined_filegroup_par_access & |
---|
| 1256 | (filegroup_hdl%daddr) |
---|
[581] | 1257 | par_access_ = par_access__tmp |
---|
[432] | 1258 | ENDIF |
---|
[581] | 1259 | |
---|
[2616] | 1260 | IF (PRESENT(pool_gatherer_)) THEN |
---|
| 1261 | pool_gatherer__tmp = cxios_is_defined_filegroup_pool_gatherer & |
---|
| 1262 | (filegroup_hdl%daddr) |
---|
| 1263 | pool_gatherer_ = pool_gatherer__tmp |
---|
| 1264 | ENDIF |
---|
| 1265 | |
---|
| 1266 | IF (PRESENT(pool_reader_)) THEN |
---|
| 1267 | pool_reader__tmp = cxios_is_defined_filegroup_pool_reader & |
---|
| 1268 | (filegroup_hdl%daddr) |
---|
| 1269 | pool_reader_ = pool_reader__tmp |
---|
| 1270 | ENDIF |
---|
| 1271 | |
---|
| 1272 | IF (PRESENT(pool_writer_)) THEN |
---|
| 1273 | pool_writer__tmp = cxios_is_defined_filegroup_pool_writer & |
---|
| 1274 | (filegroup_hdl%daddr) |
---|
| 1275 | pool_writer_ = pool_writer__tmp |
---|
| 1276 | ENDIF |
---|
| 1277 | |
---|
[1492] | 1278 | IF (PRESENT(read_metadata_par_)) THEN |
---|
| 1279 | read_metadata_par__tmp = cxios_is_defined_filegroup_read_metadata_par & |
---|
| 1280 | (filegroup_hdl%daddr) |
---|
| 1281 | read_metadata_par_ = read_metadata_par__tmp |
---|
| 1282 | ENDIF |
---|
| 1283 | |
---|
[2616] | 1284 | IF (PRESENT(reader_)) THEN |
---|
| 1285 | reader__tmp = cxios_is_defined_filegroup_reader & |
---|
| 1286 | (filegroup_hdl%daddr) |
---|
| 1287 | reader_ = reader__tmp |
---|
| 1288 | ENDIF |
---|
| 1289 | |
---|
[779] | 1290 | IF (PRESENT(record_offset_)) THEN |
---|
[966] | 1291 | record_offset__tmp = cxios_is_defined_filegroup_record_offset & |
---|
| 1292 | (filegroup_hdl%daddr) |
---|
[779] | 1293 | record_offset_ = record_offset__tmp |
---|
| 1294 | ENDIF |
---|
| 1295 | |
---|
[1492] | 1296 | IF (PRESENT(split_end_offset_)) THEN |
---|
| 1297 | split_end_offset__tmp = cxios_is_defined_filegroup_split_end_offset & |
---|
| 1298 | (filegroup_hdl%daddr) |
---|
| 1299 | split_end_offset_ = split_end_offset__tmp |
---|
| 1300 | ENDIF |
---|
| 1301 | |
---|
[432] | 1302 | IF (PRESENT(split_freq_)) THEN |
---|
[966] | 1303 | split_freq__tmp = cxios_is_defined_filegroup_split_freq & |
---|
| 1304 | (filegroup_hdl%daddr) |
---|
[581] | 1305 | split_freq_ = split_freq__tmp |
---|
[432] | 1306 | ENDIF |
---|
[581] | 1307 | |
---|
[432] | 1308 | IF (PRESENT(split_freq_format_)) THEN |
---|
[966] | 1309 | split_freq_format__tmp = cxios_is_defined_filegroup_split_freq_format & |
---|
| 1310 | (filegroup_hdl%daddr) |
---|
[581] | 1311 | split_freq_format_ = split_freq_format__tmp |
---|
[432] | 1312 | ENDIF |
---|
[581] | 1313 | |
---|
[1492] | 1314 | IF (PRESENT(split_last_date_)) THEN |
---|
| 1315 | split_last_date__tmp = cxios_is_defined_filegroup_split_last_date & |
---|
| 1316 | (filegroup_hdl%daddr) |
---|
| 1317 | split_last_date_ = split_last_date__tmp |
---|
| 1318 | ENDIF |
---|
| 1319 | |
---|
| 1320 | IF (PRESENT(split_start_offset_)) THEN |
---|
| 1321 | split_start_offset__tmp = cxios_is_defined_filegroup_split_start_offset & |
---|
| 1322 | (filegroup_hdl%daddr) |
---|
| 1323 | split_start_offset_ = split_start_offset__tmp |
---|
| 1324 | ENDIF |
---|
| 1325 | |
---|
[432] | 1326 | IF (PRESENT(sync_freq_)) THEN |
---|
[966] | 1327 | sync_freq__tmp = cxios_is_defined_filegroup_sync_freq & |
---|
| 1328 | (filegroup_hdl%daddr) |
---|
[581] | 1329 | sync_freq_ = sync_freq__tmp |
---|
[432] | 1330 | ENDIF |
---|
[581] | 1331 | |
---|
[699] | 1332 | IF (PRESENT(time_counter_)) THEN |
---|
[966] | 1333 | time_counter__tmp = cxios_is_defined_filegroup_time_counter & |
---|
| 1334 | (filegroup_hdl%daddr) |
---|
[699] | 1335 | time_counter_ = time_counter__tmp |
---|
| 1336 | ENDIF |
---|
| 1337 | |
---|
[802] | 1338 | IF (PRESENT(time_counter_name_)) THEN |
---|
[966] | 1339 | time_counter_name__tmp = cxios_is_defined_filegroup_time_counter_name & |
---|
| 1340 | (filegroup_hdl%daddr) |
---|
[802] | 1341 | time_counter_name_ = time_counter_name__tmp |
---|
| 1342 | ENDIF |
---|
| 1343 | |
---|
[1158] | 1344 | IF (PRESENT(time_stamp_format_)) THEN |
---|
| 1345 | time_stamp_format__tmp = cxios_is_defined_filegroup_time_stamp_format & |
---|
| 1346 | (filegroup_hdl%daddr) |
---|
| 1347 | time_stamp_format_ = time_stamp_format__tmp |
---|
| 1348 | ENDIF |
---|
| 1349 | |
---|
| 1350 | IF (PRESENT(time_stamp_name_)) THEN |
---|
| 1351 | time_stamp_name__tmp = cxios_is_defined_filegroup_time_stamp_name & |
---|
| 1352 | (filegroup_hdl%daddr) |
---|
| 1353 | time_stamp_name_ = time_stamp_name__tmp |
---|
| 1354 | ENDIF |
---|
| 1355 | |
---|
| 1356 | IF (PRESENT(time_units_)) THEN |
---|
| 1357 | time_units__tmp = cxios_is_defined_filegroup_time_units & |
---|
| 1358 | (filegroup_hdl%daddr) |
---|
| 1359 | time_units_ = time_units__tmp |
---|
| 1360 | ENDIF |
---|
| 1361 | |
---|
[711] | 1362 | IF (PRESENT(timeseries_)) THEN |
---|
[966] | 1363 | timeseries__tmp = cxios_is_defined_filegroup_timeseries & |
---|
| 1364 | (filegroup_hdl%daddr) |
---|
[711] | 1365 | timeseries_ = timeseries__tmp |
---|
| 1366 | ENDIF |
---|
| 1367 | |
---|
| 1368 | IF (PRESENT(ts_prefix_)) THEN |
---|
[966] | 1369 | ts_prefix__tmp = cxios_is_defined_filegroup_ts_prefix & |
---|
| 1370 | (filegroup_hdl%daddr) |
---|
[711] | 1371 | ts_prefix_ = ts_prefix__tmp |
---|
| 1372 | ENDIF |
---|
| 1373 | |
---|
[432] | 1374 | IF (PRESENT(type_)) THEN |
---|
[966] | 1375 | type__tmp = cxios_is_defined_filegroup_type & |
---|
| 1376 | (filegroup_hdl%daddr) |
---|
[581] | 1377 | type_ = type__tmp |
---|
[432] | 1378 | ENDIF |
---|
[581] | 1379 | |
---|
[2616] | 1380 | IF (PRESENT(using_server2_)) THEN |
---|
| 1381 | using_server2__tmp = cxios_is_defined_filegroup_using_server2 & |
---|
| 1382 | (filegroup_hdl%daddr) |
---|
| 1383 | using_server2_ = using_server2__tmp |
---|
| 1384 | ENDIF |
---|
| 1385 | |
---|
[1158] | 1386 | IF (PRESENT(uuid_format_)) THEN |
---|
| 1387 | uuid_format__tmp = cxios_is_defined_filegroup_uuid_format & |
---|
| 1388 | (filegroup_hdl%daddr) |
---|
| 1389 | uuid_format_ = uuid_format__tmp |
---|
| 1390 | ENDIF |
---|
| 1391 | |
---|
| 1392 | IF (PRESENT(uuid_name_)) THEN |
---|
| 1393 | uuid_name__tmp = cxios_is_defined_filegroup_uuid_name & |
---|
| 1394 | (filegroup_hdl%daddr) |
---|
| 1395 | uuid_name_ = uuid_name__tmp |
---|
| 1396 | ENDIF |
---|
| 1397 | |
---|
[2616] | 1398 | IF (PRESENT(writer_)) THEN |
---|
| 1399 | writer__tmp = cxios_is_defined_filegroup_writer & |
---|
| 1400 | (filegroup_hdl%daddr) |
---|
| 1401 | writer_ = writer__tmp |
---|
| 1402 | ENDIF |
---|
| 1403 | |
---|
[432] | 1404 | END SUBROUTINE xios(is_defined_filegroup_attr_hdl_) |
---|
[581] | 1405 | |
---|
[326] | 1406 | END MODULE ifilegroup_attr |
---|