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

    r932 r966  
    4747      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 
    4848 
    49       CALL xios(get_file_handle)(file_id,file_hdl) 
     49      CALL xios(get_file_handle) & 
     50      (file_id,file_hdl) 
    5051      CALL xios(set_file_attr_hdl_)   & 
    5152      ( file_hdl, append, compression_level, convention, cyclic, description, enabled, format, min_digits  & 
    … …  
    136137      IF (PRESENT(append_)) THEN 
    137138        append__tmp = append_ 
    138         CALL cxios_set_file_append(file_hdl%daddr, append__tmp) 
     139        CALL cxios_set_file_append & 
     140      (file_hdl%daddr, append__tmp) 
    139141      ENDIF 
    140142 
    141143      IF (PRESENT(compression_level_)) THEN 
    142         CALL cxios_set_file_compression_level(file_hdl%daddr, compression_level_) 
     144        CALL cxios_set_file_compression_level & 
     145      (file_hdl%daddr, compression_level_) 
    143146      ENDIF 
    144147 
    145148      IF (PRESENT(convention_)) THEN 
    146         CALL cxios_set_file_convention(file_hdl%daddr, convention_, len(convention_)) 
     149        CALL cxios_set_file_convention & 
     150      (file_hdl%daddr, convention_, len(convention_)) 
    147151      ENDIF 
    148152 
    149153      IF (PRESENT(cyclic_)) THEN 
    150154        cyclic__tmp = cyclic_ 
    151         CALL cxios_set_file_cyclic(file_hdl%daddr, cyclic__tmp) 
     155        CALL cxios_set_file_cyclic & 
     156      (file_hdl%daddr, cyclic__tmp) 
    152157      ENDIF 
    153158 
    154159      IF (PRESENT(description_)) THEN 
    155         CALL cxios_set_file_description(file_hdl%daddr, description_, len(description_)) 
     160        CALL cxios_set_file_description & 
     161      (file_hdl%daddr, description_, len(description_)) 
    156162      ENDIF 
    157163 
    158164      IF (PRESENT(enabled_)) THEN 
    159165        enabled__tmp = enabled_ 
    160         CALL cxios_set_file_enabled(file_hdl%daddr, enabled__tmp) 
     166        CALL cxios_set_file_enabled & 
     167      (file_hdl%daddr, enabled__tmp) 
    161168      ENDIF 
    162169 
    163170      IF (PRESENT(format_)) THEN 
    164         CALL cxios_set_file_format(file_hdl%daddr, format_, len(format_)) 
     171        CALL cxios_set_file_format & 
     172      (file_hdl%daddr, format_, len(format_)) 
    165173      ENDIF 
    166174 
    167175      IF (PRESENT(min_digits_)) THEN 
    168         CALL cxios_set_file_min_digits(file_hdl%daddr, min_digits_) 
     176        CALL cxios_set_file_min_digits & 
     177      (file_hdl%daddr, min_digits_) 
    169178      ENDIF 
    170179 
    171180      IF (PRESENT(mode_)) THEN 
    172         CALL cxios_set_file_mode(file_hdl%daddr, mode_, len(mode_)) 
     181        CALL cxios_set_file_mode & 
     182      (file_hdl%daddr, mode_, len(mode_)) 
    173183      ENDIF 
    174184 
    175185      IF (PRESENT(name_)) THEN 
    176         CALL cxios_set_file_name(file_hdl%daddr, name_, len(name_)) 
     186        CALL cxios_set_file_name & 
     187      (file_hdl%daddr, name_, len(name_)) 
    177188      ENDIF 
    178189 
    179190      IF (PRESENT(name_suffix_)) THEN 
    180         CALL cxios_set_file_name_suffix(file_hdl%daddr, name_suffix_, len(name_suffix_)) 
     191        CALL cxios_set_file_name_suffix & 
     192      (file_hdl%daddr, name_suffix_, len(name_suffix_)) 
    181193      ENDIF 
    182194 
    183195      IF (PRESENT(output_freq_)) THEN 
    184         CALL cxios_set_file_output_freq(file_hdl%daddr, output_freq_) 
     196        CALL cxios_set_file_output_freq & 
     197      (file_hdl%daddr, output_freq_) 
    185198      ENDIF 
    186199 
    187200      IF (PRESENT(output_level_)) THEN 
    188         CALL cxios_set_file_output_level(file_hdl%daddr, output_level_) 
     201        CALL cxios_set_file_output_level & 
     202      (file_hdl%daddr, output_level_) 
    189203      ENDIF 
    190204 
    191205      IF (PRESENT(par_access_)) THEN 
    192         CALL cxios_set_file_par_access(file_hdl%daddr, par_access_, len(par_access_)) 
     206        CALL cxios_set_file_par_access & 
     207      (file_hdl%daddr, par_access_, len(par_access_)) 
    193208      ENDIF 
    194209 
    195210      IF (PRESENT(record_offset_)) THEN 
    196         CALL cxios_set_file_record_offset(file_hdl%daddr, record_offset_) 
     211        CALL cxios_set_file_record_offset & 
     212      (file_hdl%daddr, record_offset_) 
    197213      ENDIF 
    198214 
    199215      IF (PRESENT(split_freq_)) THEN 
    200         CALL cxios_set_file_split_freq(file_hdl%daddr, split_freq_) 
     216        CALL cxios_set_file_split_freq & 
     217      (file_hdl%daddr, split_freq_) 
    201218      ENDIF 
    202219 
    203220      IF (PRESENT(split_freq_format_)) THEN 
    204         CALL cxios_set_file_split_freq_format(file_hdl%daddr, split_freq_format_, len(split_freq_format_)) 
     221        CALL cxios_set_file_split_freq_format & 
     222      (file_hdl%daddr, split_freq_format_, len(split_freq_format_)) 
    205223      ENDIF 
    206224 
    207225      IF (PRESENT(sync_freq_)) THEN 
    208         CALL cxios_set_file_sync_freq(file_hdl%daddr, sync_freq_) 
     226        CALL cxios_set_file_sync_freq & 
     227      (file_hdl%daddr, sync_freq_) 
    209228      ENDIF 
    210229 
    211230      IF (PRESENT(time_counter_)) THEN 
    212         CALL cxios_set_file_time_counter(file_hdl%daddr, time_counter_, len(time_counter_)) 
     231        CALL cxios_set_file_time_counter & 
     232      (file_hdl%daddr, time_counter_, len(time_counter_)) 
    213233      ENDIF 
    214234 
    215235      IF (PRESENT(time_counter_name_)) THEN 
    216         CALL cxios_set_file_time_counter_name(file_hdl%daddr, time_counter_name_, len(time_counter_name_)) 
     236        CALL cxios_set_file_time_counter_name & 
     237      (file_hdl%daddr, time_counter_name_, len(time_counter_name_)) 
    217238      ENDIF 
    218239 
    219240      IF (PRESENT(timeseries_)) THEN 
    220         CALL cxios_set_file_timeseries(file_hdl%daddr, timeseries_, len(timeseries_)) 
     241        CALL cxios_set_file_timeseries & 
     242      (file_hdl%daddr, timeseries_, len(timeseries_)) 
    221243      ENDIF 
    222244 
    223245      IF (PRESENT(ts_prefix_)) THEN 
    224         CALL cxios_set_file_ts_prefix(file_hdl%daddr, ts_prefix_, len(ts_prefix_)) 
     246        CALL cxios_set_file_ts_prefix & 
     247      (file_hdl%daddr, ts_prefix_, len(ts_prefix_)) 
    225248      ENDIF 
    226249 
    227250      IF (PRESENT(type_)) THEN 
    228         CALL cxios_set_file_type(file_hdl%daddr, type_, len(type_)) 
     251        CALL cxios_set_file_type & 
     252      (file_hdl%daddr, type_, len(type_)) 
    229253      ENDIF 
    230254 
    … …  
    267291      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 
    268292 
    269       CALL xios(get_file_handle)(file_id,file_hdl) 
     293      CALL xios(get_file_handle) & 
     294      (file_id,file_hdl) 
    270295      CALL xios(get_file_attr_hdl_)   & 
    271296      ( file_hdl, append, compression_level, convention, cyclic, description, enabled, format, min_digits  & 
    … …  
    355380 
    356381      IF (PRESENT(append_)) THEN 
    357         CALL cxios_get_file_append(file_hdl%daddr, append__tmp) 
     382        CALL cxios_get_file_append & 
     383      (file_hdl%daddr, append__tmp) 
    358384        append_ = append__tmp 
    359385      ENDIF 
    360386 
    361387      IF (PRESENT(compression_level_)) THEN 
    362         CALL cxios_get_file_compression_level(file_hdl%daddr, compression_level_) 
     388        CALL cxios_get_file_compression_level & 
     389      (file_hdl%daddr, compression_level_) 
    363390      ENDIF 
    364391 
    365392      IF (PRESENT(convention_)) THEN 
    366         CALL cxios_get_file_convention(file_hdl%daddr, convention_, len(convention_)) 
     393        CALL cxios_get_file_convention & 
     394      (file_hdl%daddr, convention_, len(convention_)) 
    367395      ENDIF 
    368396 
    369397      IF (PRESENT(cyclic_)) THEN 
    370         CALL cxios_get_file_cyclic(file_hdl%daddr, cyclic__tmp) 
     398        CALL cxios_get_file_cyclic & 
     399      (file_hdl%daddr, cyclic__tmp) 
    371400        cyclic_ = cyclic__tmp 
    372401      ENDIF 
    373402 
    374403      IF (PRESENT(description_)) THEN 
    375         CALL cxios_get_file_description(file_hdl%daddr, description_, len(description_)) 
     404        CALL cxios_get_file_description & 
     405      (file_hdl%daddr, description_, len(description_)) 
    376406      ENDIF 
    377407 
    378408      IF (PRESENT(enabled_)) THEN 
    379         CALL cxios_get_file_enabled(file_hdl%daddr, enabled__tmp) 
     409        CALL cxios_get_file_enabled & 
     410      (file_hdl%daddr, enabled__tmp) 
    380411        enabled_ = enabled__tmp 
    381412      ENDIF 
    382413 
    383414      IF (PRESENT(format_)) THEN 
    384         CALL cxios_get_file_format(file_hdl%daddr, format_, len(format_)) 
     415        CALL cxios_get_file_format & 
     416      (file_hdl%daddr, format_, len(format_)) 
    385417      ENDIF 
    386418 
    387419      IF (PRESENT(min_digits_)) THEN 
    388         CALL cxios_get_file_min_digits(file_hdl%daddr, min_digits_) 
     420        CALL cxios_get_file_min_digits & 
     421      (file_hdl%daddr, min_digits_) 
    389422      ENDIF 
    390423 
    391424      IF (PRESENT(mode_)) THEN 
    392         CALL cxios_get_file_mode(file_hdl%daddr, mode_, len(mode_)) 
     425        CALL cxios_get_file_mode & 
     426      (file_hdl%daddr, mode_, len(mode_)) 
    393427      ENDIF 
    394428 
    395429      IF (PRESENT(name_)) THEN 
    396         CALL cxios_get_file_name(file_hdl%daddr, name_, len(name_)) 
     430        CALL cxios_get_file_name & 
     431      (file_hdl%daddr, name_, len(name_)) 
    397432      ENDIF 
    398433 
    399434      IF (PRESENT(name_suffix_)) THEN 
    400         CALL cxios_get_file_name_suffix(file_hdl%daddr, name_suffix_, len(name_suffix_)) 
     435        CALL cxios_get_file_name_suffix & 
     436      (file_hdl%daddr, name_suffix_, len(name_suffix_)) 
    401437      ENDIF 
    402438 
    403439      IF (PRESENT(output_freq_)) THEN 
    404         CALL cxios_get_file_output_freq(file_hdl%daddr, output_freq_) 
     440        CALL cxios_get_file_output_freq & 
     441      (file_hdl%daddr, output_freq_) 
    405442      ENDIF 
    406443 
    407444      IF (PRESENT(output_level_)) THEN 
    408         CALL cxios_get_file_output_level(file_hdl%daddr, output_level_) 
     445        CALL cxios_get_file_output_level & 
     446      (file_hdl%daddr, output_level_) 
    409447      ENDIF 
    410448 
    411449      IF (PRESENT(par_access_)) THEN 
    412         CALL cxios_get_file_par_access(file_hdl%daddr, par_access_, len(par_access_)) 
     450        CALL cxios_get_file_par_access & 
     451      (file_hdl%daddr, par_access_, len(par_access_)) 
    413452      ENDIF 
    414453 
    415454      IF (PRESENT(record_offset_)) THEN 
    416         CALL cxios_get_file_record_offset(file_hdl%daddr, record_offset_) 
     455        CALL cxios_get_file_record_offset & 
     456      (file_hdl%daddr, record_offset_) 
    417457      ENDIF 
    418458 
    419459      IF (PRESENT(split_freq_)) THEN 
    420         CALL cxios_get_file_split_freq(file_hdl%daddr, split_freq_) 
     460        CALL cxios_get_file_split_freq & 
     461      (file_hdl%daddr, split_freq_) 
    421462      ENDIF 
    422463 
    423464      IF (PRESENT(split_freq_format_)) THEN 
    424         CALL cxios_get_file_split_freq_format(file_hdl%daddr, split_freq_format_, len(split_freq_format_)) 
     465        CALL cxios_get_file_split_freq_format & 
     466      (file_hdl%daddr, split_freq_format_, len(split_freq_format_)) 
    425467      ENDIF 
    426468 
    427469      IF (PRESENT(sync_freq_)) THEN 
    428         CALL cxios_get_file_sync_freq(file_hdl%daddr, sync_freq_) 
     470        CALL cxios_get_file_sync_freq & 
     471      (file_hdl%daddr, sync_freq_) 
    429472      ENDIF 
    430473 
    431474      IF (PRESENT(time_counter_)) THEN 
    432         CALL cxios_get_file_time_counter(file_hdl%daddr, time_counter_, len(time_counter_)) 
     475        CALL cxios_get_file_time_counter & 
     476      (file_hdl%daddr, time_counter_, len(time_counter_)) 
    433477      ENDIF 
    434478 
    435479      IF (PRESENT(time_counter_name_)) THEN 
    436         CALL cxios_get_file_time_counter_name(file_hdl%daddr, time_counter_name_, len(time_counter_name_)) 
     480        CALL cxios_get_file_time_counter_name & 
     481      (file_hdl%daddr, time_counter_name_, len(time_counter_name_)) 
    437482      ENDIF 
    438483 
    439484      IF (PRESENT(timeseries_)) THEN 
    440         CALL cxios_get_file_timeseries(file_hdl%daddr, timeseries_, len(timeseries_)) 
     485        CALL cxios_get_file_timeseries & 
     486      (file_hdl%daddr, timeseries_, len(timeseries_)) 
    441487      ENDIF 
    442488 
    443489      IF (PRESENT(ts_prefix_)) THEN 
    444         CALL cxios_get_file_ts_prefix(file_hdl%daddr, ts_prefix_, len(ts_prefix_)) 
     490        CALL cxios_get_file_ts_prefix & 
     491      (file_hdl%daddr, ts_prefix_, len(ts_prefix_)) 
    445492      ENDIF 
    446493 
    447494      IF (PRESENT(type_)) THEN 
    448         CALL cxios_get_file_type(file_hdl%daddr, type_, len(type_)) 
     495        CALL cxios_get_file_type & 
     496      (file_hdl%daddr, type_, len(type_)) 
    449497      ENDIF 
    450498 
    … …  
    507555      LOGICAL(KIND=C_BOOL) :: type_tmp 
    508556 
    509       CALL xios(get_file_handle)(file_id,file_hdl) 
     557      CALL xios(get_file_handle) & 
     558      (file_id,file_hdl) 
    510559      CALL xios(is_defined_file_attr_hdl_)   & 
    511560      ( file_hdl, append, compression_level, convention, cyclic, description, enabled, format, min_digits  & 
    … …  
    635684 
    636685      IF (PRESENT(append_)) THEN 
    637         append__tmp = cxios_is_defined_file_append(file_hdl%daddr) 
     686        append__tmp = cxios_is_defined_file_append & 
     687      (file_hdl%daddr) 
    638688        append_ = append__tmp 
    639689      ENDIF 
    640690 
    641691      IF (PRESENT(compression_level_)) THEN 
    642         compression_level__tmp = cxios_is_defined_file_compression_level(file_hdl%daddr) 
     692        compression_level__tmp = cxios_is_defined_file_compression_level & 
     693      (file_hdl%daddr) 
    643694        compression_level_ = compression_level__tmp 
    644695      ENDIF 
    645696 
    646697      IF (PRESENT(convention_)) THEN 
    647         convention__tmp = cxios_is_defined_file_convention(file_hdl%daddr) 
     698        convention__tmp = cxios_is_defined_file_convention & 
     699      (file_hdl%daddr) 
    648700        convention_ = convention__tmp 
    649701      ENDIF 
    650702 
    651703      IF (PRESENT(cyclic_)) THEN 
    652         cyclic__tmp = cxios_is_defined_file_cyclic(file_hdl%daddr) 
     704        cyclic__tmp = cxios_is_defined_file_cyclic & 
     705      (file_hdl%daddr) 
    653706        cyclic_ = cyclic__tmp 
    654707      ENDIF 
    655708 
    656709      IF (PRESENT(description_)) THEN 
    657         description__tmp = cxios_is_defined_file_description(file_hdl%daddr) 
     710        description__tmp = cxios_is_defined_file_description & 
     711      (file_hdl%daddr) 
    658712        description_ = description__tmp 
    659713      ENDIF 
    660714 
    661715      IF (PRESENT(enabled_)) THEN 
    662         enabled__tmp = cxios_is_defined_file_enabled(file_hdl%daddr) 
     716        enabled__tmp = cxios_is_defined_file_enabled & 
     717      (file_hdl%daddr) 
    663718        enabled_ = enabled__tmp 
    664719      ENDIF 
    665720 
    666721      IF (PRESENT(format_)) THEN 
    667         format__tmp = cxios_is_defined_file_format(file_hdl%daddr) 
     722        format__tmp = cxios_is_defined_file_format & 
     723      (file_hdl%daddr) 
    668724        format_ = format__tmp 
    669725      ENDIF 
    670726 
    671727      IF (PRESENT(min_digits_)) THEN 
    672         min_digits__tmp = cxios_is_defined_file_min_digits(file_hdl%daddr) 
     728        min_digits__tmp = cxios_is_defined_file_min_digits & 
     729      (file_hdl%daddr) 
    673730        min_digits_ = min_digits__tmp 
    674731      ENDIF 
    675732 
    676733      IF (PRESENT(mode_)) THEN 
    677         mode__tmp = cxios_is_defined_file_mode(file_hdl%daddr) 
     734        mode__tmp = cxios_is_defined_file_mode & 
     735      (file_hdl%daddr) 
    678736        mode_ = mode__tmp 
    679737      ENDIF 
    680738 
    681739      IF (PRESENT(name_)) THEN 
    682         name__tmp = cxios_is_defined_file_name(file_hdl%daddr) 
     740        name__tmp = cxios_is_defined_file_name & 
     741      (file_hdl%daddr) 
    683742        name_ = name__tmp 
    684743      ENDIF 
    685744 
    686745      IF (PRESENT(name_suffix_)) THEN 
    687         name_suffix__tmp = cxios_is_defined_file_name_suffix(file_hdl%daddr) 
     746        name_suffix__tmp = cxios_is_defined_file_name_suffix & 
     747      (file_hdl%daddr) 
    688748        name_suffix_ = name_suffix__tmp 
    689749      ENDIF 
    690750 
    691751      IF (PRESENT(output_freq_)) THEN 
    692         output_freq__tmp = cxios_is_defined_file_output_freq(file_hdl%daddr) 
     752        output_freq__tmp = cxios_is_defined_file_output_freq & 
     753      (file_hdl%daddr) 
    693754        output_freq_ = output_freq__tmp 
    694755      ENDIF 
    695756 
    696757      IF (PRESENT(output_level_)) THEN 
    697         output_level__tmp = cxios_is_defined_file_output_level(file_hdl%daddr) 
     758        output_level__tmp = cxios_is_defined_file_output_level & 
     759      (file_hdl%daddr) 
    698760        output_level_ = output_level__tmp 
    699761      ENDIF 
    700762 
    701763      IF (PRESENT(par_access_)) THEN 
    702         par_access__tmp = cxios_is_defined_file_par_access(file_hdl%daddr) 
     764        par_access__tmp = cxios_is_defined_file_par_access & 
     765      (file_hdl%daddr) 
    703766        par_access_ = par_access__tmp 
    704767      ENDIF 
    705768 
    706769      IF (PRESENT(record_offset_)) THEN 
    707         record_offset__tmp = cxios_is_defined_file_record_offset(file_hdl%daddr) 
     770        record_offset__tmp = cxios_is_defined_file_record_offset & 
     771      (file_hdl%daddr) 
    708772        record_offset_ = record_offset__tmp 
    709773      ENDIF 
    710774 
    711775      IF (PRESENT(split_freq_)) THEN 
    712         split_freq__tmp = cxios_is_defined_file_split_freq(file_hdl%daddr) 
     776        split_freq__tmp = cxios_is_defined_file_split_freq & 
     777      (file_hdl%daddr) 
    713778        split_freq_ = split_freq__tmp 
    714779      ENDIF 
    715780 
    716781      IF (PRESENT(split_freq_format_)) THEN 
    717         split_freq_format__tmp = cxios_is_defined_file_split_freq_format(file_hdl%daddr) 
     782        split_freq_format__tmp = cxios_is_defined_file_split_freq_format & 
     783      (file_hdl%daddr) 
    718784        split_freq_format_ = split_freq_format__tmp 
    719785      ENDIF 
    720786 
    721787      IF (PRESENT(sync_freq_)) THEN 
    722         sync_freq__tmp = cxios_is_defined_file_sync_freq(file_hdl%daddr) 
     788        sync_freq__tmp = cxios_is_defined_file_sync_freq & 
     789      (file_hdl%daddr) 
    723790        sync_freq_ = sync_freq__tmp 
    724791      ENDIF 
    725792 
    726793      IF (PRESENT(time_counter_)) THEN 
    727         time_counter__tmp = cxios_is_defined_file_time_counter(file_hdl%daddr) 
     794        time_counter__tmp = cxios_is_defined_file_time_counter & 
     795      (file_hdl%daddr) 
    728796        time_counter_ = time_counter__tmp 
    729797      ENDIF 
    730798 
    731799      IF (PRESENT(time_counter_name_)) THEN 
    732         time_counter_name__tmp = cxios_is_defined_file_time_counter_name(file_hdl%daddr) 
     800        time_counter_name__tmp = cxios_is_defined_file_time_counter_name & 
     801      (file_hdl%daddr) 
    733802        time_counter_name_ = time_counter_name__tmp 
    734803      ENDIF 
    735804 
    736805      IF (PRESENT(timeseries_)) THEN 
    737         timeseries__tmp = cxios_is_defined_file_timeseries(file_hdl%daddr) 
     806        timeseries__tmp = cxios_is_defined_file_timeseries & 
     807      (file_hdl%daddr) 
    738808        timeseries_ = timeseries__tmp 
    739809      ENDIF 
    740810 
    741811      IF (PRESENT(ts_prefix_)) THEN 
    742         ts_prefix__tmp = cxios_is_defined_file_ts_prefix(file_hdl%daddr) 
     812        ts_prefix__tmp = cxios_is_defined_file_ts_prefix & 
     813      (file_hdl%daddr) 
    743814        ts_prefix_ = ts_prefix__tmp 
    744815      ENDIF 
    745816 
    746817      IF (PRESENT(type_)) THEN 
    747         type__tmp = cxios_is_defined_file_type(file_hdl%daddr) 
     818        type__tmp = cxios_is_defined_file_type & 
     819      (file_hdl%daddr) 
    748820        type_ = type__tmp 
    749821      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.