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

    r932 r966  
    4848      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 
    4949 
    50       CALL xios(get_filegroup_handle)(filegroup_id,filegroup_hdl) 
     50      CALL xios(get_filegroup_handle) & 
     51      (filegroup_id,filegroup_hdl) 
    5152      CALL xios(set_filegroup_attr_hdl_)   & 
    5253      ( filegroup_hdl, append, compression_level, convention, cyclic, description, enabled, format  & 
    … …  
    139140      IF (PRESENT(append_)) THEN 
    140141        append__tmp = append_ 
    141         CALL cxios_set_filegroup_append(filegroup_hdl%daddr, append__tmp) 
     142        CALL cxios_set_filegroup_append & 
     143      (filegroup_hdl%daddr, append__tmp) 
    142144      ENDIF 
    143145 
    144146      IF (PRESENT(compression_level_)) THEN 
    145         CALL cxios_set_filegroup_compression_level(filegroup_hdl%daddr, compression_level_) 
     147        CALL cxios_set_filegroup_compression_level & 
     148      (filegroup_hdl%daddr, compression_level_) 
    146149      ENDIF 
    147150 
    148151      IF (PRESENT(convention_)) THEN 
    149         CALL cxios_set_filegroup_convention(filegroup_hdl%daddr, convention_, len(convention_)) 
     152        CALL cxios_set_filegroup_convention & 
     153      (filegroup_hdl%daddr, convention_, len(convention_)) 
    150154      ENDIF 
    151155 
    152156      IF (PRESENT(cyclic_)) THEN 
    153157        cyclic__tmp = cyclic_ 
    154         CALL cxios_set_filegroup_cyclic(filegroup_hdl%daddr, cyclic__tmp) 
     158        CALL cxios_set_filegroup_cyclic & 
     159      (filegroup_hdl%daddr, cyclic__tmp) 
    155160      ENDIF 
    156161 
    157162      IF (PRESENT(description_)) THEN 
    158         CALL cxios_set_filegroup_description(filegroup_hdl%daddr, description_, len(description_)) 
     163        CALL cxios_set_filegroup_description & 
     164      (filegroup_hdl%daddr, description_, len(description_)) 
    159165      ENDIF 
    160166 
    161167      IF (PRESENT(enabled_)) THEN 
    162168        enabled__tmp = enabled_ 
    163         CALL cxios_set_filegroup_enabled(filegroup_hdl%daddr, enabled__tmp) 
     169        CALL cxios_set_filegroup_enabled & 
     170      (filegroup_hdl%daddr, enabled__tmp) 
    164171      ENDIF 
    165172 
    166173      IF (PRESENT(format_)) THEN 
    167         CALL cxios_set_filegroup_format(filegroup_hdl%daddr, format_, len(format_)) 
     174        CALL cxios_set_filegroup_format & 
     175      (filegroup_hdl%daddr, format_, len(format_)) 
    168176      ENDIF 
    169177 
    170178      IF (PRESENT(group_ref_)) THEN 
    171         CALL cxios_set_filegroup_group_ref(filegroup_hdl%daddr, group_ref_, len(group_ref_)) 
     179        CALL cxios_set_filegroup_group_ref & 
     180      (filegroup_hdl%daddr, group_ref_, len(group_ref_)) 
    172181      ENDIF 
    173182 
    174183      IF (PRESENT(min_digits_)) THEN 
    175         CALL cxios_set_filegroup_min_digits(filegroup_hdl%daddr, min_digits_) 
     184        CALL cxios_set_filegroup_min_digits & 
     185      (filegroup_hdl%daddr, min_digits_) 
    176186      ENDIF 
    177187 
    178188      IF (PRESENT(mode_)) THEN 
    179         CALL cxios_set_filegroup_mode(filegroup_hdl%daddr, mode_, len(mode_)) 
     189        CALL cxios_set_filegroup_mode & 
     190      (filegroup_hdl%daddr, mode_, len(mode_)) 
    180191      ENDIF 
    181192 
    182193      IF (PRESENT(name_)) THEN 
    183         CALL cxios_set_filegroup_name(filegroup_hdl%daddr, name_, len(name_)) 
     194        CALL cxios_set_filegroup_name & 
     195      (filegroup_hdl%daddr, name_, len(name_)) 
    184196      ENDIF 
    185197 
    186198      IF (PRESENT(name_suffix_)) THEN 
    187         CALL cxios_set_filegroup_name_suffix(filegroup_hdl%daddr, name_suffix_, len(name_suffix_)) 
     199        CALL cxios_set_filegroup_name_suffix & 
     200      (filegroup_hdl%daddr, name_suffix_, len(name_suffix_)) 
    188201      ENDIF 
    189202 
    190203      IF (PRESENT(output_freq_)) THEN 
    191         CALL cxios_set_filegroup_output_freq(filegroup_hdl%daddr, output_freq_) 
     204        CALL cxios_set_filegroup_output_freq & 
     205      (filegroup_hdl%daddr, output_freq_) 
    192206      ENDIF 
    193207 
    194208      IF (PRESENT(output_level_)) THEN 
    195         CALL cxios_set_filegroup_output_level(filegroup_hdl%daddr, output_level_) 
     209        CALL cxios_set_filegroup_output_level & 
     210      (filegroup_hdl%daddr, output_level_) 
    196211      ENDIF 
    197212 
    198213      IF (PRESENT(par_access_)) THEN 
    199         CALL cxios_set_filegroup_par_access(filegroup_hdl%daddr, par_access_, len(par_access_)) 
     214        CALL cxios_set_filegroup_par_access & 
     215      (filegroup_hdl%daddr, par_access_, len(par_access_)) 
    200216      ENDIF 
    201217 
    202218      IF (PRESENT(record_offset_)) THEN 
    203         CALL cxios_set_filegroup_record_offset(filegroup_hdl%daddr, record_offset_) 
     219        CALL cxios_set_filegroup_record_offset & 
     220      (filegroup_hdl%daddr, record_offset_) 
    204221      ENDIF 
    205222 
    206223      IF (PRESENT(split_freq_)) THEN 
    207         CALL cxios_set_filegroup_split_freq(filegroup_hdl%daddr, split_freq_) 
     224        CALL cxios_set_filegroup_split_freq & 
     225      (filegroup_hdl%daddr, split_freq_) 
    208226      ENDIF 
    209227 
    210228      IF (PRESENT(split_freq_format_)) THEN 
    211         CALL cxios_set_filegroup_split_freq_format(filegroup_hdl%daddr, split_freq_format_, len(split_freq_format_)) 
     229        CALL cxios_set_filegroup_split_freq_format & 
     230      (filegroup_hdl%daddr, split_freq_format_, len(split_freq_format_)) 
    212231      ENDIF 
    213232 
    214233      IF (PRESENT(sync_freq_)) THEN 
    215         CALL cxios_set_filegroup_sync_freq(filegroup_hdl%daddr, sync_freq_) 
     234        CALL cxios_set_filegroup_sync_freq & 
     235      (filegroup_hdl%daddr, sync_freq_) 
    216236      ENDIF 
    217237 
    218238      IF (PRESENT(time_counter_)) THEN 
    219         CALL cxios_set_filegroup_time_counter(filegroup_hdl%daddr, time_counter_, len(time_counter_)) 
     239        CALL cxios_set_filegroup_time_counter & 
     240      (filegroup_hdl%daddr, time_counter_, len(time_counter_)) 
    220241      ENDIF 
    221242 
    222243      IF (PRESENT(time_counter_name_)) THEN 
    223         CALL cxios_set_filegroup_time_counter_name(filegroup_hdl%daddr, time_counter_name_, len(time_counter_name_)) 
     244        CALL cxios_set_filegroup_time_counter_name & 
     245      (filegroup_hdl%daddr, time_counter_name_, len(time_counter_name_)) 
    224246      ENDIF 
    225247 
    226248      IF (PRESENT(timeseries_)) THEN 
    227         CALL cxios_set_filegroup_timeseries(filegroup_hdl%daddr, timeseries_, len(timeseries_)) 
     249        CALL cxios_set_filegroup_timeseries & 
     250      (filegroup_hdl%daddr, timeseries_, len(timeseries_)) 
    228251      ENDIF 
    229252 
    230253      IF (PRESENT(ts_prefix_)) THEN 
    231         CALL cxios_set_filegroup_ts_prefix(filegroup_hdl%daddr, ts_prefix_, len(ts_prefix_)) 
     254        CALL cxios_set_filegroup_ts_prefix & 
     255      (filegroup_hdl%daddr, ts_prefix_, len(ts_prefix_)) 
    232256      ENDIF 
    233257 
    234258      IF (PRESENT(type_)) THEN 
    235         CALL cxios_set_filegroup_type(filegroup_hdl%daddr, type_, len(type_)) 
     259        CALL cxios_set_filegroup_type & 
     260      (filegroup_hdl%daddr, type_, len(type_)) 
    236261      ENDIF 
    237262 
    … …  
    275300      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 
    276301 
    277       CALL xios(get_filegroup_handle)(filegroup_id,filegroup_hdl) 
     302      CALL xios(get_filegroup_handle) & 
     303      (filegroup_id,filegroup_hdl) 
    278304      CALL xios(get_filegroup_attr_hdl_)   & 
    279305      ( filegroup_hdl, append, compression_level, convention, cyclic, description, enabled, format  & 
    … …  
    365391 
    366392      IF (PRESENT(append_)) THEN 
    367         CALL cxios_get_filegroup_append(filegroup_hdl%daddr, append__tmp) 
     393        CALL cxios_get_filegroup_append & 
     394      (filegroup_hdl%daddr, append__tmp) 
    368395        append_ = append__tmp 
    369396      ENDIF 
    370397 
    371398      IF (PRESENT(compression_level_)) THEN 
    372         CALL cxios_get_filegroup_compression_level(filegroup_hdl%daddr, compression_level_) 
     399        CALL cxios_get_filegroup_compression_level & 
     400      (filegroup_hdl%daddr, compression_level_) 
    373401      ENDIF 
    374402 
    375403      IF (PRESENT(convention_)) THEN 
    376         CALL cxios_get_filegroup_convention(filegroup_hdl%daddr, convention_, len(convention_)) 
     404        CALL cxios_get_filegroup_convention & 
     405      (filegroup_hdl%daddr, convention_, len(convention_)) 
    377406      ENDIF 
    378407 
    379408      IF (PRESENT(cyclic_)) THEN 
    380         CALL cxios_get_filegroup_cyclic(filegroup_hdl%daddr, cyclic__tmp) 
     409        CALL cxios_get_filegroup_cyclic & 
     410      (filegroup_hdl%daddr, cyclic__tmp) 
    381411        cyclic_ = cyclic__tmp 
    382412      ENDIF 
    383413 
    384414      IF (PRESENT(description_)) THEN 
    385         CALL cxios_get_filegroup_description(filegroup_hdl%daddr, description_, len(description_)) 
     415        CALL cxios_get_filegroup_description & 
     416      (filegroup_hdl%daddr, description_, len(description_)) 
    386417      ENDIF 
    387418 
    388419      IF (PRESENT(enabled_)) THEN 
    389         CALL cxios_get_filegroup_enabled(filegroup_hdl%daddr, enabled__tmp) 
     420        CALL cxios_get_filegroup_enabled & 
     421      (filegroup_hdl%daddr, enabled__tmp) 
    390422        enabled_ = enabled__tmp 
    391423      ENDIF 
    392424 
    393425      IF (PRESENT(format_)) THEN 
    394         CALL cxios_get_filegroup_format(filegroup_hdl%daddr, format_, len(format_)) 
     426        CALL cxios_get_filegroup_format & 
     427      (filegroup_hdl%daddr, format_, len(format_)) 
    395428      ENDIF 
    396429 
    397430      IF (PRESENT(group_ref_)) THEN 
    398         CALL cxios_get_filegroup_group_ref(filegroup_hdl%daddr, group_ref_, len(group_ref_)) 
     431        CALL cxios_get_filegroup_group_ref & 
     432      (filegroup_hdl%daddr, group_ref_, len(group_ref_)) 
    399433      ENDIF 
    400434 
    401435      IF (PRESENT(min_digits_)) THEN 
    402         CALL cxios_get_filegroup_min_digits(filegroup_hdl%daddr, min_digits_) 
     436        CALL cxios_get_filegroup_min_digits & 
     437      (filegroup_hdl%daddr, min_digits_) 
    403438      ENDIF 
    404439 
    405440      IF (PRESENT(mode_)) THEN 
    406         CALL cxios_get_filegroup_mode(filegroup_hdl%daddr, mode_, len(mode_)) 
     441        CALL cxios_get_filegroup_mode & 
     442      (filegroup_hdl%daddr, mode_, len(mode_)) 
    407443      ENDIF 
    408444 
    409445      IF (PRESENT(name_)) THEN 
    410         CALL cxios_get_filegroup_name(filegroup_hdl%daddr, name_, len(name_)) 
     446        CALL cxios_get_filegroup_name & 
     447      (filegroup_hdl%daddr, name_, len(name_)) 
    411448      ENDIF 
    412449 
    413450      IF (PRESENT(name_suffix_)) THEN 
    414         CALL cxios_get_filegroup_name_suffix(filegroup_hdl%daddr, name_suffix_, len(name_suffix_)) 
     451        CALL cxios_get_filegroup_name_suffix & 
     452      (filegroup_hdl%daddr, name_suffix_, len(name_suffix_)) 
    415453      ENDIF 
    416454 
    417455      IF (PRESENT(output_freq_)) THEN 
    418         CALL cxios_get_filegroup_output_freq(filegroup_hdl%daddr, output_freq_) 
     456        CALL cxios_get_filegroup_output_freq & 
     457      (filegroup_hdl%daddr, output_freq_) 
    419458      ENDIF 
    420459 
    421460      IF (PRESENT(output_level_)) THEN 
    422         CALL cxios_get_filegroup_output_level(filegroup_hdl%daddr, output_level_) 
     461        CALL cxios_get_filegroup_output_level & 
     462      (filegroup_hdl%daddr, output_level_) 
    423463      ENDIF 
    424464 
    425465      IF (PRESENT(par_access_)) THEN 
    426         CALL cxios_get_filegroup_par_access(filegroup_hdl%daddr, par_access_, len(par_access_)) 
     466        CALL cxios_get_filegroup_par_access & 
     467      (filegroup_hdl%daddr, par_access_, len(par_access_)) 
    427468      ENDIF 
    428469 
    429470      IF (PRESENT(record_offset_)) THEN 
    430         CALL cxios_get_filegroup_record_offset(filegroup_hdl%daddr, record_offset_) 
     471        CALL cxios_get_filegroup_record_offset & 
     472      (filegroup_hdl%daddr, record_offset_) 
    431473      ENDIF 
    432474 
    433475      IF (PRESENT(split_freq_)) THEN 
    434         CALL cxios_get_filegroup_split_freq(filegroup_hdl%daddr, split_freq_) 
     476        CALL cxios_get_filegroup_split_freq & 
     477      (filegroup_hdl%daddr, split_freq_) 
    435478      ENDIF 
    436479 
    437480      IF (PRESENT(split_freq_format_)) THEN 
    438         CALL cxios_get_filegroup_split_freq_format(filegroup_hdl%daddr, split_freq_format_, len(split_freq_format_)) 
     481        CALL cxios_get_filegroup_split_freq_format & 
     482      (filegroup_hdl%daddr, split_freq_format_, len(split_freq_format_)) 
    439483      ENDIF 
    440484 
    441485      IF (PRESENT(sync_freq_)) THEN 
    442         CALL cxios_get_filegroup_sync_freq(filegroup_hdl%daddr, sync_freq_) 
     486        CALL cxios_get_filegroup_sync_freq & 
     487      (filegroup_hdl%daddr, sync_freq_) 
    443488      ENDIF 
    444489 
    445490      IF (PRESENT(time_counter_)) THEN 
    446         CALL cxios_get_filegroup_time_counter(filegroup_hdl%daddr, time_counter_, len(time_counter_)) 
     491        CALL cxios_get_filegroup_time_counter & 
     492      (filegroup_hdl%daddr, time_counter_, len(time_counter_)) 
    447493      ENDIF 
    448494 
    449495      IF (PRESENT(time_counter_name_)) THEN 
    450         CALL cxios_get_filegroup_time_counter_name(filegroup_hdl%daddr, time_counter_name_, len(time_counter_name_)) 
     496        CALL cxios_get_filegroup_time_counter_name & 
     497      (filegroup_hdl%daddr, time_counter_name_, len(time_counter_name_)) 
    451498      ENDIF 
    452499 
    453500      IF (PRESENT(timeseries_)) THEN 
    454         CALL cxios_get_filegroup_timeseries(filegroup_hdl%daddr, timeseries_, len(timeseries_)) 
     501        CALL cxios_get_filegroup_timeseries & 
     502      (filegroup_hdl%daddr, timeseries_, len(timeseries_)) 
    455503      ENDIF 
    456504 
    457505      IF (PRESENT(ts_prefix_)) THEN 
    458         CALL cxios_get_filegroup_ts_prefix(filegroup_hdl%daddr, ts_prefix_, len(ts_prefix_)) 
     506        CALL cxios_get_filegroup_ts_prefix & 
     507      (filegroup_hdl%daddr, ts_prefix_, len(ts_prefix_)) 
    459508      ENDIF 
    460509 
    461510      IF (PRESENT(type_)) THEN 
    462         CALL cxios_get_filegroup_type(filegroup_hdl%daddr, type_, len(type_)) 
     511        CALL cxios_get_filegroup_type & 
     512      (filegroup_hdl%daddr, type_, len(type_)) 
    463513      ENDIF 
    464514 
    … …  
    523573      LOGICAL(KIND=C_BOOL) :: type_tmp 
    524574 
    525       CALL xios(get_filegroup_handle)(filegroup_id,filegroup_hdl) 
     575      CALL xios(get_filegroup_handle) & 
     576      (filegroup_id,filegroup_hdl) 
    526577      CALL xios(is_defined_filegroup_attr_hdl_)   & 
    527578      ( filegroup_hdl, append, compression_level, convention, cyclic, description, enabled, format  & 
    … …  
    655706 
    656707      IF (PRESENT(append_)) THEN 
    657         append__tmp = cxios_is_defined_filegroup_append(filegroup_hdl%daddr) 
     708        append__tmp = cxios_is_defined_filegroup_append & 
     709      (filegroup_hdl%daddr) 
    658710        append_ = append__tmp 
    659711      ENDIF 
    660712 
    661713      IF (PRESENT(compression_level_)) THEN 
    662         compression_level__tmp = cxios_is_defined_filegroup_compression_level(filegroup_hdl%daddr) 
     714        compression_level__tmp = cxios_is_defined_filegroup_compression_level & 
     715      (filegroup_hdl%daddr) 
    663716        compression_level_ = compression_level__tmp 
    664717      ENDIF 
    665718 
    666719      IF (PRESENT(convention_)) THEN 
    667         convention__tmp = cxios_is_defined_filegroup_convention(filegroup_hdl%daddr) 
     720        convention__tmp = cxios_is_defined_filegroup_convention & 
     721      (filegroup_hdl%daddr) 
    668722        convention_ = convention__tmp 
    669723      ENDIF 
    670724 
    671725      IF (PRESENT(cyclic_)) THEN 
    672         cyclic__tmp = cxios_is_defined_filegroup_cyclic(filegroup_hdl%daddr) 
     726        cyclic__tmp = cxios_is_defined_filegroup_cyclic & 
     727      (filegroup_hdl%daddr) 
    673728        cyclic_ = cyclic__tmp 
    674729      ENDIF 
    675730 
    676731      IF (PRESENT(description_)) THEN 
    677         description__tmp = cxios_is_defined_filegroup_description(filegroup_hdl%daddr) 
     732        description__tmp = cxios_is_defined_filegroup_description & 
     733      (filegroup_hdl%daddr) 
    678734        description_ = description__tmp 
    679735      ENDIF 
    680736 
    681737      IF (PRESENT(enabled_)) THEN 
    682         enabled__tmp = cxios_is_defined_filegroup_enabled(filegroup_hdl%daddr) 
     738        enabled__tmp = cxios_is_defined_filegroup_enabled & 
     739      (filegroup_hdl%daddr) 
    683740        enabled_ = enabled__tmp 
    684741      ENDIF 
    685742 
    686743      IF (PRESENT(format_)) THEN 
    687         format__tmp = cxios_is_defined_filegroup_format(filegroup_hdl%daddr) 
     744        format__tmp = cxios_is_defined_filegroup_format & 
     745      (filegroup_hdl%daddr) 
    688746        format_ = format__tmp 
    689747      ENDIF 
    690748 
    691749      IF (PRESENT(group_ref_)) THEN 
    692         group_ref__tmp = cxios_is_defined_filegroup_group_ref(filegroup_hdl%daddr) 
     750        group_ref__tmp = cxios_is_defined_filegroup_group_ref & 
     751      (filegroup_hdl%daddr) 
    693752        group_ref_ = group_ref__tmp 
    694753      ENDIF 
    695754 
    696755      IF (PRESENT(min_digits_)) THEN 
    697         min_digits__tmp = cxios_is_defined_filegroup_min_digits(filegroup_hdl%daddr) 
     756        min_digits__tmp = cxios_is_defined_filegroup_min_digits & 
     757      (filegroup_hdl%daddr) 
    698758        min_digits_ = min_digits__tmp 
    699759      ENDIF 
    700760 
    701761      IF (PRESENT(mode_)) THEN 
    702         mode__tmp = cxios_is_defined_filegroup_mode(filegroup_hdl%daddr) 
     762        mode__tmp = cxios_is_defined_filegroup_mode & 
     763      (filegroup_hdl%daddr) 
    703764        mode_ = mode__tmp 
    704765      ENDIF 
    705766 
    706767      IF (PRESENT(name_)) THEN 
    707         name__tmp = cxios_is_defined_filegroup_name(filegroup_hdl%daddr) 
     768        name__tmp = cxios_is_defined_filegroup_name & 
     769      (filegroup_hdl%daddr) 
    708770        name_ = name__tmp 
    709771      ENDIF 
    710772 
    711773      IF (PRESENT(name_suffix_)) THEN 
    712         name_suffix__tmp = cxios_is_defined_filegroup_name_suffix(filegroup_hdl%daddr) 
     774        name_suffix__tmp = cxios_is_defined_filegroup_name_suffix & 
     775      (filegroup_hdl%daddr) 
    713776        name_suffix_ = name_suffix__tmp 
    714777      ENDIF 
    715778 
    716779      IF (PRESENT(output_freq_)) THEN 
    717         output_freq__tmp = cxios_is_defined_filegroup_output_freq(filegroup_hdl%daddr) 
     780        output_freq__tmp = cxios_is_defined_filegroup_output_freq & 
     781      (filegroup_hdl%daddr) 
    718782        output_freq_ = output_freq__tmp 
    719783      ENDIF 
    720784 
    721785      IF (PRESENT(output_level_)) THEN 
    722         output_level__tmp = cxios_is_defined_filegroup_output_level(filegroup_hdl%daddr) 
     786        output_level__tmp = cxios_is_defined_filegroup_output_level & 
     787      (filegroup_hdl%daddr) 
    723788        output_level_ = output_level__tmp 
    724789      ENDIF 
    725790 
    726791      IF (PRESENT(par_access_)) THEN 
    727         par_access__tmp = cxios_is_defined_filegroup_par_access(filegroup_hdl%daddr) 
     792        par_access__tmp = cxios_is_defined_filegroup_par_access & 
     793      (filegroup_hdl%daddr) 
    728794        par_access_ = par_access__tmp 
    729795      ENDIF 
    730796 
    731797      IF (PRESENT(record_offset_)) THEN 
    732         record_offset__tmp = cxios_is_defined_filegroup_record_offset(filegroup_hdl%daddr) 
     798        record_offset__tmp = cxios_is_defined_filegroup_record_offset & 
     799      (filegroup_hdl%daddr) 
    733800        record_offset_ = record_offset__tmp 
    734801      ENDIF 
    735802 
    736803      IF (PRESENT(split_freq_)) THEN 
    737         split_freq__tmp = cxios_is_defined_filegroup_split_freq(filegroup_hdl%daddr) 
     804        split_freq__tmp = cxios_is_defined_filegroup_split_freq & 
     805      (filegroup_hdl%daddr) 
    738806        split_freq_ = split_freq__tmp 
    739807      ENDIF 
    740808 
    741809      IF (PRESENT(split_freq_format_)) THEN 
    742         split_freq_format__tmp = cxios_is_defined_filegroup_split_freq_format(filegroup_hdl%daddr) 
     810        split_freq_format__tmp = cxios_is_defined_filegroup_split_freq_format & 
     811      (filegroup_hdl%daddr) 
    743812        split_freq_format_ = split_freq_format__tmp 
    744813      ENDIF 
    745814 
    746815      IF (PRESENT(sync_freq_)) THEN 
    747         sync_freq__tmp = cxios_is_defined_filegroup_sync_freq(filegroup_hdl%daddr) 
     816        sync_freq__tmp = cxios_is_defined_filegroup_sync_freq & 
     817      (filegroup_hdl%daddr) 
    748818        sync_freq_ = sync_freq__tmp 
    749819      ENDIF 
    750820 
    751821      IF (PRESENT(time_counter_)) THEN 
    752         time_counter__tmp = cxios_is_defined_filegroup_time_counter(filegroup_hdl%daddr) 
     822        time_counter__tmp = cxios_is_defined_filegroup_time_counter & 
     823      (filegroup_hdl%daddr) 
    753824        time_counter_ = time_counter__tmp 
    754825      ENDIF 
    755826 
    756827      IF (PRESENT(time_counter_name_)) THEN 
    757         time_counter_name__tmp = cxios_is_defined_filegroup_time_counter_name(filegroup_hdl%daddr) 
     828        time_counter_name__tmp = cxios_is_defined_filegroup_time_counter_name & 
     829      (filegroup_hdl%daddr) 
    758830        time_counter_name_ = time_counter_name__tmp 
    759831      ENDIF 
    760832 
    761833      IF (PRESENT(timeseries_)) THEN 
    762         timeseries__tmp = cxios_is_defined_filegroup_timeseries(filegroup_hdl%daddr) 
     834        timeseries__tmp = cxios_is_defined_filegroup_timeseries & 
     835      (filegroup_hdl%daddr) 
    763836        timeseries_ = timeseries__tmp 
    764837      ENDIF 
    765838 
    766839      IF (PRESENT(ts_prefix_)) THEN 
    767         ts_prefix__tmp = cxios_is_defined_filegroup_ts_prefix(filegroup_hdl%daddr) 
     840        ts_prefix__tmp = cxios_is_defined_filegroup_ts_prefix & 
     841      (filegroup_hdl%daddr) 
    768842        ts_prefix_ = ts_prefix__tmp 
    769843      ENDIF 
    770844 
    771845      IF (PRESENT(type_)) THEN 
    772         type__tmp = cxios_is_defined_filegroup_type(filegroup_hdl%daddr) 
     846        type__tmp = cxios_is_defined_filegroup_type & 
     847      (filegroup_hdl%daddr) 
    773848        type_ = type__tmp 
    774849      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.