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/ifield_attr.F90

    r891 r966  
    5353      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_min 
    5454 
    55       CALL xios(get_field_handle)(field_id,field_hdl) 
     55      CALL xios(get_field_handle) & 
     56      (field_id,field_hdl) 
    5657      CALL xios(set_field_attr_hdl_)   & 
    5758      ( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  & 
    … …  
    153154 
    154155      IF (PRESENT(add_offset_)) THEN 
    155         CALL cxios_set_field_add_offset(field_hdl%daddr, add_offset_) 
     156        CALL cxios_set_field_add_offset & 
     157      (field_hdl%daddr, add_offset_) 
    156158      ENDIF 
    157159 
    158160      IF (PRESENT(axis_ref_)) THEN 
    159         CALL cxios_set_field_axis_ref(field_hdl%daddr, axis_ref_, len(axis_ref_)) 
     161        CALL cxios_set_field_axis_ref & 
     162      (field_hdl%daddr, axis_ref_, len(axis_ref_)) 
    160163      ENDIF 
    161164 
    162165      IF (PRESENT(compression_level_)) THEN 
    163         CALL cxios_set_field_compression_level(field_hdl%daddr, compression_level_) 
     166        CALL cxios_set_field_compression_level & 
     167      (field_hdl%daddr, compression_level_) 
    164168      ENDIF 
    165169 
    166170      IF (PRESENT(default_value_)) THEN 
    167         CALL cxios_set_field_default_value(field_hdl%daddr, default_value_) 
     171        CALL cxios_set_field_default_value & 
     172      (field_hdl%daddr, default_value_) 
    168173      ENDIF 
    169174 
    170175      IF (PRESENT(detect_missing_value_)) THEN 
    171176        detect_missing_value__tmp = detect_missing_value_ 
    172         CALL cxios_set_field_detect_missing_value(field_hdl%daddr, detect_missing_value__tmp) 
     177        CALL cxios_set_field_detect_missing_value & 
     178      (field_hdl%daddr, detect_missing_value__tmp) 
    173179      ENDIF 
    174180 
    175181      IF (PRESENT(domain_ref_)) THEN 
    176         CALL cxios_set_field_domain_ref(field_hdl%daddr, domain_ref_, len(domain_ref_)) 
     182        CALL cxios_set_field_domain_ref & 
     183      (field_hdl%daddr, domain_ref_, len(domain_ref_)) 
    177184      ENDIF 
    178185 
    179186      IF (PRESENT(enabled_)) THEN 
    180187        enabled__tmp = enabled_ 
    181         CALL cxios_set_field_enabled(field_hdl%daddr, enabled__tmp) 
     188        CALL cxios_set_field_enabled & 
     189      (field_hdl%daddr, enabled__tmp) 
    182190      ENDIF 
    183191 
    184192      IF (PRESENT(field_ref_)) THEN 
    185         CALL cxios_set_field_field_ref(field_hdl%daddr, field_ref_, len(field_ref_)) 
     193        CALL cxios_set_field_field_ref & 
     194      (field_hdl%daddr, field_ref_, len(field_ref_)) 
    186195      ENDIF 
    187196 
    188197      IF (PRESENT(freq_offset_)) THEN 
    189         CALL cxios_set_field_freq_offset(field_hdl%daddr, freq_offset_) 
     198        CALL cxios_set_field_freq_offset & 
     199      (field_hdl%daddr, freq_offset_) 
    190200      ENDIF 
    191201 
    192202      IF (PRESENT(freq_op_)) THEN 
    193         CALL cxios_set_field_freq_op(field_hdl%daddr, freq_op_) 
     203        CALL cxios_set_field_freq_op & 
     204      (field_hdl%daddr, freq_op_) 
    194205      ENDIF 
    195206 
    196207      IF (PRESENT(grid_path_)) THEN 
    197         CALL cxios_set_field_grid_path(field_hdl%daddr, grid_path_, len(grid_path_)) 
     208        CALL cxios_set_field_grid_path & 
     209      (field_hdl%daddr, grid_path_, len(grid_path_)) 
    198210      ENDIF 
    199211 
    200212      IF (PRESENT(grid_ref_)) THEN 
    201         CALL cxios_set_field_grid_ref(field_hdl%daddr, grid_ref_, len(grid_ref_)) 
     213        CALL cxios_set_field_grid_ref & 
     214      (field_hdl%daddr, grid_ref_, len(grid_ref_)) 
    202215      ENDIF 
    203216 
    204217      IF (PRESENT(indexed_output_)) THEN 
    205218        indexed_output__tmp = indexed_output_ 
    206         CALL cxios_set_field_indexed_output(field_hdl%daddr, indexed_output__tmp) 
     219        CALL cxios_set_field_indexed_output & 
     220      (field_hdl%daddr, indexed_output__tmp) 
    207221      ENDIF 
    208222 
    209223      IF (PRESENT(level_)) THEN 
    210         CALL cxios_set_field_level(field_hdl%daddr, level_) 
     224        CALL cxios_set_field_level & 
     225      (field_hdl%daddr, level_) 
    211226      ENDIF 
    212227 
    213228      IF (PRESENT(long_name_)) THEN 
    214         CALL cxios_set_field_long_name(field_hdl%daddr, long_name_, len(long_name_)) 
     229        CALL cxios_set_field_long_name & 
     230      (field_hdl%daddr, long_name_, len(long_name_)) 
    215231      ENDIF 
    216232 
    217233      IF (PRESENT(name_)) THEN 
    218         CALL cxios_set_field_name(field_hdl%daddr, name_, len(name_)) 
     234        CALL cxios_set_field_name & 
     235      (field_hdl%daddr, name_, len(name_)) 
    219236      ENDIF 
    220237 
    221238      IF (PRESENT(operation_)) THEN 
    222         CALL cxios_set_field_operation(field_hdl%daddr, operation_, len(operation_)) 
     239        CALL cxios_set_field_operation & 
     240      (field_hdl%daddr, operation_, len(operation_)) 
    223241      ENDIF 
    224242 
    225243      IF (PRESENT(prec_)) THEN 
    226         CALL cxios_set_field_prec(field_hdl%daddr, prec_) 
     244        CALL cxios_set_field_prec & 
     245      (field_hdl%daddr, prec_) 
    227246      ENDIF 
    228247 
    229248      IF (PRESENT(read_access_)) THEN 
    230249        read_access__tmp = read_access_ 
    231         CALL cxios_set_field_read_access(field_hdl%daddr, read_access__tmp) 
     250        CALL cxios_set_field_read_access & 
     251      (field_hdl%daddr, read_access__tmp) 
    232252      ENDIF 
    233253 
    234254      IF (PRESENT(scalar_ref_)) THEN 
    235         CALL cxios_set_field_scalar_ref(field_hdl%daddr, scalar_ref_, len(scalar_ref_)) 
     255        CALL cxios_set_field_scalar_ref & 
     256      (field_hdl%daddr, scalar_ref_, len(scalar_ref_)) 
    236257      ENDIF 
    237258 
    238259      IF (PRESENT(scale_factor_)) THEN 
    239         CALL cxios_set_field_scale_factor(field_hdl%daddr, scale_factor_) 
     260        CALL cxios_set_field_scale_factor & 
     261      (field_hdl%daddr, scale_factor_) 
    240262      ENDIF 
    241263 
    242264      IF (PRESENT(standard_name_)) THEN 
    243         CALL cxios_set_field_standard_name(field_hdl%daddr, standard_name_, len(standard_name_)) 
     265        CALL cxios_set_field_standard_name & 
     266      (field_hdl%daddr, standard_name_, len(standard_name_)) 
    244267      ENDIF 
    245268 
    246269      IF (PRESENT(ts_enabled_)) THEN 
    247270        ts_enabled__tmp = ts_enabled_ 
    248         CALL cxios_set_field_ts_enabled(field_hdl%daddr, ts_enabled__tmp) 
     271        CALL cxios_set_field_ts_enabled & 
     272      (field_hdl%daddr, ts_enabled__tmp) 
    249273      ENDIF 
    250274 
    251275      IF (PRESENT(ts_split_freq_)) THEN 
    252         CALL cxios_set_field_ts_split_freq(field_hdl%daddr, ts_split_freq_) 
     276        CALL cxios_set_field_ts_split_freq & 
     277      (field_hdl%daddr, ts_split_freq_) 
    253278      ENDIF 
    254279 
    255280      IF (PRESENT(unit_)) THEN 
    256         CALL cxios_set_field_unit(field_hdl%daddr, unit_, len(unit_)) 
     281        CALL cxios_set_field_unit & 
     282      (field_hdl%daddr, unit_, len(unit_)) 
    257283      ENDIF 
    258284 
    259285      IF (PRESENT(valid_max_)) THEN 
    260         CALL cxios_set_field_valid_max(field_hdl%daddr, valid_max_) 
     286        CALL cxios_set_field_valid_max & 
     287      (field_hdl%daddr, valid_max_) 
    261288      ENDIF 
    262289 
    263290      IF (PRESENT(valid_min_)) THEN 
    264         CALL cxios_set_field_valid_min(field_hdl%daddr, valid_min_) 
     291        CALL cxios_set_field_valid_min & 
     292      (field_hdl%daddr, valid_min_) 
    265293      ENDIF 
    266294 
    … …  
    309337      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_min 
    310338 
    311       CALL xios(get_field_handle)(field_id,field_hdl) 
     339      CALL xios(get_field_handle) & 
     340      (field_id,field_hdl) 
    312341      CALL xios(get_field_attr_hdl_)   & 
    313342      ( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  & 
    … …  
    409438 
    410439      IF (PRESENT(add_offset_)) THEN 
    411         CALL cxios_get_field_add_offset(field_hdl%daddr, add_offset_) 
     440        CALL cxios_get_field_add_offset & 
     441      (field_hdl%daddr, add_offset_) 
    412442      ENDIF 
    413443 
    414444      IF (PRESENT(axis_ref_)) THEN 
    415         CALL cxios_get_field_axis_ref(field_hdl%daddr, axis_ref_, len(axis_ref_)) 
     445        CALL cxios_get_field_axis_ref & 
     446      (field_hdl%daddr, axis_ref_, len(axis_ref_)) 
    416447      ENDIF 
    417448 
    418449      IF (PRESENT(compression_level_)) THEN 
    419         CALL cxios_get_field_compression_level(field_hdl%daddr, compression_level_) 
     450        CALL cxios_get_field_compression_level & 
     451      (field_hdl%daddr, compression_level_) 
    420452      ENDIF 
    421453 
    422454      IF (PRESENT(default_value_)) THEN 
    423         CALL cxios_get_field_default_value(field_hdl%daddr, default_value_) 
     455        CALL cxios_get_field_default_value & 
     456      (field_hdl%daddr, default_value_) 
    424457      ENDIF 
    425458 
    426459      IF (PRESENT(detect_missing_value_)) THEN 
    427         CALL cxios_get_field_detect_missing_value(field_hdl%daddr, detect_missing_value__tmp) 
     460        CALL cxios_get_field_detect_missing_value & 
     461      (field_hdl%daddr, detect_missing_value__tmp) 
    428462        detect_missing_value_ = detect_missing_value__tmp 
    429463      ENDIF 
    430464 
    431465      IF (PRESENT(domain_ref_)) THEN 
    432         CALL cxios_get_field_domain_ref(field_hdl%daddr, domain_ref_, len(domain_ref_)) 
     466        CALL cxios_get_field_domain_ref & 
     467      (field_hdl%daddr, domain_ref_, len(domain_ref_)) 
    433468      ENDIF 
    434469 
    435470      IF (PRESENT(enabled_)) THEN 
    436         CALL cxios_get_field_enabled(field_hdl%daddr, enabled__tmp) 
     471        CALL cxios_get_field_enabled & 
     472      (field_hdl%daddr, enabled__tmp) 
    437473        enabled_ = enabled__tmp 
    438474      ENDIF 
    439475 
    440476      IF (PRESENT(field_ref_)) THEN 
    441         CALL cxios_get_field_field_ref(field_hdl%daddr, field_ref_, len(field_ref_)) 
     477        CALL cxios_get_field_field_ref & 
     478      (field_hdl%daddr, field_ref_, len(field_ref_)) 
    442479      ENDIF 
    443480 
    444481      IF (PRESENT(freq_offset_)) THEN 
    445         CALL cxios_get_field_freq_offset(field_hdl%daddr, freq_offset_) 
     482        CALL cxios_get_field_freq_offset & 
     483      (field_hdl%daddr, freq_offset_) 
    446484      ENDIF 
    447485 
    448486      IF (PRESENT(freq_op_)) THEN 
    449         CALL cxios_get_field_freq_op(field_hdl%daddr, freq_op_) 
     487        CALL cxios_get_field_freq_op & 
     488      (field_hdl%daddr, freq_op_) 
    450489      ENDIF 
    451490 
    452491      IF (PRESENT(grid_path_)) THEN 
    453         CALL cxios_get_field_grid_path(field_hdl%daddr, grid_path_, len(grid_path_)) 
     492        CALL cxios_get_field_grid_path & 
     493      (field_hdl%daddr, grid_path_, len(grid_path_)) 
    454494      ENDIF 
    455495 
    456496      IF (PRESENT(grid_ref_)) THEN 
    457         CALL cxios_get_field_grid_ref(field_hdl%daddr, grid_ref_, len(grid_ref_)) 
     497        CALL cxios_get_field_grid_ref & 
     498      (field_hdl%daddr, grid_ref_, len(grid_ref_)) 
    458499      ENDIF 
    459500 
    460501      IF (PRESENT(indexed_output_)) THEN 
    461         CALL cxios_get_field_indexed_output(field_hdl%daddr, indexed_output__tmp) 
     502        CALL cxios_get_field_indexed_output & 
     503      (field_hdl%daddr, indexed_output__tmp) 
    462504        indexed_output_ = indexed_output__tmp 
    463505      ENDIF 
    464506 
    465507      IF (PRESENT(level_)) THEN 
    466         CALL cxios_get_field_level(field_hdl%daddr, level_) 
     508        CALL cxios_get_field_level & 
     509      (field_hdl%daddr, level_) 
    467510      ENDIF 
    468511 
    469512      IF (PRESENT(long_name_)) THEN 
    470         CALL cxios_get_field_long_name(field_hdl%daddr, long_name_, len(long_name_)) 
     513        CALL cxios_get_field_long_name & 
     514      (field_hdl%daddr, long_name_, len(long_name_)) 
    471515      ENDIF 
    472516 
    473517      IF (PRESENT(name_)) THEN 
    474         CALL cxios_get_field_name(field_hdl%daddr, name_, len(name_)) 
     518        CALL cxios_get_field_name & 
     519      (field_hdl%daddr, name_, len(name_)) 
    475520      ENDIF 
    476521 
    477522      IF (PRESENT(operation_)) THEN 
    478         CALL cxios_get_field_operation(field_hdl%daddr, operation_, len(operation_)) 
     523        CALL cxios_get_field_operation & 
     524      (field_hdl%daddr, operation_, len(operation_)) 
    479525      ENDIF 
    480526 
    481527      IF (PRESENT(prec_)) THEN 
    482         CALL cxios_get_field_prec(field_hdl%daddr, prec_) 
     528        CALL cxios_get_field_prec & 
     529      (field_hdl%daddr, prec_) 
    483530      ENDIF 
    484531 
    485532      IF (PRESENT(read_access_)) THEN 
    486         CALL cxios_get_field_read_access(field_hdl%daddr, read_access__tmp) 
     533        CALL cxios_get_field_read_access & 
     534      (field_hdl%daddr, read_access__tmp) 
    487535        read_access_ = read_access__tmp 
    488536      ENDIF 
    489537 
    490538      IF (PRESENT(scalar_ref_)) THEN 
    491         CALL cxios_get_field_scalar_ref(field_hdl%daddr, scalar_ref_, len(scalar_ref_)) 
     539        CALL cxios_get_field_scalar_ref & 
     540      (field_hdl%daddr, scalar_ref_, len(scalar_ref_)) 
    492541      ENDIF 
    493542 
    494543      IF (PRESENT(scale_factor_)) THEN 
    495         CALL cxios_get_field_scale_factor(field_hdl%daddr, scale_factor_) 
     544        CALL cxios_get_field_scale_factor & 
     545      (field_hdl%daddr, scale_factor_) 
    496546      ENDIF 
    497547 
    498548      IF (PRESENT(standard_name_)) THEN 
    499         CALL cxios_get_field_standard_name(field_hdl%daddr, standard_name_, len(standard_name_)) 
     549        CALL cxios_get_field_standard_name & 
     550      (field_hdl%daddr, standard_name_, len(standard_name_)) 
    500551      ENDIF 
    501552 
    502553      IF (PRESENT(ts_enabled_)) THEN 
    503         CALL cxios_get_field_ts_enabled(field_hdl%daddr, ts_enabled__tmp) 
     554        CALL cxios_get_field_ts_enabled & 
     555      (field_hdl%daddr, ts_enabled__tmp) 
    504556        ts_enabled_ = ts_enabled__tmp 
    505557      ENDIF 
    506558 
    507559      IF (PRESENT(ts_split_freq_)) THEN 
    508         CALL cxios_get_field_ts_split_freq(field_hdl%daddr, ts_split_freq_) 
     560        CALL cxios_get_field_ts_split_freq & 
     561      (field_hdl%daddr, ts_split_freq_) 
    509562      ENDIF 
    510563 
    511564      IF (PRESENT(unit_)) THEN 
    512         CALL cxios_get_field_unit(field_hdl%daddr, unit_, len(unit_)) 
     565        CALL cxios_get_field_unit & 
     566      (field_hdl%daddr, unit_, len(unit_)) 
    513567      ENDIF 
    514568 
    515569      IF (PRESENT(valid_max_)) THEN 
    516         CALL cxios_get_field_valid_max(field_hdl%daddr, valid_max_) 
     570        CALL cxios_get_field_valid_max & 
     571      (field_hdl%daddr, valid_max_) 
    517572      ENDIF 
    518573 
    519574      IF (PRESENT(valid_min_)) THEN 
    520         CALL cxios_get_field_valid_min(field_hdl%daddr, valid_min_) 
     575        CALL cxios_get_field_valid_min & 
     576      (field_hdl%daddr, valid_min_) 
    521577      ENDIF 
    522578 
    … …  
    587643      LOGICAL(KIND=C_BOOL) :: valid_min_tmp 
    588644 
    589       CALL xios(get_field_handle)(field_id,field_hdl) 
     645      CALL xios(get_field_handle) & 
     646      (field_id,field_hdl) 
    590647      CALL xios(is_defined_field_attr_hdl_)   & 
    591648      ( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  & 
    … …  
    731788 
    732789      IF (PRESENT(add_offset_)) THEN 
    733         add_offset__tmp = cxios_is_defined_field_add_offset(field_hdl%daddr) 
     790        add_offset__tmp = cxios_is_defined_field_add_offset & 
     791      (field_hdl%daddr) 
    734792        add_offset_ = add_offset__tmp 
    735793      ENDIF 
    736794 
    737795      IF (PRESENT(axis_ref_)) THEN 
    738         axis_ref__tmp = cxios_is_defined_field_axis_ref(field_hdl%daddr) 
     796        axis_ref__tmp = cxios_is_defined_field_axis_ref & 
     797      (field_hdl%daddr) 
    739798        axis_ref_ = axis_ref__tmp 
    740799      ENDIF 
    741800 
    742801      IF (PRESENT(compression_level_)) THEN 
    743         compression_level__tmp = cxios_is_defined_field_compression_level(field_hdl%daddr) 
     802        compression_level__tmp = cxios_is_defined_field_compression_level & 
     803      (field_hdl%daddr) 
    744804        compression_level_ = compression_level__tmp 
    745805      ENDIF 
    746806 
    747807      IF (PRESENT(default_value_)) THEN 
    748         default_value__tmp = cxios_is_defined_field_default_value(field_hdl%daddr) 
     808        default_value__tmp = cxios_is_defined_field_default_value & 
     809      (field_hdl%daddr) 
    749810        default_value_ = default_value__tmp 
    750811      ENDIF 
    751812 
    752813      IF (PRESENT(detect_missing_value_)) THEN 
    753         detect_missing_value__tmp = cxios_is_defined_field_detect_missing_value(field_hdl%daddr) 
     814        detect_missing_value__tmp = cxios_is_defined_field_detect_missing_value & 
     815      (field_hdl%daddr) 
    754816        detect_missing_value_ = detect_missing_value__tmp 
    755817      ENDIF 
    756818 
    757819      IF (PRESENT(domain_ref_)) THEN 
    758         domain_ref__tmp = cxios_is_defined_field_domain_ref(field_hdl%daddr) 
     820        domain_ref__tmp = cxios_is_defined_field_domain_ref & 
     821      (field_hdl%daddr) 
    759822        domain_ref_ = domain_ref__tmp 
    760823      ENDIF 
    761824 
    762825      IF (PRESENT(enabled_)) THEN 
    763         enabled__tmp = cxios_is_defined_field_enabled(field_hdl%daddr) 
     826        enabled__tmp = cxios_is_defined_field_enabled & 
     827      (field_hdl%daddr) 
    764828        enabled_ = enabled__tmp 
    765829      ENDIF 
    766830 
    767831      IF (PRESENT(field_ref_)) THEN 
    768         field_ref__tmp = cxios_is_defined_field_field_ref(field_hdl%daddr) 
     832        field_ref__tmp = cxios_is_defined_field_field_ref & 
     833      (field_hdl%daddr) 
    769834        field_ref_ = field_ref__tmp 
    770835      ENDIF 
    771836 
    772837      IF (PRESENT(freq_offset_)) THEN 
    773         freq_offset__tmp = cxios_is_defined_field_freq_offset(field_hdl%daddr) 
     838        freq_offset__tmp = cxios_is_defined_field_freq_offset & 
     839      (field_hdl%daddr) 
    774840        freq_offset_ = freq_offset__tmp 
    775841      ENDIF 
    776842 
    777843      IF (PRESENT(freq_op_)) THEN 
    778         freq_op__tmp = cxios_is_defined_field_freq_op(field_hdl%daddr) 
     844        freq_op__tmp = cxios_is_defined_field_freq_op & 
     845      (field_hdl%daddr) 
    779846        freq_op_ = freq_op__tmp 
    780847      ENDIF 
    781848 
    782849      IF (PRESENT(grid_path_)) THEN 
    783         grid_path__tmp = cxios_is_defined_field_grid_path(field_hdl%daddr) 
     850        grid_path__tmp = cxios_is_defined_field_grid_path & 
     851      (field_hdl%daddr) 
    784852        grid_path_ = grid_path__tmp 
    785853      ENDIF 
    786854 
    787855      IF (PRESENT(grid_ref_)) THEN 
    788         grid_ref__tmp = cxios_is_defined_field_grid_ref(field_hdl%daddr) 
     856        grid_ref__tmp = cxios_is_defined_field_grid_ref & 
     857      (field_hdl%daddr) 
    789858        grid_ref_ = grid_ref__tmp 
    790859      ENDIF 
    791860 
    792861      IF (PRESENT(indexed_output_)) THEN 
    793         indexed_output__tmp = cxios_is_defined_field_indexed_output(field_hdl%daddr) 
     862        indexed_output__tmp = cxios_is_defined_field_indexed_output & 
     863      (field_hdl%daddr) 
    794864        indexed_output_ = indexed_output__tmp 
    795865      ENDIF 
    796866 
    797867      IF (PRESENT(level_)) THEN 
    798         level__tmp = cxios_is_defined_field_level(field_hdl%daddr) 
     868        level__tmp = cxios_is_defined_field_level & 
     869      (field_hdl%daddr) 
    799870        level_ = level__tmp 
    800871      ENDIF 
    801872 
    802873      IF (PRESENT(long_name_)) THEN 
    803         long_name__tmp = cxios_is_defined_field_long_name(field_hdl%daddr) 
     874        long_name__tmp = cxios_is_defined_field_long_name & 
     875      (field_hdl%daddr) 
    804876        long_name_ = long_name__tmp 
    805877      ENDIF 
    806878 
    807879      IF (PRESENT(name_)) THEN 
    808         name__tmp = cxios_is_defined_field_name(field_hdl%daddr) 
     880        name__tmp = cxios_is_defined_field_name & 
     881      (field_hdl%daddr) 
    809882        name_ = name__tmp 
    810883      ENDIF 
    811884 
    812885      IF (PRESENT(operation_)) THEN 
    813         operation__tmp = cxios_is_defined_field_operation(field_hdl%daddr) 
     886        operation__tmp = cxios_is_defined_field_operation & 
     887      (field_hdl%daddr) 
    814888        operation_ = operation__tmp 
    815889      ENDIF 
    816890 
    817891      IF (PRESENT(prec_)) THEN 
    818         prec__tmp = cxios_is_defined_field_prec(field_hdl%daddr) 
     892        prec__tmp = cxios_is_defined_field_prec & 
     893      (field_hdl%daddr) 
    819894        prec_ = prec__tmp 
    820895      ENDIF 
    821896 
    822897      IF (PRESENT(read_access_)) THEN 
    823         read_access__tmp = cxios_is_defined_field_read_access(field_hdl%daddr) 
     898        read_access__tmp = cxios_is_defined_field_read_access & 
     899      (field_hdl%daddr) 
    824900        read_access_ = read_access__tmp 
    825901      ENDIF 
    826902 
    827903      IF (PRESENT(scalar_ref_)) THEN 
    828         scalar_ref__tmp = cxios_is_defined_field_scalar_ref(field_hdl%daddr) 
     904        scalar_ref__tmp = cxios_is_defined_field_scalar_ref & 
     905      (field_hdl%daddr) 
    829906        scalar_ref_ = scalar_ref__tmp 
    830907      ENDIF 
    831908 
    832909      IF (PRESENT(scale_factor_)) THEN 
    833         scale_factor__tmp = cxios_is_defined_field_scale_factor(field_hdl%daddr) 
     910        scale_factor__tmp = cxios_is_defined_field_scale_factor & 
     911      (field_hdl%daddr) 
    834912        scale_factor_ = scale_factor__tmp 
    835913      ENDIF 
    836914 
    837915      IF (PRESENT(standard_name_)) THEN 
    838         standard_name__tmp = cxios_is_defined_field_standard_name(field_hdl%daddr) 
     916        standard_name__tmp = cxios_is_defined_field_standard_name & 
     917      (field_hdl%daddr) 
    839918        standard_name_ = standard_name__tmp 
    840919      ENDIF 
    841920 
    842921      IF (PRESENT(ts_enabled_)) THEN 
    843         ts_enabled__tmp = cxios_is_defined_field_ts_enabled(field_hdl%daddr) 
     922        ts_enabled__tmp = cxios_is_defined_field_ts_enabled & 
     923      (field_hdl%daddr) 
    844924        ts_enabled_ = ts_enabled__tmp 
    845925      ENDIF 
    846926 
    847927      IF (PRESENT(ts_split_freq_)) THEN 
    848         ts_split_freq__tmp = cxios_is_defined_field_ts_split_freq(field_hdl%daddr) 
     928        ts_split_freq__tmp = cxios_is_defined_field_ts_split_freq & 
     929      (field_hdl%daddr) 
    849930        ts_split_freq_ = ts_split_freq__tmp 
    850931      ENDIF 
    851932 
    852933      IF (PRESENT(unit_)) THEN 
    853         unit__tmp = cxios_is_defined_field_unit(field_hdl%daddr) 
     934        unit__tmp = cxios_is_defined_field_unit & 
     935      (field_hdl%daddr) 
    854936        unit_ = unit__tmp 
    855937      ENDIF 
    856938 
    857939      IF (PRESENT(valid_max_)) THEN 
    858         valid_max__tmp = cxios_is_defined_field_valid_max(field_hdl%daddr) 
     940        valid_max__tmp = cxios_is_defined_field_valid_max & 
     941      (field_hdl%daddr) 
    859942        valid_max_ = valid_max__tmp 
    860943      ENDIF 
    861944 
    862945      IF (PRESENT(valid_min_)) THEN 
    863         valid_min__tmp = cxios_is_defined_field_valid_min(field_hdl%daddr) 
     946        valid_min__tmp = cxios_is_defined_field_valid_min & 
     947      (field_hdl%daddr) 
    864948        valid_min_ = valid_min__tmp 
    865949      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.