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

    r817 r966  
    3737      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value(:) 
    3838 
    39       CALL xios(get_axis_handle)(axis_id,axis_hdl) 
     39      CALL xios(get_axis_handle) & 
     40      (axis_id,axis_hdl) 
    4041      CALL xios(set_axis_attr_hdl_)   & 
    4142      ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, long_name, mask  & 
    … …  
    102103 
    103104      IF (PRESENT(axis_ref_)) THEN 
    104         CALL cxios_set_axis_axis_ref(axis_hdl%daddr, axis_ref_, len(axis_ref_)) 
     105        CALL cxios_set_axis_axis_ref & 
     106      (axis_hdl%daddr, axis_ref_, len(axis_ref_)) 
    105107      ENDIF 
    106108 
    107109      IF (PRESENT(begin_)) THEN 
    108         CALL cxios_set_axis_begin(axis_hdl%daddr, begin_) 
     110        CALL cxios_set_axis_begin & 
     111      (axis_hdl%daddr, begin_) 
    109112      ENDIF 
    110113 
    111114      IF (PRESENT(bounds_)) THEN 
    112         CALL cxios_set_axis_bounds(axis_hdl%daddr, bounds_, SHAPE(bounds_)) 
     115        CALL cxios_set_axis_bounds & 
     116      (axis_hdl%daddr, bounds_, SHAPE(bounds_)) 
    113117      ENDIF 
    114118 
    115119      IF (PRESENT(data_begin_)) THEN 
    116         CALL cxios_set_axis_data_begin(axis_hdl%daddr, data_begin_) 
     120        CALL cxios_set_axis_data_begin & 
     121      (axis_hdl%daddr, data_begin_) 
    117122      ENDIF 
    118123 
    119124      IF (PRESENT(data_index_)) THEN 
    120         CALL cxios_set_axis_data_index(axis_hdl%daddr, data_index_, SHAPE(data_index_)) 
     125        CALL cxios_set_axis_data_index & 
     126      (axis_hdl%daddr, data_index_, SHAPE(data_index_)) 
    121127      ENDIF 
    122128 
    123129      IF (PRESENT(data_n_)) THEN 
    124         CALL cxios_set_axis_data_n(axis_hdl%daddr, data_n_) 
     130        CALL cxios_set_axis_data_n & 
     131      (axis_hdl%daddr, data_n_) 
    125132      ENDIF 
    126133 
    127134      IF (PRESENT(index_)) THEN 
    128         CALL cxios_set_axis_index(axis_hdl%daddr, index_, SHAPE(index_)) 
     135        CALL cxios_set_axis_index & 
     136      (axis_hdl%daddr, index_, SHAPE(index_)) 
    129137      ENDIF 
    130138 
    131139      IF (PRESENT(long_name_)) THEN 
    132         CALL cxios_set_axis_long_name(axis_hdl%daddr, long_name_, len(long_name_)) 
     140        CALL cxios_set_axis_long_name & 
     141      (axis_hdl%daddr, long_name_, len(long_name_)) 
    133142      ENDIF 
    134143 
    … …  
    136145        ALLOCATE(mask__tmp(SIZE(mask_,1))) 
    137146        mask__tmp = mask_ 
    138         CALL cxios_set_axis_mask(axis_hdl%daddr, mask__tmp, SHAPE(mask_)) 
     147        CALL cxios_set_axis_mask & 
     148      (axis_hdl%daddr, mask__tmp, SHAPE(mask_)) 
    139149      ENDIF 
    140150 
    141151      IF (PRESENT(n_)) THEN 
    142         CALL cxios_set_axis_n(axis_hdl%daddr, n_) 
     152        CALL cxios_set_axis_n & 
     153      (axis_hdl%daddr, n_) 
    143154      ENDIF 
    144155 
    145156      IF (PRESENT(n_distributed_partition_)) THEN 
    146         CALL cxios_set_axis_n_distributed_partition(axis_hdl%daddr, n_distributed_partition_) 
     157        CALL cxios_set_axis_n_distributed_partition & 
     158      (axis_hdl%daddr, n_distributed_partition_) 
    147159      ENDIF 
    148160 
    149161      IF (PRESENT(n_glo_)) THEN 
    150         CALL cxios_set_axis_n_glo(axis_hdl%daddr, n_glo_) 
     162        CALL cxios_set_axis_n_glo & 
     163      (axis_hdl%daddr, n_glo_) 
    151164      ENDIF 
    152165 
    153166      IF (PRESENT(name_)) THEN 
    154         CALL cxios_set_axis_name(axis_hdl%daddr, name_, len(name_)) 
     167        CALL cxios_set_axis_name & 
     168      (axis_hdl%daddr, name_, len(name_)) 
    155169      ENDIF 
    156170 
    157171      IF (PRESENT(positive_)) THEN 
    158         CALL cxios_set_axis_positive(axis_hdl%daddr, positive_, len(positive_)) 
     172        CALL cxios_set_axis_positive & 
     173      (axis_hdl%daddr, positive_, len(positive_)) 
    159174      ENDIF 
    160175 
    161176      IF (PRESENT(standard_name_)) THEN 
    162         CALL cxios_set_axis_standard_name(axis_hdl%daddr, standard_name_, len(standard_name_)) 
     177        CALL cxios_set_axis_standard_name & 
     178      (axis_hdl%daddr, standard_name_, len(standard_name_)) 
    163179      ENDIF 
    164180 
    165181      IF (PRESENT(unit_)) THEN 
    166         CALL cxios_set_axis_unit(axis_hdl%daddr, unit_, len(unit_)) 
     182        CALL cxios_set_axis_unit & 
     183      (axis_hdl%daddr, unit_, len(unit_)) 
    167184      ENDIF 
    168185 
    169186      IF (PRESENT(value_)) THEN 
    170         CALL cxios_set_axis_value(axis_hdl%daddr, value_, SHAPE(value_)) 
     187        CALL cxios_set_axis_value & 
     188      (axis_hdl%daddr, value_, SHAPE(value_)) 
    171189      ENDIF 
    172190 
    … …  
    199217      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value(:) 
    200218 
    201       CALL xios(get_axis_handle)(axis_id,axis_hdl) 
     219      CALL xios(get_axis_handle) & 
     220      (axis_id,axis_hdl) 
    202221      CALL xios(get_axis_attr_hdl_)   & 
    203222      ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, long_name, mask  & 
    … …  
    264283 
    265284      IF (PRESENT(axis_ref_)) THEN 
    266         CALL cxios_get_axis_axis_ref(axis_hdl%daddr, axis_ref_, len(axis_ref_)) 
     285        CALL cxios_get_axis_axis_ref & 
     286      (axis_hdl%daddr, axis_ref_, len(axis_ref_)) 
    267287      ENDIF 
    268288 
    269289      IF (PRESENT(begin_)) THEN 
    270         CALL cxios_get_axis_begin(axis_hdl%daddr, begin_) 
     290        CALL cxios_get_axis_begin & 
     291      (axis_hdl%daddr, begin_) 
    271292      ENDIF 
    272293 
    273294      IF (PRESENT(bounds_)) THEN 
    274         CALL cxios_get_axis_bounds(axis_hdl%daddr, bounds_, SHAPE(bounds_)) 
     295        CALL cxios_get_axis_bounds & 
     296      (axis_hdl%daddr, bounds_, SHAPE(bounds_)) 
    275297      ENDIF 
    276298 
    277299      IF (PRESENT(data_begin_)) THEN 
    278         CALL cxios_get_axis_data_begin(axis_hdl%daddr, data_begin_) 
     300        CALL cxios_get_axis_data_begin & 
     301      (axis_hdl%daddr, data_begin_) 
    279302      ENDIF 
    280303 
    281304      IF (PRESENT(data_index_)) THEN 
    282         CALL cxios_get_axis_data_index(axis_hdl%daddr, data_index_, SHAPE(data_index_)) 
     305        CALL cxios_get_axis_data_index & 
     306      (axis_hdl%daddr, data_index_, SHAPE(data_index_)) 
    283307      ENDIF 
    284308 
    285309      IF (PRESENT(data_n_)) THEN 
    286         CALL cxios_get_axis_data_n(axis_hdl%daddr, data_n_) 
     310        CALL cxios_get_axis_data_n & 
     311      (axis_hdl%daddr, data_n_) 
    287312      ENDIF 
    288313 
    289314      IF (PRESENT(index_)) THEN 
    290         CALL cxios_get_axis_index(axis_hdl%daddr, index_, SHAPE(index_)) 
     315        CALL cxios_get_axis_index & 
     316      (axis_hdl%daddr, index_, SHAPE(index_)) 
    291317      ENDIF 
    292318 
    293319      IF (PRESENT(long_name_)) THEN 
    294         CALL cxios_get_axis_long_name(axis_hdl%daddr, long_name_, len(long_name_)) 
     320        CALL cxios_get_axis_long_name & 
     321      (axis_hdl%daddr, long_name_, len(long_name_)) 
    295322      ENDIF 
    296323 
    297324      IF (PRESENT(mask_)) THEN 
    298325        ALLOCATE(mask__tmp(SIZE(mask_,1))) 
    299         CALL cxios_get_axis_mask(axis_hdl%daddr, mask__tmp, SHAPE(mask_)) 
     326        CALL cxios_get_axis_mask & 
     327      (axis_hdl%daddr, mask__tmp, SHAPE(mask_)) 
    300328        mask_ = mask__tmp 
    301329      ENDIF 
    302330 
    303331      IF (PRESENT(n_)) THEN 
    304         CALL cxios_get_axis_n(axis_hdl%daddr, n_) 
     332        CALL cxios_get_axis_n & 
     333      (axis_hdl%daddr, n_) 
    305334      ENDIF 
    306335 
    307336      IF (PRESENT(n_distributed_partition_)) THEN 
    308         CALL cxios_get_axis_n_distributed_partition(axis_hdl%daddr, n_distributed_partition_) 
     337        CALL cxios_get_axis_n_distributed_partition & 
     338      (axis_hdl%daddr, n_distributed_partition_) 
    309339      ENDIF 
    310340 
    311341      IF (PRESENT(n_glo_)) THEN 
    312         CALL cxios_get_axis_n_glo(axis_hdl%daddr, n_glo_) 
     342        CALL cxios_get_axis_n_glo & 
     343      (axis_hdl%daddr, n_glo_) 
    313344      ENDIF 
    314345 
    315346      IF (PRESENT(name_)) THEN 
    316         CALL cxios_get_axis_name(axis_hdl%daddr, name_, len(name_)) 
     347        CALL cxios_get_axis_name & 
     348      (axis_hdl%daddr, name_, len(name_)) 
    317349      ENDIF 
    318350 
    319351      IF (PRESENT(positive_)) THEN 
    320         CALL cxios_get_axis_positive(axis_hdl%daddr, positive_, len(positive_)) 
     352        CALL cxios_get_axis_positive & 
     353      (axis_hdl%daddr, positive_, len(positive_)) 
    321354      ENDIF 
    322355 
    323356      IF (PRESENT(standard_name_)) THEN 
    324         CALL cxios_get_axis_standard_name(axis_hdl%daddr, standard_name_, len(standard_name_)) 
     357        CALL cxios_get_axis_standard_name & 
     358      (axis_hdl%daddr, standard_name_, len(standard_name_)) 
    325359      ENDIF 
    326360 
    327361      IF (PRESENT(unit_)) THEN 
    328         CALL cxios_get_axis_unit(axis_hdl%daddr, unit_, len(unit_)) 
     362        CALL cxios_get_axis_unit & 
     363      (axis_hdl%daddr, unit_, len(unit_)) 
    329364      ENDIF 
    330365 
    331366      IF (PRESENT(value_)) THEN 
    332         CALL cxios_get_axis_value(axis_hdl%daddr, value_, SHAPE(value_)) 
     367        CALL cxios_get_axis_value & 
     368      (axis_hdl%daddr, value_, SHAPE(value_)) 
    333369      ENDIF 
    334370 
    … …  
    377413      LOGICAL(KIND=C_BOOL) :: value_tmp 
    378414 
    379       CALL xios(get_axis_handle)(axis_id,axis_hdl) 
     415      CALL xios(get_axis_handle) & 
     416      (axis_id,axis_hdl) 
    380417      CALL xios(is_defined_axis_attr_hdl_)   & 
    381418      ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, long_name, mask  & 
    … …  
    474511 
    475512      IF (PRESENT(axis_ref_)) THEN 
    476         axis_ref__tmp = cxios_is_defined_axis_axis_ref(axis_hdl%daddr) 
     513        axis_ref__tmp = cxios_is_defined_axis_axis_ref & 
     514      (axis_hdl%daddr) 
    477515        axis_ref_ = axis_ref__tmp 
    478516      ENDIF 
    479517 
    480518      IF (PRESENT(begin_)) THEN 
    481         begin__tmp = cxios_is_defined_axis_begin(axis_hdl%daddr) 
     519        begin__tmp = cxios_is_defined_axis_begin & 
     520      (axis_hdl%daddr) 
    482521        begin_ = begin__tmp 
    483522      ENDIF 
    484523 
    485524      IF (PRESENT(bounds_)) THEN 
    486         bounds__tmp = cxios_is_defined_axis_bounds(axis_hdl%daddr) 
     525        bounds__tmp = cxios_is_defined_axis_bounds & 
     526      (axis_hdl%daddr) 
    487527        bounds_ = bounds__tmp 
    488528      ENDIF 
    489529 
    490530      IF (PRESENT(data_begin_)) THEN 
    491         data_begin__tmp = cxios_is_defined_axis_data_begin(axis_hdl%daddr) 
     531        data_begin__tmp = cxios_is_defined_axis_data_begin & 
     532      (axis_hdl%daddr) 
    492533        data_begin_ = data_begin__tmp 
    493534      ENDIF 
    494535 
    495536      IF (PRESENT(data_index_)) THEN 
    496         data_index__tmp = cxios_is_defined_axis_data_index(axis_hdl%daddr) 
     537        data_index__tmp = cxios_is_defined_axis_data_index & 
     538      (axis_hdl%daddr) 
    497539        data_index_ = data_index__tmp 
    498540      ENDIF 
    499541 
    500542      IF (PRESENT(data_n_)) THEN 
    501         data_n__tmp = cxios_is_defined_axis_data_n(axis_hdl%daddr) 
     543        data_n__tmp = cxios_is_defined_axis_data_n & 
     544      (axis_hdl%daddr) 
    502545        data_n_ = data_n__tmp 
    503546      ENDIF 
    504547 
    505548      IF (PRESENT(index_)) THEN 
    506         index__tmp = cxios_is_defined_axis_index(axis_hdl%daddr) 
     549        index__tmp = cxios_is_defined_axis_index & 
     550      (axis_hdl%daddr) 
    507551        index_ = index__tmp 
    508552      ENDIF 
    509553 
    510554      IF (PRESENT(long_name_)) THEN 
    511         long_name__tmp = cxios_is_defined_axis_long_name(axis_hdl%daddr) 
     555        long_name__tmp = cxios_is_defined_axis_long_name & 
     556      (axis_hdl%daddr) 
    512557        long_name_ = long_name__tmp 
    513558      ENDIF 
    514559 
    515560      IF (PRESENT(mask_)) THEN 
    516         mask__tmp = cxios_is_defined_axis_mask(axis_hdl%daddr) 
     561        mask__tmp = cxios_is_defined_axis_mask & 
     562      (axis_hdl%daddr) 
    517563        mask_ = mask__tmp 
    518564      ENDIF 
    519565 
    520566      IF (PRESENT(n_)) THEN 
    521         n__tmp = cxios_is_defined_axis_n(axis_hdl%daddr) 
     567        n__tmp = cxios_is_defined_axis_n & 
     568      (axis_hdl%daddr) 
    522569        n_ = n__tmp 
    523570      ENDIF 
    524571 
    525572      IF (PRESENT(n_distributed_partition_)) THEN 
    526         n_distributed_partition__tmp = cxios_is_defined_axis_n_distributed_partition(axis_hdl%daddr) 
     573        n_distributed_partition__tmp = cxios_is_defined_axis_n_distributed_partition & 
     574      (axis_hdl%daddr) 
    527575        n_distributed_partition_ = n_distributed_partition__tmp 
    528576      ENDIF 
    529577 
    530578      IF (PRESENT(n_glo_)) THEN 
    531         n_glo__tmp = cxios_is_defined_axis_n_glo(axis_hdl%daddr) 
     579        n_glo__tmp = cxios_is_defined_axis_n_glo & 
     580      (axis_hdl%daddr) 
    532581        n_glo_ = n_glo__tmp 
    533582      ENDIF 
    534583 
    535584      IF (PRESENT(name_)) THEN 
    536         name__tmp = cxios_is_defined_axis_name(axis_hdl%daddr) 
     585        name__tmp = cxios_is_defined_axis_name & 
     586      (axis_hdl%daddr) 
    537587        name_ = name__tmp 
    538588      ENDIF 
    539589 
    540590      IF (PRESENT(positive_)) THEN 
    541         positive__tmp = cxios_is_defined_axis_positive(axis_hdl%daddr) 
     591        positive__tmp = cxios_is_defined_axis_positive & 
     592      (axis_hdl%daddr) 
    542593        positive_ = positive__tmp 
    543594      ENDIF 
    544595 
    545596      IF (PRESENT(standard_name_)) THEN 
    546         standard_name__tmp = cxios_is_defined_axis_standard_name(axis_hdl%daddr) 
     597        standard_name__tmp = cxios_is_defined_axis_standard_name & 
     598      (axis_hdl%daddr) 
    547599        standard_name_ = standard_name__tmp 
    548600      ENDIF 
    549601 
    550602      IF (PRESENT(unit_)) THEN 
    551         unit__tmp = cxios_is_defined_axis_unit(axis_hdl%daddr) 
     603        unit__tmp = cxios_is_defined_axis_unit & 
     604      (axis_hdl%daddr) 
    552605        unit_ = unit__tmp 
    553606      ENDIF 
    554607 
    555608      IF (PRESENT(value_)) THEN 
    556         value__tmp = cxios_is_defined_axis_value(axis_hdl%daddr) 
     609        value__tmp = cxios_is_defined_axis_value & 
     610      (axis_hdl%daddr) 
    557611        value_ = value__tmp 
    558612      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.