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

    r817 r966  
    3838      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value(:) 
    3939 
    40       CALL xios(get_axisgroup_handle)(axisgroup_id,axisgroup_hdl) 
     40      CALL xios(get_axisgroup_handle) & 
     41      (axisgroup_id,axisgroup_hdl) 
    4142      CALL xios(set_axisgroup_attr_hdl_)   & 
    4243      ( axisgroup_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, long_name  & 
    … …  
    105106 
    106107      IF (PRESENT(axis_ref_)) THEN 
    107         CALL cxios_set_axisgroup_axis_ref(axisgroup_hdl%daddr, axis_ref_, len(axis_ref_)) 
     108        CALL cxios_set_axisgroup_axis_ref & 
     109      (axisgroup_hdl%daddr, axis_ref_, len(axis_ref_)) 
    108110      ENDIF 
    109111 
    110112      IF (PRESENT(begin_)) THEN 
    111         CALL cxios_set_axisgroup_begin(axisgroup_hdl%daddr, begin_) 
     113        CALL cxios_set_axisgroup_begin & 
     114      (axisgroup_hdl%daddr, begin_) 
    112115      ENDIF 
    113116 
    114117      IF (PRESENT(bounds_)) THEN 
    115         CALL cxios_set_axisgroup_bounds(axisgroup_hdl%daddr, bounds_, SHAPE(bounds_)) 
     118        CALL cxios_set_axisgroup_bounds & 
     119      (axisgroup_hdl%daddr, bounds_, SHAPE(bounds_)) 
    116120      ENDIF 
    117121 
    118122      IF (PRESENT(data_begin_)) THEN 
    119         CALL cxios_set_axisgroup_data_begin(axisgroup_hdl%daddr, data_begin_) 
     123        CALL cxios_set_axisgroup_data_begin & 
     124      (axisgroup_hdl%daddr, data_begin_) 
    120125      ENDIF 
    121126 
    122127      IF (PRESENT(data_index_)) THEN 
    123         CALL cxios_set_axisgroup_data_index(axisgroup_hdl%daddr, data_index_, SHAPE(data_index_)) 
     128        CALL cxios_set_axisgroup_data_index & 
     129      (axisgroup_hdl%daddr, data_index_, SHAPE(data_index_)) 
    124130      ENDIF 
    125131 
    126132      IF (PRESENT(data_n_)) THEN 
    127         CALL cxios_set_axisgroup_data_n(axisgroup_hdl%daddr, data_n_) 
     133        CALL cxios_set_axisgroup_data_n & 
     134      (axisgroup_hdl%daddr, data_n_) 
    128135      ENDIF 
    129136 
    130137      IF (PRESENT(group_ref_)) THEN 
    131         CALL cxios_set_axisgroup_group_ref(axisgroup_hdl%daddr, group_ref_, len(group_ref_)) 
     138        CALL cxios_set_axisgroup_group_ref & 
     139      (axisgroup_hdl%daddr, group_ref_, len(group_ref_)) 
    132140      ENDIF 
    133141 
    134142      IF (PRESENT(index_)) THEN 
    135         CALL cxios_set_axisgroup_index(axisgroup_hdl%daddr, index_, SHAPE(index_)) 
     143        CALL cxios_set_axisgroup_index & 
     144      (axisgroup_hdl%daddr, index_, SHAPE(index_)) 
    136145      ENDIF 
    137146 
    138147      IF (PRESENT(long_name_)) THEN 
    139         CALL cxios_set_axisgroup_long_name(axisgroup_hdl%daddr, long_name_, len(long_name_)) 
     148        CALL cxios_set_axisgroup_long_name & 
     149      (axisgroup_hdl%daddr, long_name_, len(long_name_)) 
    140150      ENDIF 
    141151 
    … …  
    143153        ALLOCATE(mask__tmp(SIZE(mask_,1))) 
    144154        mask__tmp = mask_ 
    145         CALL cxios_set_axisgroup_mask(axisgroup_hdl%daddr, mask__tmp, SHAPE(mask_)) 
     155        CALL cxios_set_axisgroup_mask & 
     156      (axisgroup_hdl%daddr, mask__tmp, SHAPE(mask_)) 
    146157      ENDIF 
    147158 
    148159      IF (PRESENT(n_)) THEN 
    149         CALL cxios_set_axisgroup_n(axisgroup_hdl%daddr, n_) 
     160        CALL cxios_set_axisgroup_n & 
     161      (axisgroup_hdl%daddr, n_) 
    150162      ENDIF 
    151163 
    152164      IF (PRESENT(n_distributed_partition_)) THEN 
    153         CALL cxios_set_axisgroup_n_distributed_partition(axisgroup_hdl%daddr, n_distributed_partition_) 
     165        CALL cxios_set_axisgroup_n_distributed_partition & 
     166      (axisgroup_hdl%daddr, n_distributed_partition_) 
    154167      ENDIF 
    155168 
    156169      IF (PRESENT(n_glo_)) THEN 
    157         CALL cxios_set_axisgroup_n_glo(axisgroup_hdl%daddr, n_glo_) 
     170        CALL cxios_set_axisgroup_n_glo & 
     171      (axisgroup_hdl%daddr, n_glo_) 
    158172      ENDIF 
    159173 
    160174      IF (PRESENT(name_)) THEN 
    161         CALL cxios_set_axisgroup_name(axisgroup_hdl%daddr, name_, len(name_)) 
     175        CALL cxios_set_axisgroup_name & 
     176      (axisgroup_hdl%daddr, name_, len(name_)) 
    162177      ENDIF 
    163178 
    164179      IF (PRESENT(positive_)) THEN 
    165         CALL cxios_set_axisgroup_positive(axisgroup_hdl%daddr, positive_, len(positive_)) 
     180        CALL cxios_set_axisgroup_positive & 
     181      (axisgroup_hdl%daddr, positive_, len(positive_)) 
    166182      ENDIF 
    167183 
    168184      IF (PRESENT(standard_name_)) THEN 
    169         CALL cxios_set_axisgroup_standard_name(axisgroup_hdl%daddr, standard_name_, len(standard_name_)) 
     185        CALL cxios_set_axisgroup_standard_name & 
     186      (axisgroup_hdl%daddr, standard_name_, len(standard_name_)) 
    170187      ENDIF 
    171188 
    172189      IF (PRESENT(unit_)) THEN 
    173         CALL cxios_set_axisgroup_unit(axisgroup_hdl%daddr, unit_, len(unit_)) 
     190        CALL cxios_set_axisgroup_unit & 
     191      (axisgroup_hdl%daddr, unit_, len(unit_)) 
    174192      ENDIF 
    175193 
    176194      IF (PRESENT(value_)) THEN 
    177         CALL cxios_set_axisgroup_value(axisgroup_hdl%daddr, value_, SHAPE(value_)) 
     195        CALL cxios_set_axisgroup_value & 
     196      (axisgroup_hdl%daddr, value_, SHAPE(value_)) 
    178197      ENDIF 
    179198 
    … …  
    207226      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value(:) 
    208227 
    209       CALL xios(get_axisgroup_handle)(axisgroup_id,axisgroup_hdl) 
     228      CALL xios(get_axisgroup_handle) & 
     229      (axisgroup_id,axisgroup_hdl) 
    210230      CALL xios(get_axisgroup_attr_hdl_)   & 
    211231      ( axisgroup_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, long_name  & 
    … …  
    274294 
    275295      IF (PRESENT(axis_ref_)) THEN 
    276         CALL cxios_get_axisgroup_axis_ref(axisgroup_hdl%daddr, axis_ref_, len(axis_ref_)) 
     296        CALL cxios_get_axisgroup_axis_ref & 
     297      (axisgroup_hdl%daddr, axis_ref_, len(axis_ref_)) 
    277298      ENDIF 
    278299 
    279300      IF (PRESENT(begin_)) THEN 
    280         CALL cxios_get_axisgroup_begin(axisgroup_hdl%daddr, begin_) 
     301        CALL cxios_get_axisgroup_begin & 
     302      (axisgroup_hdl%daddr, begin_) 
    281303      ENDIF 
    282304 
    283305      IF (PRESENT(bounds_)) THEN 
    284         CALL cxios_get_axisgroup_bounds(axisgroup_hdl%daddr, bounds_, SHAPE(bounds_)) 
     306        CALL cxios_get_axisgroup_bounds & 
     307      (axisgroup_hdl%daddr, bounds_, SHAPE(bounds_)) 
    285308      ENDIF 
    286309 
    287310      IF (PRESENT(data_begin_)) THEN 
    288         CALL cxios_get_axisgroup_data_begin(axisgroup_hdl%daddr, data_begin_) 
     311        CALL cxios_get_axisgroup_data_begin & 
     312      (axisgroup_hdl%daddr, data_begin_) 
    289313      ENDIF 
    290314 
    291315      IF (PRESENT(data_index_)) THEN 
    292         CALL cxios_get_axisgroup_data_index(axisgroup_hdl%daddr, data_index_, SHAPE(data_index_)) 
     316        CALL cxios_get_axisgroup_data_index & 
     317      (axisgroup_hdl%daddr, data_index_, SHAPE(data_index_)) 
    293318      ENDIF 
    294319 
    295320      IF (PRESENT(data_n_)) THEN 
    296         CALL cxios_get_axisgroup_data_n(axisgroup_hdl%daddr, data_n_) 
     321        CALL cxios_get_axisgroup_data_n & 
     322      (axisgroup_hdl%daddr, data_n_) 
    297323      ENDIF 
    298324 
    299325      IF (PRESENT(group_ref_)) THEN 
    300         CALL cxios_get_axisgroup_group_ref(axisgroup_hdl%daddr, group_ref_, len(group_ref_)) 
     326        CALL cxios_get_axisgroup_group_ref & 
     327      (axisgroup_hdl%daddr, group_ref_, len(group_ref_)) 
    301328      ENDIF 
    302329 
    303330      IF (PRESENT(index_)) THEN 
    304         CALL cxios_get_axisgroup_index(axisgroup_hdl%daddr, index_, SHAPE(index_)) 
     331        CALL cxios_get_axisgroup_index & 
     332      (axisgroup_hdl%daddr, index_, SHAPE(index_)) 
    305333      ENDIF 
    306334 
    307335      IF (PRESENT(long_name_)) THEN 
    308         CALL cxios_get_axisgroup_long_name(axisgroup_hdl%daddr, long_name_, len(long_name_)) 
     336        CALL cxios_get_axisgroup_long_name & 
     337      (axisgroup_hdl%daddr, long_name_, len(long_name_)) 
    309338      ENDIF 
    310339 
    311340      IF (PRESENT(mask_)) THEN 
    312341        ALLOCATE(mask__tmp(SIZE(mask_,1))) 
    313         CALL cxios_get_axisgroup_mask(axisgroup_hdl%daddr, mask__tmp, SHAPE(mask_)) 
     342        CALL cxios_get_axisgroup_mask & 
     343      (axisgroup_hdl%daddr, mask__tmp, SHAPE(mask_)) 
    314344        mask_ = mask__tmp 
    315345      ENDIF 
    316346 
    317347      IF (PRESENT(n_)) THEN 
    318         CALL cxios_get_axisgroup_n(axisgroup_hdl%daddr, n_) 
     348        CALL cxios_get_axisgroup_n & 
     349      (axisgroup_hdl%daddr, n_) 
    319350      ENDIF 
    320351 
    321352      IF (PRESENT(n_distributed_partition_)) THEN 
    322         CALL cxios_get_axisgroup_n_distributed_partition(axisgroup_hdl%daddr, n_distributed_partition_) 
     353        CALL cxios_get_axisgroup_n_distributed_partition & 
     354      (axisgroup_hdl%daddr, n_distributed_partition_) 
    323355      ENDIF 
    324356 
    325357      IF (PRESENT(n_glo_)) THEN 
    326         CALL cxios_get_axisgroup_n_glo(axisgroup_hdl%daddr, n_glo_) 
     358        CALL cxios_get_axisgroup_n_glo & 
     359      (axisgroup_hdl%daddr, n_glo_) 
    327360      ENDIF 
    328361 
    329362      IF (PRESENT(name_)) THEN 
    330         CALL cxios_get_axisgroup_name(axisgroup_hdl%daddr, name_, len(name_)) 
     363        CALL cxios_get_axisgroup_name & 
     364      (axisgroup_hdl%daddr, name_, len(name_)) 
    331365      ENDIF 
    332366 
    333367      IF (PRESENT(positive_)) THEN 
    334         CALL cxios_get_axisgroup_positive(axisgroup_hdl%daddr, positive_, len(positive_)) 
     368        CALL cxios_get_axisgroup_positive & 
     369      (axisgroup_hdl%daddr, positive_, len(positive_)) 
    335370      ENDIF 
    336371 
    337372      IF (PRESENT(standard_name_)) THEN 
    338         CALL cxios_get_axisgroup_standard_name(axisgroup_hdl%daddr, standard_name_, len(standard_name_)) 
     373        CALL cxios_get_axisgroup_standard_name & 
     374      (axisgroup_hdl%daddr, standard_name_, len(standard_name_)) 
    339375      ENDIF 
    340376 
    341377      IF (PRESENT(unit_)) THEN 
    342         CALL cxios_get_axisgroup_unit(axisgroup_hdl%daddr, unit_, len(unit_)) 
     378        CALL cxios_get_axisgroup_unit & 
     379      (axisgroup_hdl%daddr, unit_, len(unit_)) 
    343380      ENDIF 
    344381 
    345382      IF (PRESENT(value_)) THEN 
    346         CALL cxios_get_axisgroup_value(axisgroup_hdl%daddr, value_, SHAPE(value_)) 
     383        CALL cxios_get_axisgroup_value & 
     384      (axisgroup_hdl%daddr, value_, SHAPE(value_)) 
    347385      ENDIF 
    348386 
    … …  
    393431      LOGICAL(KIND=C_BOOL) :: value_tmp 
    394432 
    395       CALL xios(get_axisgroup_handle)(axisgroup_id,axisgroup_hdl) 
     433      CALL xios(get_axisgroup_handle) & 
     434      (axisgroup_id,axisgroup_hdl) 
    396435      CALL xios(is_defined_axisgroup_attr_hdl_)   & 
    397436      ( axisgroup_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, long_name  & 
    … …  
    494533 
    495534      IF (PRESENT(axis_ref_)) THEN 
    496         axis_ref__tmp = cxios_is_defined_axisgroup_axis_ref(axisgroup_hdl%daddr) 
     535        axis_ref__tmp = cxios_is_defined_axisgroup_axis_ref & 
     536      (axisgroup_hdl%daddr) 
    497537        axis_ref_ = axis_ref__tmp 
    498538      ENDIF 
    499539 
    500540      IF (PRESENT(begin_)) THEN 
    501         begin__tmp = cxios_is_defined_axisgroup_begin(axisgroup_hdl%daddr) 
     541        begin__tmp = cxios_is_defined_axisgroup_begin & 
     542      (axisgroup_hdl%daddr) 
    502543        begin_ = begin__tmp 
    503544      ENDIF 
    504545 
    505546      IF (PRESENT(bounds_)) THEN 
    506         bounds__tmp = cxios_is_defined_axisgroup_bounds(axisgroup_hdl%daddr) 
     547        bounds__tmp = cxios_is_defined_axisgroup_bounds & 
     548      (axisgroup_hdl%daddr) 
    507549        bounds_ = bounds__tmp 
    508550      ENDIF 
    509551 
    510552      IF (PRESENT(data_begin_)) THEN 
    511         data_begin__tmp = cxios_is_defined_axisgroup_data_begin(axisgroup_hdl%daddr) 
     553        data_begin__tmp = cxios_is_defined_axisgroup_data_begin & 
     554      (axisgroup_hdl%daddr) 
    512555        data_begin_ = data_begin__tmp 
    513556      ENDIF 
    514557 
    515558      IF (PRESENT(data_index_)) THEN 
    516         data_index__tmp = cxios_is_defined_axisgroup_data_index(axisgroup_hdl%daddr) 
     559        data_index__tmp = cxios_is_defined_axisgroup_data_index & 
     560      (axisgroup_hdl%daddr) 
    517561        data_index_ = data_index__tmp 
    518562      ENDIF 
    519563 
    520564      IF (PRESENT(data_n_)) THEN 
    521         data_n__tmp = cxios_is_defined_axisgroup_data_n(axisgroup_hdl%daddr) 
     565        data_n__tmp = cxios_is_defined_axisgroup_data_n & 
     566      (axisgroup_hdl%daddr) 
    522567        data_n_ = data_n__tmp 
    523568      ENDIF 
    524569 
    525570      IF (PRESENT(group_ref_)) THEN 
    526         group_ref__tmp = cxios_is_defined_axisgroup_group_ref(axisgroup_hdl%daddr) 
     571        group_ref__tmp = cxios_is_defined_axisgroup_group_ref & 
     572      (axisgroup_hdl%daddr) 
    527573        group_ref_ = group_ref__tmp 
    528574      ENDIF 
    529575 
    530576      IF (PRESENT(index_)) THEN 
    531         index__tmp = cxios_is_defined_axisgroup_index(axisgroup_hdl%daddr) 
     577        index__tmp = cxios_is_defined_axisgroup_index & 
     578      (axisgroup_hdl%daddr) 
    532579        index_ = index__tmp 
    533580      ENDIF 
    534581 
    535582      IF (PRESENT(long_name_)) THEN 
    536         long_name__tmp = cxios_is_defined_axisgroup_long_name(axisgroup_hdl%daddr) 
     583        long_name__tmp = cxios_is_defined_axisgroup_long_name & 
     584      (axisgroup_hdl%daddr) 
    537585        long_name_ = long_name__tmp 
    538586      ENDIF 
    539587 
    540588      IF (PRESENT(mask_)) THEN 
    541         mask__tmp = cxios_is_defined_axisgroup_mask(axisgroup_hdl%daddr) 
     589        mask__tmp = cxios_is_defined_axisgroup_mask & 
     590      (axisgroup_hdl%daddr) 
    542591        mask_ = mask__tmp 
    543592      ENDIF 
    544593 
    545594      IF (PRESENT(n_)) THEN 
    546         n__tmp = cxios_is_defined_axisgroup_n(axisgroup_hdl%daddr) 
     595        n__tmp = cxios_is_defined_axisgroup_n & 
     596      (axisgroup_hdl%daddr) 
    547597        n_ = n__tmp 
    548598      ENDIF 
    549599 
    550600      IF (PRESENT(n_distributed_partition_)) THEN 
    551         n_distributed_partition__tmp = cxios_is_defined_axisgroup_n_distributed_partition(axisgroup_hdl%daddr) 
     601        n_distributed_partition__tmp = cxios_is_defined_axisgroup_n_distributed_partition & 
     602      (axisgroup_hdl%daddr) 
    552603        n_distributed_partition_ = n_distributed_partition__tmp 
    553604      ENDIF 
    554605 
    555606      IF (PRESENT(n_glo_)) THEN 
    556         n_glo__tmp = cxios_is_defined_axisgroup_n_glo(axisgroup_hdl%daddr) 
     607        n_glo__tmp = cxios_is_defined_axisgroup_n_glo & 
     608      (axisgroup_hdl%daddr) 
    557609        n_glo_ = n_glo__tmp 
    558610      ENDIF 
    559611 
    560612      IF (PRESENT(name_)) THEN 
    561         name__tmp = cxios_is_defined_axisgroup_name(axisgroup_hdl%daddr) 
     613        name__tmp = cxios_is_defined_axisgroup_name & 
     614      (axisgroup_hdl%daddr) 
    562615        name_ = name__tmp 
    563616      ENDIF 
    564617 
    565618      IF (PRESENT(positive_)) THEN 
    566         positive__tmp = cxios_is_defined_axisgroup_positive(axisgroup_hdl%daddr) 
     619        positive__tmp = cxios_is_defined_axisgroup_positive & 
     620      (axisgroup_hdl%daddr) 
    567621        positive_ = positive__tmp 
    568622      ENDIF 
    569623 
    570624      IF (PRESENT(standard_name_)) THEN 
    571         standard_name__tmp = cxios_is_defined_axisgroup_standard_name(axisgroup_hdl%daddr) 
     625        standard_name__tmp = cxios_is_defined_axisgroup_standard_name & 
     626      (axisgroup_hdl%daddr) 
    572627        standard_name_ = standard_name__tmp 
    573628      ENDIF 
    574629 
    575630      IF (PRESENT(unit_)) THEN 
    576         unit__tmp = cxios_is_defined_axisgroup_unit(axisgroup_hdl%daddr) 
     631        unit__tmp = cxios_is_defined_axisgroup_unit & 
     632      (axisgroup_hdl%daddr) 
    577633        unit_ = unit__tmp 
    578634      ENDIF 
    579635 
    580636      IF (PRESENT(value_)) THEN 
    581         value__tmp = cxios_is_defined_axisgroup_value(axisgroup_hdl%daddr) 
     637        value__tmp = cxios_is_defined_axisgroup_value & 
     638      (axisgroup_hdl%daddr) 
    582639        value_ = value__tmp 
    583640      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.