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

    r786 r966  
    2727      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lon_start 
    2828 
    29       CALL xios(get_generate_rectilinear_domain_handle)(generate_rectilinear_domain_id,generate_rectilinear_domain_hdl) 
     29      CALL xios(get_generate_rectilinear_domain_handle) & 
     30      (generate_rectilinear_domain_id,generate_rectilinear_domain_hdl) 
    3031      CALL xios(set_generate_rectilinear_domain_attr_hdl_)   & 
    3132      ( generate_rectilinear_domain_hdl, bounds_lat_end, bounds_lat_start, bounds_lon_end, bounds_lon_start  & 
    … …  
    7172 
    7273      IF (PRESENT(bounds_lat_end_)) THEN 
    73         CALL cxios_set_generate_rectilinear_domain_bounds_lat_end(generate_rectilinear_domain_hdl%daddr, bounds_lat_end_) 
     74        CALL cxios_set_generate_rectilinear_domain_bounds_lat_end & 
     75      (generate_rectilinear_domain_hdl%daddr, bounds_lat_end_) 
    7476      ENDIF 
    7577 
    7678      IF (PRESENT(bounds_lat_start_)) THEN 
    77         CALL cxios_set_generate_rectilinear_domain_bounds_lat_start(generate_rectilinear_domain_hdl%daddr, bounds_lat_start_) 
     79        CALL cxios_set_generate_rectilinear_domain_bounds_lat_start & 
     80      (generate_rectilinear_domain_hdl%daddr, bounds_lat_start_) 
    7881      ENDIF 
    7982 
    8083      IF (PRESENT(bounds_lon_end_)) THEN 
    81         CALL cxios_set_generate_rectilinear_domain_bounds_lon_end(generate_rectilinear_domain_hdl%daddr, bounds_lon_end_) 
     84        CALL cxios_set_generate_rectilinear_domain_bounds_lon_end & 
     85      (generate_rectilinear_domain_hdl%daddr, bounds_lon_end_) 
    8286      ENDIF 
    8387 
    8488      IF (PRESENT(bounds_lon_start_)) THEN 
    85         CALL cxios_set_generate_rectilinear_domain_bounds_lon_start(generate_rectilinear_domain_hdl%daddr, bounds_lon_start_) 
     89        CALL cxios_set_generate_rectilinear_domain_bounds_lon_start & 
     90      (generate_rectilinear_domain_hdl%daddr, bounds_lon_start_) 
    8691      ENDIF 
    8792 
    8893      IF (PRESENT(lat_end_)) THEN 
    89         CALL cxios_set_generate_rectilinear_domain_lat_end(generate_rectilinear_domain_hdl%daddr, lat_end_) 
     94        CALL cxios_set_generate_rectilinear_domain_lat_end & 
     95      (generate_rectilinear_domain_hdl%daddr, lat_end_) 
    9096      ENDIF 
    9197 
    9298      IF (PRESENT(lat_start_)) THEN 
    93         CALL cxios_set_generate_rectilinear_domain_lat_start(generate_rectilinear_domain_hdl%daddr, lat_start_) 
     99        CALL cxios_set_generate_rectilinear_domain_lat_start & 
     100      (generate_rectilinear_domain_hdl%daddr, lat_start_) 
    94101      ENDIF 
    95102 
    96103      IF (PRESENT(lon_end_)) THEN 
    97         CALL cxios_set_generate_rectilinear_domain_lon_end(generate_rectilinear_domain_hdl%daddr, lon_end_) 
     104        CALL cxios_set_generate_rectilinear_domain_lon_end & 
     105      (generate_rectilinear_domain_hdl%daddr, lon_end_) 
    98106      ENDIF 
    99107 
    100108      IF (PRESENT(lon_start_)) THEN 
    101         CALL cxios_set_generate_rectilinear_domain_lon_start(generate_rectilinear_domain_hdl%daddr, lon_start_) 
     109        CALL cxios_set_generate_rectilinear_domain_lon_start & 
     110      (generate_rectilinear_domain_hdl%daddr, lon_start_) 
    102111      ENDIF 
    103112 
    … …  
    120129      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lon_start 
    121130 
    122       CALL xios(get_generate_rectilinear_domain_handle)(generate_rectilinear_domain_id,generate_rectilinear_domain_hdl) 
     131      CALL xios(get_generate_rectilinear_domain_handle) & 
     132      (generate_rectilinear_domain_id,generate_rectilinear_domain_hdl) 
    123133      CALL xios(get_generate_rectilinear_domain_attr_hdl_)   & 
    124134      ( generate_rectilinear_domain_hdl, bounds_lat_end, bounds_lat_start, bounds_lon_end, bounds_lon_start  & 
    … …  
    164174 
    165175      IF (PRESENT(bounds_lat_end_)) THEN 
    166         CALL cxios_get_generate_rectilinear_domain_bounds_lat_end(generate_rectilinear_domain_hdl%daddr, bounds_lat_end_) 
     176        CALL cxios_get_generate_rectilinear_domain_bounds_lat_end & 
     177      (generate_rectilinear_domain_hdl%daddr, bounds_lat_end_) 
    167178      ENDIF 
    168179 
    169180      IF (PRESENT(bounds_lat_start_)) THEN 
    170         CALL cxios_get_generate_rectilinear_domain_bounds_lat_start(generate_rectilinear_domain_hdl%daddr, bounds_lat_start_) 
     181        CALL cxios_get_generate_rectilinear_domain_bounds_lat_start & 
     182      (generate_rectilinear_domain_hdl%daddr, bounds_lat_start_) 
    171183      ENDIF 
    172184 
    173185      IF (PRESENT(bounds_lon_end_)) THEN 
    174         CALL cxios_get_generate_rectilinear_domain_bounds_lon_end(generate_rectilinear_domain_hdl%daddr, bounds_lon_end_) 
     186        CALL cxios_get_generate_rectilinear_domain_bounds_lon_end & 
     187      (generate_rectilinear_domain_hdl%daddr, bounds_lon_end_) 
    175188      ENDIF 
    176189 
    177190      IF (PRESENT(bounds_lon_start_)) THEN 
    178         CALL cxios_get_generate_rectilinear_domain_bounds_lon_start(generate_rectilinear_domain_hdl%daddr, bounds_lon_start_) 
     191        CALL cxios_get_generate_rectilinear_domain_bounds_lon_start & 
     192      (generate_rectilinear_domain_hdl%daddr, bounds_lon_start_) 
    179193      ENDIF 
    180194 
    181195      IF (PRESENT(lat_end_)) THEN 
    182         CALL cxios_get_generate_rectilinear_domain_lat_end(generate_rectilinear_domain_hdl%daddr, lat_end_) 
     196        CALL cxios_get_generate_rectilinear_domain_lat_end & 
     197      (generate_rectilinear_domain_hdl%daddr, lat_end_) 
    183198      ENDIF 
    184199 
    185200      IF (PRESENT(lat_start_)) THEN 
    186         CALL cxios_get_generate_rectilinear_domain_lat_start(generate_rectilinear_domain_hdl%daddr, lat_start_) 
     201        CALL cxios_get_generate_rectilinear_domain_lat_start & 
     202      (generate_rectilinear_domain_hdl%daddr, lat_start_) 
    187203      ENDIF 
    188204 
    189205      IF (PRESENT(lon_end_)) THEN 
    190         CALL cxios_get_generate_rectilinear_domain_lon_end(generate_rectilinear_domain_hdl%daddr, lon_end_) 
     206        CALL cxios_get_generate_rectilinear_domain_lon_end & 
     207      (generate_rectilinear_domain_hdl%daddr, lon_end_) 
    191208      ENDIF 
    192209 
    193210      IF (PRESENT(lon_start_)) THEN 
    194         CALL cxios_get_generate_rectilinear_domain_lon_start(generate_rectilinear_domain_hdl%daddr, lon_start_) 
     211        CALL cxios_get_generate_rectilinear_domain_lon_start & 
     212      (generate_rectilinear_domain_hdl%daddr, lon_start_) 
    195213      ENDIF 
    196214 
    … …  
    221239      LOGICAL(KIND=C_BOOL) :: lon_start_tmp 
    222240 
    223       CALL xios(get_generate_rectilinear_domain_handle)(generate_rectilinear_domain_id,generate_rectilinear_domain_hdl) 
     241      CALL xios(get_generate_rectilinear_domain_handle) & 
     242      (generate_rectilinear_domain_id,generate_rectilinear_domain_hdl) 
    224243      CALL xios(is_defined_generate_rectilinear_domain_attr_hdl_)   & 
    225244      ( generate_rectilinear_domain_hdl, bounds_lat_end, bounds_lat_start, bounds_lon_end, bounds_lon_start  & 
    … …  
    281300 
    282301      IF (PRESENT(bounds_lat_end_)) THEN 
    283         bounds_lat_end__tmp = cxios_is_defined_generate_rectilinear_domain_bounds_lat_end(generate_rectilinear_domain_hdl%daddr) 
     302        bounds_lat_end__tmp = cxios_is_defined_generate_rectilinear_domain_bounds_lat_end & 
     303      (generate_rectilinear_domain_hdl%daddr) 
    284304        bounds_lat_end_ = bounds_lat_end__tmp 
    285305      ENDIF 
    286306 
    287307      IF (PRESENT(bounds_lat_start_)) THEN 
    288         bounds_lat_start__tmp = cxios_is_defined_generate_rectilinear_domain_bounds_lat_start(generate_rectilinear_domain_hdl%daddr) 
     308        bounds_lat_start__tmp = cxios_is_defined_generate_rectilinear_domain_bounds_lat_start & 
     309      (generate_rectilinear_domain_hdl%daddr) 
    289310        bounds_lat_start_ = bounds_lat_start__tmp 
    290311      ENDIF 
    291312 
    292313      IF (PRESENT(bounds_lon_end_)) THEN 
    293         bounds_lon_end__tmp = cxios_is_defined_generate_rectilinear_domain_bounds_lon_end(generate_rectilinear_domain_hdl%daddr) 
     314        bounds_lon_end__tmp = cxios_is_defined_generate_rectilinear_domain_bounds_lon_end & 
     315      (generate_rectilinear_domain_hdl%daddr) 
    294316        bounds_lon_end_ = bounds_lon_end__tmp 
    295317      ENDIF 
    296318 
    297319      IF (PRESENT(bounds_lon_start_)) THEN 
    298         bounds_lon_start__tmp = cxios_is_defined_generate_rectilinear_domain_bounds_lon_start(generate_rectilinear_domain_hdl%daddr) 
     320        bounds_lon_start__tmp = cxios_is_defined_generate_rectilinear_domain_bounds_lon_start & 
     321      (generate_rectilinear_domain_hdl%daddr) 
    299322        bounds_lon_start_ = bounds_lon_start__tmp 
    300323      ENDIF 
    301324 
    302325      IF (PRESENT(lat_end_)) THEN 
    303         lat_end__tmp = cxios_is_defined_generate_rectilinear_domain_lat_end(generate_rectilinear_domain_hdl%daddr) 
     326        lat_end__tmp = cxios_is_defined_generate_rectilinear_domain_lat_end & 
     327      (generate_rectilinear_domain_hdl%daddr) 
    304328        lat_end_ = lat_end__tmp 
    305329      ENDIF 
    306330 
    307331      IF (PRESENT(lat_start_)) THEN 
    308         lat_start__tmp = cxios_is_defined_generate_rectilinear_domain_lat_start(generate_rectilinear_domain_hdl%daddr) 
     332        lat_start__tmp = cxios_is_defined_generate_rectilinear_domain_lat_start & 
     333      (generate_rectilinear_domain_hdl%daddr) 
    309334        lat_start_ = lat_start__tmp 
    310335      ENDIF 
    311336 
    312337      IF (PRESENT(lon_end_)) THEN 
    313         lon_end__tmp = cxios_is_defined_generate_rectilinear_domain_lon_end(generate_rectilinear_domain_hdl%daddr) 
     338        lon_end__tmp = cxios_is_defined_generate_rectilinear_domain_lon_end & 
     339      (generate_rectilinear_domain_hdl%daddr) 
    314340        lon_end_ = lon_end__tmp 
    315341      ENDIF 
    316342 
    317343      IF (PRESENT(lon_start_)) THEN 
    318         lon_start__tmp = cxios_is_defined_generate_rectilinear_domain_lon_start(generate_rectilinear_domain_hdl%daddr) 
     344        lon_start__tmp = cxios_is_defined_generate_rectilinear_domain_lon_start & 
     345      (generate_rectilinear_domain_hdl%daddr) 
    319346        lon_start_ = lon_start__tmp 
    320347      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.