Ignore:
Timestamp:
10/10/16 16:01:11 (8 years ago)
Author:
mhnguyen
Message:

Reducing length of line of auto-generate Fortran interface

+) Break line into smaller ones to make sure each line is not longer than 132 character

Test
+) Local with gcc4.8
+) Compilation passed

File:
1 edited

Legend:

Unmodified
Added
Removed

  • XIOS/trunk/src/interface/fortran_attr/ifieldgroup_attr.F90

    r891 r966  
    5454      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_min 
    5555 
    56       CALL xios(get_fieldgroup_handle)(fieldgroup_id,fieldgroup_hdl) 
     56      CALL xios(get_fieldgroup_handle) & 
     57      (fieldgroup_id,fieldgroup_hdl) 
    5758      CALL xios(set_fieldgroup_attr_hdl_)   & 
    5859      ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value  & 
    … …  
    156157 
    157158      IF (PRESENT(add_offset_)) THEN 
    158         CALL cxios_set_fieldgroup_add_offset(fieldgroup_hdl%daddr, add_offset_) 
     159        CALL cxios_set_fieldgroup_add_offset & 
     160      (fieldgroup_hdl%daddr, add_offset_) 
    159161      ENDIF 
    160162 
    161163      IF (PRESENT(axis_ref_)) THEN 
    162         CALL cxios_set_fieldgroup_axis_ref(fieldgroup_hdl%daddr, axis_ref_, len(axis_ref_)) 
     164        CALL cxios_set_fieldgroup_axis_ref & 
     165      (fieldgroup_hdl%daddr, axis_ref_, len(axis_ref_)) 
    163166      ENDIF 
    164167 
    165168      IF (PRESENT(compression_level_)) THEN 
    166         CALL cxios_set_fieldgroup_compression_level(fieldgroup_hdl%daddr, compression_level_) 
     169        CALL cxios_set_fieldgroup_compression_level & 
     170      (fieldgroup_hdl%daddr, compression_level_) 
    167171      ENDIF 
    168172 
    169173      IF (PRESENT(default_value_)) THEN 
    170         CALL cxios_set_fieldgroup_default_value(fieldgroup_hdl%daddr, default_value_) 
     174        CALL cxios_set_fieldgroup_default_value & 
     175      (fieldgroup_hdl%daddr, default_value_) 
    171176      ENDIF 
    172177 
    173178      IF (PRESENT(detect_missing_value_)) THEN 
    174179        detect_missing_value__tmp = detect_missing_value_ 
    175         CALL cxios_set_fieldgroup_detect_missing_value(fieldgroup_hdl%daddr, detect_missing_value__tmp) 
     180        CALL cxios_set_fieldgroup_detect_missing_value & 
     181      (fieldgroup_hdl%daddr, detect_missing_value__tmp) 
    176182      ENDIF 
    177183 
    178184      IF (PRESENT(domain_ref_)) THEN 
    179         CALL cxios_set_fieldgroup_domain_ref(fieldgroup_hdl%daddr, domain_ref_, len(domain_ref_)) 
     185        CALL cxios_set_fieldgroup_domain_ref & 
     186      (fieldgroup_hdl%daddr, domain_ref_, len(domain_ref_)) 
    180187      ENDIF 
    181188 
    182189      IF (PRESENT(enabled_)) THEN 
    183190        enabled__tmp = enabled_ 
    184         CALL cxios_set_fieldgroup_enabled(fieldgroup_hdl%daddr, enabled__tmp) 
     191        CALL cxios_set_fieldgroup_enabled & 
     192      (fieldgroup_hdl%daddr, enabled__tmp) 
    185193      ENDIF 
    186194 
    187195      IF (PRESENT(field_ref_)) THEN 
    188         CALL cxios_set_fieldgroup_field_ref(fieldgroup_hdl%daddr, field_ref_, len(field_ref_)) 
     196        CALL cxios_set_fieldgroup_field_ref & 
     197      (fieldgroup_hdl%daddr, field_ref_, len(field_ref_)) 
    189198      ENDIF 
    190199 
    191200      IF (PRESENT(freq_offset_)) THEN 
    192         CALL cxios_set_fieldgroup_freq_offset(fieldgroup_hdl%daddr, freq_offset_) 
     201        CALL cxios_set_fieldgroup_freq_offset & 
     202      (fieldgroup_hdl%daddr, freq_offset_) 
    193203      ENDIF 
    194204 
    195205      IF (PRESENT(freq_op_)) THEN 
    196         CALL cxios_set_fieldgroup_freq_op(fieldgroup_hdl%daddr, freq_op_) 
     206        CALL cxios_set_fieldgroup_freq_op & 
     207      (fieldgroup_hdl%daddr, freq_op_) 
    197208      ENDIF 
    198209 
    199210      IF (PRESENT(grid_path_)) THEN 
    200         CALL cxios_set_fieldgroup_grid_path(fieldgroup_hdl%daddr, grid_path_, len(grid_path_)) 
     211        CALL cxios_set_fieldgroup_grid_path & 
     212      (fieldgroup_hdl%daddr, grid_path_, len(grid_path_)) 
    201213      ENDIF 
    202214 
    203215      IF (PRESENT(grid_ref_)) THEN 
    204         CALL cxios_set_fieldgroup_grid_ref(fieldgroup_hdl%daddr, grid_ref_, len(grid_ref_)) 
     216        CALL cxios_set_fieldgroup_grid_ref & 
     217      (fieldgroup_hdl%daddr, grid_ref_, len(grid_ref_)) 
    205218      ENDIF 
    206219 
    207220      IF (PRESENT(group_ref_)) THEN 
    208         CALL cxios_set_fieldgroup_group_ref(fieldgroup_hdl%daddr, group_ref_, len(group_ref_)) 
     221        CALL cxios_set_fieldgroup_group_ref & 
     222      (fieldgroup_hdl%daddr, group_ref_, len(group_ref_)) 
    209223      ENDIF 
    210224 
    211225      IF (PRESENT(indexed_output_)) THEN 
    212226        indexed_output__tmp = indexed_output_ 
    213         CALL cxios_set_fieldgroup_indexed_output(fieldgroup_hdl%daddr, indexed_output__tmp) 
     227        CALL cxios_set_fieldgroup_indexed_output & 
     228      (fieldgroup_hdl%daddr, indexed_output__tmp) 
    214229      ENDIF 
    215230 
    216231      IF (PRESENT(level_)) THEN 
    217         CALL cxios_set_fieldgroup_level(fieldgroup_hdl%daddr, level_) 
     232        CALL cxios_set_fieldgroup_level & 
     233      (fieldgroup_hdl%daddr, level_) 
    218234      ENDIF 
    219235 
    220236      IF (PRESENT(long_name_)) THEN 
    221         CALL cxios_set_fieldgroup_long_name(fieldgroup_hdl%daddr, long_name_, len(long_name_)) 
     237        CALL cxios_set_fieldgroup_long_name & 
     238      (fieldgroup_hdl%daddr, long_name_, len(long_name_)) 
    222239      ENDIF 
    223240 
    224241      IF (PRESENT(name_)) THEN 
    225         CALL cxios_set_fieldgroup_name(fieldgroup_hdl%daddr, name_, len(name_)) 
     242        CALL cxios_set_fieldgroup_name & 
     243      (fieldgroup_hdl%daddr, name_, len(name_)) 
    226244      ENDIF 
    227245 
    228246      IF (PRESENT(operation_)) THEN 
    229         CALL cxios_set_fieldgroup_operation(fieldgroup_hdl%daddr, operation_, len(operation_)) 
     247        CALL cxios_set_fieldgroup_operation & 
     248      (fieldgroup_hdl%daddr, operation_, len(operation_)) 
    230249      ENDIF 
    231250 
    232251      IF (PRESENT(prec_)) THEN 
    233         CALL cxios_set_fieldgroup_prec(fieldgroup_hdl%daddr, prec_) 
     252        CALL cxios_set_fieldgroup_prec & 
     253      (fieldgroup_hdl%daddr, prec_) 
    234254      ENDIF 
    235255 
    236256      IF (PRESENT(read_access_)) THEN 
    237257        read_access__tmp = read_access_ 
    238         CALL cxios_set_fieldgroup_read_access(fieldgroup_hdl%daddr, read_access__tmp) 
     258        CALL cxios_set_fieldgroup_read_access & 
     259      (fieldgroup_hdl%daddr, read_access__tmp) 
    239260      ENDIF 
    240261 
    241262      IF (PRESENT(scalar_ref_)) THEN 
    242         CALL cxios_set_fieldgroup_scalar_ref(fieldgroup_hdl%daddr, scalar_ref_, len(scalar_ref_)) 
     263        CALL cxios_set_fieldgroup_scalar_ref & 
     264      (fieldgroup_hdl%daddr, scalar_ref_, len(scalar_ref_)) 
    243265      ENDIF 
    244266 
    245267      IF (PRESENT(scale_factor_)) THEN 
    246         CALL cxios_set_fieldgroup_scale_factor(fieldgroup_hdl%daddr, scale_factor_) 
     268        CALL cxios_set_fieldgroup_scale_factor & 
     269      (fieldgroup_hdl%daddr, scale_factor_) 
    247270      ENDIF 
    248271 
    249272      IF (PRESENT(standard_name_)) THEN 
    250         CALL cxios_set_fieldgroup_standard_name(fieldgroup_hdl%daddr, standard_name_, len(standard_name_)) 
     273        CALL cxios_set_fieldgroup_standard_name & 
     274      (fieldgroup_hdl%daddr, standard_name_, len(standard_name_)) 
    251275      ENDIF 
    252276 
    253277      IF (PRESENT(ts_enabled_)) THEN 
    254278        ts_enabled__tmp = ts_enabled_ 
    255         CALL cxios_set_fieldgroup_ts_enabled(fieldgroup_hdl%daddr, ts_enabled__tmp) 
     279        CALL cxios_set_fieldgroup_ts_enabled & 
     280      (fieldgroup_hdl%daddr, ts_enabled__tmp) 
    256281      ENDIF 
    257282 
    258283      IF (PRESENT(ts_split_freq_)) THEN 
    259         CALL cxios_set_fieldgroup_ts_split_freq(fieldgroup_hdl%daddr, ts_split_freq_) 
     284        CALL cxios_set_fieldgroup_ts_split_freq & 
     285      (fieldgroup_hdl%daddr, ts_split_freq_) 
    260286      ENDIF 
    261287 
    262288      IF (PRESENT(unit_)) THEN 
    263         CALL cxios_set_fieldgroup_unit(fieldgroup_hdl%daddr, unit_, len(unit_)) 
     289        CALL cxios_set_fieldgroup_unit & 
     290      (fieldgroup_hdl%daddr, unit_, len(unit_)) 
    264291      ENDIF 
    265292 
    266293      IF (PRESENT(valid_max_)) THEN 
    267         CALL cxios_set_fieldgroup_valid_max(fieldgroup_hdl%daddr, valid_max_) 
     294        CALL cxios_set_fieldgroup_valid_max & 
     295      (fieldgroup_hdl%daddr, valid_max_) 
    268296      ENDIF 
    269297 
    270298      IF (PRESENT(valid_min_)) THEN 
    271         CALL cxios_set_fieldgroup_valid_min(fieldgroup_hdl%daddr, valid_min_) 
     299        CALL cxios_set_fieldgroup_valid_min & 
     300      (fieldgroup_hdl%daddr, valid_min_) 
    272301      ENDIF 
    273302 
    … …  
    317346      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_min 
    318347 
    319       CALL xios(get_fieldgroup_handle)(fieldgroup_id,fieldgroup_hdl) 
     348      CALL xios(get_fieldgroup_handle) & 
     349      (fieldgroup_id,fieldgroup_hdl) 
    320350      CALL xios(get_fieldgroup_attr_hdl_)   & 
    321351      ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value  & 
    … …  
    419449 
    420450      IF (PRESENT(add_offset_)) THEN 
    421         CALL cxios_get_fieldgroup_add_offset(fieldgroup_hdl%daddr, add_offset_) 
     451        CALL cxios_get_fieldgroup_add_offset & 
     452      (fieldgroup_hdl%daddr, add_offset_) 
    422453      ENDIF 
    423454 
    424455      IF (PRESENT(axis_ref_)) THEN 
    425         CALL cxios_get_fieldgroup_axis_ref(fieldgroup_hdl%daddr, axis_ref_, len(axis_ref_)) 
     456        CALL cxios_get_fieldgroup_axis_ref & 
     457      (fieldgroup_hdl%daddr, axis_ref_, len(axis_ref_)) 
    426458      ENDIF 
    427459 
    428460      IF (PRESENT(compression_level_)) THEN 
    429         CALL cxios_get_fieldgroup_compression_level(fieldgroup_hdl%daddr, compression_level_) 
     461        CALL cxios_get_fieldgroup_compression_level & 
     462      (fieldgroup_hdl%daddr, compression_level_) 
    430463      ENDIF 
    431464 
    432465      IF (PRESENT(default_value_)) THEN 
    433         CALL cxios_get_fieldgroup_default_value(fieldgroup_hdl%daddr, default_value_) 
     466        CALL cxios_get_fieldgroup_default_value & 
     467      (fieldgroup_hdl%daddr, default_value_) 
    434468      ENDIF 
    435469 
    436470      IF (PRESENT(detect_missing_value_)) THEN 
    437         CALL cxios_get_fieldgroup_detect_missing_value(fieldgroup_hdl%daddr, detect_missing_value__tmp) 
     471        CALL cxios_get_fieldgroup_detect_missing_value & 
     472      (fieldgroup_hdl%daddr, detect_missing_value__tmp) 
    438473        detect_missing_value_ = detect_missing_value__tmp 
    439474      ENDIF 
    440475 
    441476      IF (PRESENT(domain_ref_)) THEN 
    442         CALL cxios_get_fieldgroup_domain_ref(fieldgroup_hdl%daddr, domain_ref_, len(domain_ref_)) 
     477        CALL cxios_get_fieldgroup_domain_ref & 
     478      (fieldgroup_hdl%daddr, domain_ref_, len(domain_ref_)) 
    443479      ENDIF 
    444480 
    445481      IF (PRESENT(enabled_)) THEN 
    446         CALL cxios_get_fieldgroup_enabled(fieldgroup_hdl%daddr, enabled__tmp) 
     482        CALL cxios_get_fieldgroup_enabled & 
     483      (fieldgroup_hdl%daddr, enabled__tmp) 
    447484        enabled_ = enabled__tmp 
    448485      ENDIF 
    449486 
    450487      IF (PRESENT(field_ref_)) THEN 
    451         CALL cxios_get_fieldgroup_field_ref(fieldgroup_hdl%daddr, field_ref_, len(field_ref_)) 
     488        CALL cxios_get_fieldgroup_field_ref & 
     489      (fieldgroup_hdl%daddr, field_ref_, len(field_ref_)) 
    452490      ENDIF 
    453491 
    454492      IF (PRESENT(freq_offset_)) THEN 
    455         CALL cxios_get_fieldgroup_freq_offset(fieldgroup_hdl%daddr, freq_offset_) 
     493        CALL cxios_get_fieldgroup_freq_offset & 
     494      (fieldgroup_hdl%daddr, freq_offset_) 
    456495      ENDIF 
    457496 
    458497      IF (PRESENT(freq_op_)) THEN 
    459         CALL cxios_get_fieldgroup_freq_op(fieldgroup_hdl%daddr, freq_op_) 
     498        CALL cxios_get_fieldgroup_freq_op & 
     499      (fieldgroup_hdl%daddr, freq_op_) 
    460500      ENDIF 
    461501 
    462502      IF (PRESENT(grid_path_)) THEN 
    463         CALL cxios_get_fieldgroup_grid_path(fieldgroup_hdl%daddr, grid_path_, len(grid_path_)) 
     503        CALL cxios_get_fieldgroup_grid_path & 
     504      (fieldgroup_hdl%daddr, grid_path_, len(grid_path_)) 
    464505      ENDIF 
    465506 
    466507      IF (PRESENT(grid_ref_)) THEN 
    467         CALL cxios_get_fieldgroup_grid_ref(fieldgroup_hdl%daddr, grid_ref_, len(grid_ref_)) 
     508        CALL cxios_get_fieldgroup_grid_ref & 
     509      (fieldgroup_hdl%daddr, grid_ref_, len(grid_ref_)) 
    468510      ENDIF 
    469511 
    470512      IF (PRESENT(group_ref_)) THEN 
    471         CALL cxios_get_fieldgroup_group_ref(fieldgroup_hdl%daddr, group_ref_, len(group_ref_)) 
     513        CALL cxios_get_fieldgroup_group_ref & 
     514      (fieldgroup_hdl%daddr, group_ref_, len(group_ref_)) 
    472515      ENDIF 
    473516 
    474517      IF (PRESENT(indexed_output_)) THEN 
    475         CALL cxios_get_fieldgroup_indexed_output(fieldgroup_hdl%daddr, indexed_output__tmp) 
     518        CALL cxios_get_fieldgroup_indexed_output & 
     519      (fieldgroup_hdl%daddr, indexed_output__tmp) 
    476520        indexed_output_ = indexed_output__tmp 
    477521      ENDIF 
    478522 
    479523      IF (PRESENT(level_)) THEN 
    480         CALL cxios_get_fieldgroup_level(fieldgroup_hdl%daddr, level_) 
     524        CALL cxios_get_fieldgroup_level & 
     525      (fieldgroup_hdl%daddr, level_) 
    481526      ENDIF 
    482527 
    483528      IF (PRESENT(long_name_)) THEN 
    484         CALL cxios_get_fieldgroup_long_name(fieldgroup_hdl%daddr, long_name_, len(long_name_)) 
     529        CALL cxios_get_fieldgroup_long_name & 
     530      (fieldgroup_hdl%daddr, long_name_, len(long_name_)) 
    485531      ENDIF 
    486532 
    487533      IF (PRESENT(name_)) THEN 
    488         CALL cxios_get_fieldgroup_name(fieldgroup_hdl%daddr, name_, len(name_)) 
     534        CALL cxios_get_fieldgroup_name & 
     535      (fieldgroup_hdl%daddr, name_, len(name_)) 
    489536      ENDIF 
    490537 
    491538      IF (PRESENT(operation_)) THEN 
    492         CALL cxios_get_fieldgroup_operation(fieldgroup_hdl%daddr, operation_, len(operation_)) 
     539        CALL cxios_get_fieldgroup_operation & 
     540      (fieldgroup_hdl%daddr, operation_, len(operation_)) 
    493541      ENDIF 
    494542 
    495543      IF (PRESENT(prec_)) THEN 
    496         CALL cxios_get_fieldgroup_prec(fieldgroup_hdl%daddr, prec_) 
     544        CALL cxios_get_fieldgroup_prec & 
     545      (fieldgroup_hdl%daddr, prec_) 
    497546      ENDIF 
    498547 
    499548      IF (PRESENT(read_access_)) THEN 
    500         CALL cxios_get_fieldgroup_read_access(fieldgroup_hdl%daddr, read_access__tmp) 
     549        CALL cxios_get_fieldgroup_read_access & 
     550      (fieldgroup_hdl%daddr, read_access__tmp) 
    501551        read_access_ = read_access__tmp 
    502552      ENDIF 
    503553 
    504554      IF (PRESENT(scalar_ref_)) THEN 
    505         CALL cxios_get_fieldgroup_scalar_ref(fieldgroup_hdl%daddr, scalar_ref_, len(scalar_ref_)) 
     555        CALL cxios_get_fieldgroup_scalar_ref & 
     556      (fieldgroup_hdl%daddr, scalar_ref_, len(scalar_ref_)) 
    506557      ENDIF 
    507558 
    508559      IF (PRESENT(scale_factor_)) THEN 
    509         CALL cxios_get_fieldgroup_scale_factor(fieldgroup_hdl%daddr, scale_factor_) 
     560        CALL cxios_get_fieldgroup_scale_factor & 
     561      (fieldgroup_hdl%daddr, scale_factor_) 
    510562      ENDIF 
    511563 
    512564      IF (PRESENT(standard_name_)) THEN 
    513         CALL cxios_get_fieldgroup_standard_name(fieldgroup_hdl%daddr, standard_name_, len(standard_name_)) 
     565        CALL cxios_get_fieldgroup_standard_name & 
     566      (fieldgroup_hdl%daddr, standard_name_, len(standard_name_)) 
    514567      ENDIF 
    515568 
    516569      IF (PRESENT(ts_enabled_)) THEN 
    517         CALL cxios_get_fieldgroup_ts_enabled(fieldgroup_hdl%daddr, ts_enabled__tmp) 
     570        CALL cxios_get_fieldgroup_ts_enabled & 
     571      (fieldgroup_hdl%daddr, ts_enabled__tmp) 
    518572        ts_enabled_ = ts_enabled__tmp 
    519573      ENDIF 
    520574 
    521575      IF (PRESENT(ts_split_freq_)) THEN 
    522         CALL cxios_get_fieldgroup_ts_split_freq(fieldgroup_hdl%daddr, ts_split_freq_) 
     576        CALL cxios_get_fieldgroup_ts_split_freq & 
     577      (fieldgroup_hdl%daddr, ts_split_freq_) 
    523578      ENDIF 
    524579 
    525580      IF (PRESENT(unit_)) THEN 
    526         CALL cxios_get_fieldgroup_unit(fieldgroup_hdl%daddr, unit_, len(unit_)) 
     581        CALL cxios_get_fieldgroup_unit & 
     582      (fieldgroup_hdl%daddr, unit_, len(unit_)) 
    527583      ENDIF 
    528584 
    529585      IF (PRESENT(valid_max_)) THEN 
    530         CALL cxios_get_fieldgroup_valid_max(fieldgroup_hdl%daddr, valid_max_) 
     586        CALL cxios_get_fieldgroup_valid_max & 
     587      (fieldgroup_hdl%daddr, valid_max_) 
    531588      ENDIF 
    532589 
    533590      IF (PRESENT(valid_min_)) THEN 
    534         CALL cxios_get_fieldgroup_valid_min(fieldgroup_hdl%daddr, valid_min_) 
     591        CALL cxios_get_fieldgroup_valid_min & 
     592      (fieldgroup_hdl%daddr, valid_min_) 
    535593      ENDIF 
    536594 
    … …  
    603661      LOGICAL(KIND=C_BOOL) :: valid_min_tmp 
    604662 
    605       CALL xios(get_fieldgroup_handle)(fieldgroup_id,fieldgroup_hdl) 
     663      CALL xios(get_fieldgroup_handle) & 
     664      (fieldgroup_id,fieldgroup_hdl) 
    606665      CALL xios(is_defined_fieldgroup_attr_hdl_)   & 
    607666      ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value  & 
    … …  
    751810 
    752811      IF (PRESENT(add_offset_)) THEN 
    753         add_offset__tmp = cxios_is_defined_fieldgroup_add_offset(fieldgroup_hdl%daddr) 
     812        add_offset__tmp = cxios_is_defined_fieldgroup_add_offset & 
     813      (fieldgroup_hdl%daddr) 
    754814        add_offset_ = add_offset__tmp 
    755815      ENDIF 
    756816 
    757817      IF (PRESENT(axis_ref_)) THEN 
    758         axis_ref__tmp = cxios_is_defined_fieldgroup_axis_ref(fieldgroup_hdl%daddr) 
     818        axis_ref__tmp = cxios_is_defined_fieldgroup_axis_ref & 
     819      (fieldgroup_hdl%daddr) 
    759820        axis_ref_ = axis_ref__tmp 
    760821      ENDIF 
    761822 
    762823      IF (PRESENT(compression_level_)) THEN 
    763         compression_level__tmp = cxios_is_defined_fieldgroup_compression_level(fieldgroup_hdl%daddr) 
     824        compression_level__tmp = cxios_is_defined_fieldgroup_compression_level & 
     825      (fieldgroup_hdl%daddr) 
    764826        compression_level_ = compression_level__tmp 
    765827      ENDIF 
    766828 
    767829      IF (PRESENT(default_value_)) THEN 
    768         default_value__tmp = cxios_is_defined_fieldgroup_default_value(fieldgroup_hdl%daddr) 
     830        default_value__tmp = cxios_is_defined_fieldgroup_default_value & 
     831      (fieldgroup_hdl%daddr) 
    769832        default_value_ = default_value__tmp 
    770833      ENDIF 
    771834 
    772835      IF (PRESENT(detect_missing_value_)) THEN 
    773         detect_missing_value__tmp = cxios_is_defined_fieldgroup_detect_missing_value(fieldgroup_hdl%daddr) 
     836        detect_missing_value__tmp = cxios_is_defined_fieldgroup_detect_missing_value & 
     837      (fieldgroup_hdl%daddr) 
    774838        detect_missing_value_ = detect_missing_value__tmp 
    775839      ENDIF 
    776840 
    777841      IF (PRESENT(domain_ref_)) THEN 
    778         domain_ref__tmp = cxios_is_defined_fieldgroup_domain_ref(fieldgroup_hdl%daddr) 
     842        domain_ref__tmp = cxios_is_defined_fieldgroup_domain_ref & 
     843      (fieldgroup_hdl%daddr) 
    779844        domain_ref_ = domain_ref__tmp 
    780845      ENDIF 
    781846 
    782847      IF (PRESENT(enabled_)) THEN 
    783         enabled__tmp = cxios_is_defined_fieldgroup_enabled(fieldgroup_hdl%daddr) 
     848        enabled__tmp = cxios_is_defined_fieldgroup_enabled & 
     849      (fieldgroup_hdl%daddr) 
    784850        enabled_ = enabled__tmp 
    785851      ENDIF 
    786852 
    787853      IF (PRESENT(field_ref_)) THEN 
    788         field_ref__tmp = cxios_is_defined_fieldgroup_field_ref(fieldgroup_hdl%daddr) 
     854        field_ref__tmp = cxios_is_defined_fieldgroup_field_ref & 
     855      (fieldgroup_hdl%daddr) 
    789856        field_ref_ = field_ref__tmp 
    790857      ENDIF 
    791858 
    792859      IF (PRESENT(freq_offset_)) THEN 
    793         freq_offset__tmp = cxios_is_defined_fieldgroup_freq_offset(fieldgroup_hdl%daddr) 
     860        freq_offset__tmp = cxios_is_defined_fieldgroup_freq_offset & 
     861      (fieldgroup_hdl%daddr) 
    794862        freq_offset_ = freq_offset__tmp 
    795863      ENDIF 
    796864 
    797865      IF (PRESENT(freq_op_)) THEN 
    798         freq_op__tmp = cxios_is_defined_fieldgroup_freq_op(fieldgroup_hdl%daddr) 
     866        freq_op__tmp = cxios_is_defined_fieldgroup_freq_op & 
     867      (fieldgroup_hdl%daddr) 
    799868        freq_op_ = freq_op__tmp 
    800869      ENDIF 
    801870 
    802871      IF (PRESENT(grid_path_)) THEN 
    803         grid_path__tmp = cxios_is_defined_fieldgroup_grid_path(fieldgroup_hdl%daddr) 
     872        grid_path__tmp = cxios_is_defined_fieldgroup_grid_path & 
     873      (fieldgroup_hdl%daddr) 
    804874        grid_path_ = grid_path__tmp 
    805875      ENDIF 
    806876 
    807877      IF (PRESENT(grid_ref_)) THEN 
    808         grid_ref__tmp = cxios_is_defined_fieldgroup_grid_ref(fieldgroup_hdl%daddr) 
     878        grid_ref__tmp = cxios_is_defined_fieldgroup_grid_ref & 
     879      (fieldgroup_hdl%daddr) 
    809880        grid_ref_ = grid_ref__tmp 
    810881      ENDIF 
    811882 
    812883      IF (PRESENT(group_ref_)) THEN 
    813         group_ref__tmp = cxios_is_defined_fieldgroup_group_ref(fieldgroup_hdl%daddr) 
     884        group_ref__tmp = cxios_is_defined_fieldgroup_group_ref & 
     885      (fieldgroup_hdl%daddr) 
    814886        group_ref_ = group_ref__tmp 
    815887      ENDIF 
    816888 
    817889      IF (PRESENT(indexed_output_)) THEN 
    818         indexed_output__tmp = cxios_is_defined_fieldgroup_indexed_output(fieldgroup_hdl%daddr) 
     890        indexed_output__tmp = cxios_is_defined_fieldgroup_indexed_output & 
     891      (fieldgroup_hdl%daddr) 
    819892        indexed_output_ = indexed_output__tmp 
    820893      ENDIF 
    821894 
    822895      IF (PRESENT(level_)) THEN 
    823         level__tmp = cxios_is_defined_fieldgroup_level(fieldgroup_hdl%daddr) 
     896        level__tmp = cxios_is_defined_fieldgroup_level & 
     897      (fieldgroup_hdl%daddr) 
    824898        level_ = level__tmp 
    825899      ENDIF 
    826900 
    827901      IF (PRESENT(long_name_)) THEN 
    828         long_name__tmp = cxios_is_defined_fieldgroup_long_name(fieldgroup_hdl%daddr) 
     902        long_name__tmp = cxios_is_defined_fieldgroup_long_name & 
     903      (fieldgroup_hdl%daddr) 
    829904        long_name_ = long_name__tmp 
    830905      ENDIF 
    831906 
    832907      IF (PRESENT(name_)) THEN 
    833         name__tmp = cxios_is_defined_fieldgroup_name(fieldgroup_hdl%daddr) 
     908        name__tmp = cxios_is_defined_fieldgroup_name & 
     909      (fieldgroup_hdl%daddr) 
    834910        name_ = name__tmp 
    835911      ENDIF 
    836912 
    837913      IF (PRESENT(operation_)) THEN 
    838         operation__tmp = cxios_is_defined_fieldgroup_operation(fieldgroup_hdl%daddr) 
     914        operation__tmp = cxios_is_defined_fieldgroup_operation & 
     915      (fieldgroup_hdl%daddr) 
    839916        operation_ = operation__tmp 
    840917      ENDIF 
    841918 
    842919      IF (PRESENT(prec_)) THEN 
    843         prec__tmp = cxios_is_defined_fieldgroup_prec(fieldgroup_hdl%daddr) 
     920        prec__tmp = cxios_is_defined_fieldgroup_prec & 
     921      (fieldgroup_hdl%daddr) 
    844922        prec_ = prec__tmp 
    845923      ENDIF 
    846924 
    847925      IF (PRESENT(read_access_)) THEN 
    848         read_access__tmp = cxios_is_defined_fieldgroup_read_access(fieldgroup_hdl%daddr) 
     926        read_access__tmp = cxios_is_defined_fieldgroup_read_access & 
     927      (fieldgroup_hdl%daddr) 
    849928        read_access_ = read_access__tmp 
    850929      ENDIF 
    851930 
    852931      IF (PRESENT(scalar_ref_)) THEN 
    853         scalar_ref__tmp = cxios_is_defined_fieldgroup_scalar_ref(fieldgroup_hdl%daddr) 
     932        scalar_ref__tmp = cxios_is_defined_fieldgroup_scalar_ref & 
     933      (fieldgroup_hdl%daddr) 
    854934        scalar_ref_ = scalar_ref__tmp 
    855935      ENDIF 
    856936 
    857937      IF (PRESENT(scale_factor_)) THEN 
    858         scale_factor__tmp = cxios_is_defined_fieldgroup_scale_factor(fieldgroup_hdl%daddr) 
     938        scale_factor__tmp = cxios_is_defined_fieldgroup_scale_factor & 
     939      (fieldgroup_hdl%daddr) 
    859940        scale_factor_ = scale_factor__tmp 
    860941      ENDIF 
    861942 
    862943      IF (PRESENT(standard_name_)) THEN 
    863         standard_name__tmp = cxios_is_defined_fieldgroup_standard_name(fieldgroup_hdl%daddr) 
     944        standard_name__tmp = cxios_is_defined_fieldgroup_standard_name & 
     945      (fieldgroup_hdl%daddr) 
    864946        standard_name_ = standard_name__tmp 
    865947      ENDIF 
    866948 
    867949      IF (PRESENT(ts_enabled_)) THEN 
    868         ts_enabled__tmp = cxios_is_defined_fieldgroup_ts_enabled(fieldgroup_hdl%daddr) 
     950        ts_enabled__tmp = cxios_is_defined_fieldgroup_ts_enabled & 
     951      (fieldgroup_hdl%daddr) 
    869952        ts_enabled_ = ts_enabled__tmp 
    870953      ENDIF 
    871954 
    872955      IF (PRESENT(ts_split_freq_)) THEN 
    873         ts_split_freq__tmp = cxios_is_defined_fieldgroup_ts_split_freq(fieldgroup_hdl%daddr) 
     956        ts_split_freq__tmp = cxios_is_defined_fieldgroup_ts_split_freq & 
     957      (fieldgroup_hdl%daddr) 
    874958        ts_split_freq_ = ts_split_freq__tmp 
    875959      ENDIF 
    876960 
    877961      IF (PRESENT(unit_)) THEN 
    878         unit__tmp = cxios_is_defined_fieldgroup_unit(fieldgroup_hdl%daddr) 
     962        unit__tmp = cxios_is_defined_fieldgroup_unit & 
     963      (fieldgroup_hdl%daddr) 
    879964        unit_ = unit__tmp 
    880965      ENDIF 
    881966 
    882967      IF (PRESENT(valid_max_)) THEN 
    883         valid_max__tmp = cxios_is_defined_fieldgroup_valid_max(fieldgroup_hdl%daddr) 
     968        valid_max__tmp = cxios_is_defined_fieldgroup_valid_max & 
     969      (fieldgroup_hdl%daddr) 
    884970        valid_max_ = valid_max__tmp 
    885971      ENDIF 
    886972 
    887973      IF (PRESENT(valid_min_)) THEN 
    888         valid_min__tmp = cxios_is_defined_fieldgroup_valid_min(fieldgroup_hdl%daddr) 
     974        valid_min__tmp = cxios_is_defined_fieldgroup_valid_min & 
     975      (fieldgroup_hdl%daddr) 
    889976        valid_min_ = valid_min__tmp 
    890977      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.