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