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

    r932 r966  
    3535      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name 
    3636 
    37       CALL xios(get_grid_handle)(grid_id,grid_hdl) 
     37      CALL xios(get_grid_handle) & 
     38      (grid_id,grid_hdl) 
    3839      CALL xios(set_grid_attr_hdl_)   & 
    3940      ( grid_hdl, description, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d, mask_7d, name  & 
    … …  
    9596 
    9697      IF (PRESENT(description_)) THEN 
    97         CALL cxios_set_grid_description(grid_hdl%daddr, description_, len(description_)) 
     98        CALL cxios_set_grid_description & 
     99      (grid_hdl%daddr, description_, len(description_)) 
    98100      ENDIF 
    99101 
    … …  
    101103        ALLOCATE(mask_1d__tmp(SIZE(mask_1d_,1))) 
    102104        mask_1d__tmp = mask_1d_ 
    103         CALL cxios_set_grid_mask_1d(grid_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_)) 
     105        CALL cxios_set_grid_mask_1d & 
     106      (grid_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_)) 
    104107      ENDIF 
    105108 
    … …  
    107110        ALLOCATE(mask_2d__tmp(SIZE(mask_2d_,1), SIZE(mask_2d_,2))) 
    108111        mask_2d__tmp = mask_2d_ 
    109         CALL cxios_set_grid_mask_2d(grid_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_)) 
     112        CALL cxios_set_grid_mask_2d & 
     113      (grid_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_)) 
    110114      ENDIF 
    111115 
    … …  
    113117        ALLOCATE(mask_3d__tmp(SIZE(mask_3d_,1), SIZE(mask_3d_,2), SIZE(mask_3d_,3))) 
    114118        mask_3d__tmp = mask_3d_ 
    115         CALL cxios_set_grid_mask_3d(grid_hdl%daddr, mask_3d__tmp, SHAPE(mask_3d_)) 
     119        CALL cxios_set_grid_mask_3d & 
     120      (grid_hdl%daddr, mask_3d__tmp, SHAPE(mask_3d_)) 
    116121      ENDIF 
    117122 
    118123      IF (PRESENT(mask_4d_)) THEN 
    119         ALLOCATE(mask_4d__tmp(SIZE(mask_4d_,1), SIZE(mask_4d_,2), SIZE(mask_4d_,3), SIZE(mask_4d_,4))) 
     124        ALLOCATE(mask_4d__tmp(SIZE(mask_4d_,1), SIZE(mask_4d_,2), SIZE(mask_4d_,3), & 
     125       SIZE(mask_4d_,4))) 
    120126        mask_4d__tmp = mask_4d_ 
    121         CALL cxios_set_grid_mask_4d(grid_hdl%daddr, mask_4d__tmp, SHAPE(mask_4d_)) 
     127        CALL cxios_set_grid_mask_4d & 
     128      (grid_hdl%daddr, mask_4d__tmp, SHAPE(mask_4d_)) 
    122129      ENDIF 
    123130 
    124131      IF (PRESENT(mask_5d_)) THEN 
    125         ALLOCATE(mask_5d__tmp(SIZE(mask_5d_,1), SIZE(mask_5d_,2), SIZE(mask_5d_,3), SIZE(mask_5d_,4), SIZE(mask_5d_,5))) 
     132        ALLOCATE(mask_5d__tmp(SIZE(mask_5d_,1), SIZE(mask_5d_,2), SIZE(mask_5d_,3), & 
     133       SIZE(mask_5d_,4), SIZE(mask_5d_,5))) 
    126134        mask_5d__tmp = mask_5d_ 
    127         CALL cxios_set_grid_mask_5d(grid_hdl%daddr, mask_5d__tmp, SHAPE(mask_5d_)) 
     135        CALL cxios_set_grid_mask_5d & 
     136      (grid_hdl%daddr, mask_5d__tmp, SHAPE(mask_5d_)) 
    128137      ENDIF 
    129138 
    130139      IF (PRESENT(mask_6d_)) THEN 
    131         ALLOCATE(mask_6d__tmp(SIZE(mask_6d_,1), SIZE(mask_6d_,2), SIZE(mask_6d_,3), SIZE(mask_6d_,4), SIZE(mask_6d_,5), SIZE(mask_6d_,6))) 
     140        ALLOCATE(mask_6d__tmp(SIZE(mask_6d_,1), SIZE(mask_6d_,2), SIZE(mask_6d_,3), & 
     141       SIZE(mask_6d_,4), SIZE(mask_6d_,5), SIZE(mask_6d_,6))) 
    132142        mask_6d__tmp = mask_6d_ 
    133         CALL cxios_set_grid_mask_6d(grid_hdl%daddr, mask_6d__tmp, SHAPE(mask_6d_)) 
     143        CALL cxios_set_grid_mask_6d & 
     144      (grid_hdl%daddr, mask_6d__tmp, SHAPE(mask_6d_)) 
    134145      ENDIF 
    135146 
    136147      IF (PRESENT(mask_7d_)) THEN 
    137         ALLOCATE(mask_7d__tmp(SIZE(mask_7d_,1), SIZE(mask_7d_,2), SIZE(mask_7d_,3), SIZE(mask_7d_,4), SIZE(mask_7d_,5), SIZE(mask_7d_,6), SIZE(mask_7d_,7))) 
     148        ALLOCATE(mask_7d__tmp(SIZE(mask_7d_,1), SIZE(mask_7d_,2), SIZE(mask_7d_,3), & 
     149       SIZE(mask_7d_,4), SIZE(mask_7d_,5), SIZE(mask_7d_,6), & 
     150       SIZE(mask_7d_,7))) 
    138151        mask_7d__tmp = mask_7d_ 
    139         CALL cxios_set_grid_mask_7d(grid_hdl%daddr, mask_7d__tmp, SHAPE(mask_7d_)) 
     152        CALL cxios_set_grid_mask_7d & 
     153      (grid_hdl%daddr, mask_7d__tmp, SHAPE(mask_7d_)) 
    140154      ENDIF 
    141155 
    142156      IF (PRESENT(name_)) THEN 
    143         CALL cxios_set_grid_name(grid_hdl%daddr, name_, len(name_)) 
     157        CALL cxios_set_grid_name & 
     158      (grid_hdl%daddr, name_, len(name_)) 
    144159      ENDIF 
    145160 
    … …  
    170185      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name 
    171186 
    172       CALL xios(get_grid_handle)(grid_id,grid_hdl) 
     187      CALL xios(get_grid_handle) & 
     188      (grid_id,grid_hdl) 
    173189      CALL xios(get_grid_attr_hdl_)   & 
    174190      ( grid_hdl, description, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d, mask_7d, name  & 
    … …  
    230246 
    231247      IF (PRESENT(description_)) THEN 
    232         CALL cxios_get_grid_description(grid_hdl%daddr, description_, len(description_)) 
     248        CALL cxios_get_grid_description & 
     249      (grid_hdl%daddr, description_, len(description_)) 
    233250      ENDIF 
    234251 
    235252      IF (PRESENT(mask_1d_)) THEN 
    236253        ALLOCATE(mask_1d__tmp(SIZE(mask_1d_,1))) 
    237         CALL cxios_get_grid_mask_1d(grid_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_)) 
     254        CALL cxios_get_grid_mask_1d & 
     255      (grid_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_)) 
    238256        mask_1d_ = mask_1d__tmp 
    239257      ENDIF 
    … …  
    241259      IF (PRESENT(mask_2d_)) THEN 
    242260        ALLOCATE(mask_2d__tmp(SIZE(mask_2d_,1), SIZE(mask_2d_,2))) 
    243         CALL cxios_get_grid_mask_2d(grid_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_)) 
     261        CALL cxios_get_grid_mask_2d & 
     262      (grid_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_)) 
    244263        mask_2d_ = mask_2d__tmp 
    245264      ENDIF 
    … …  
    247266      IF (PRESENT(mask_3d_)) THEN 
    248267        ALLOCATE(mask_3d__tmp(SIZE(mask_3d_,1), SIZE(mask_3d_,2), SIZE(mask_3d_,3))) 
    249         CALL cxios_get_grid_mask_3d(grid_hdl%daddr, mask_3d__tmp, SHAPE(mask_3d_)) 
     268        CALL cxios_get_grid_mask_3d & 
     269      (grid_hdl%daddr, mask_3d__tmp, SHAPE(mask_3d_)) 
    250270        mask_3d_ = mask_3d__tmp 
    251271      ENDIF 
    252272 
    253273      IF (PRESENT(mask_4d_)) THEN 
    254         ALLOCATE(mask_4d__tmp(SIZE(mask_4d_,1), SIZE(mask_4d_,2), SIZE(mask_4d_,3), SIZE(mask_4d_,4))) 
    255         CALL cxios_get_grid_mask_4d(grid_hdl%daddr, mask_4d__tmp, SHAPE(mask_4d_)) 
     274        ALLOCATE(mask_4d__tmp(SIZE(mask_4d_,1), SIZE(mask_4d_,2), SIZE(mask_4d_,3), & 
     275       SIZE(mask_4d_,4))) 
     276        CALL cxios_get_grid_mask_4d & 
     277      (grid_hdl%daddr, mask_4d__tmp, SHAPE(mask_4d_)) 
    256278        mask_4d_ = mask_4d__tmp 
    257279      ENDIF 
    258280 
    259281      IF (PRESENT(mask_5d_)) THEN 
    260         ALLOCATE(mask_5d__tmp(SIZE(mask_5d_,1), SIZE(mask_5d_,2), SIZE(mask_5d_,3), SIZE(mask_5d_,4), SIZE(mask_5d_,5))) 
    261         CALL cxios_get_grid_mask_5d(grid_hdl%daddr, mask_5d__tmp, SHAPE(mask_5d_)) 
     282        ALLOCATE(mask_5d__tmp(SIZE(mask_5d_,1), SIZE(mask_5d_,2), SIZE(mask_5d_,3), & 
     283       SIZE(mask_5d_,4), SIZE(mask_5d_,5))) 
     284        CALL cxios_get_grid_mask_5d & 
     285      (grid_hdl%daddr, mask_5d__tmp, SHAPE(mask_5d_)) 
    262286        mask_5d_ = mask_5d__tmp 
    263287      ENDIF 
    264288 
    265289      IF (PRESENT(mask_6d_)) THEN 
    266         ALLOCATE(mask_6d__tmp(SIZE(mask_6d_,1), SIZE(mask_6d_,2), SIZE(mask_6d_,3), SIZE(mask_6d_,4), SIZE(mask_6d_,5), SIZE(mask_6d_,6))) 
    267         CALL cxios_get_grid_mask_6d(grid_hdl%daddr, mask_6d__tmp, SHAPE(mask_6d_)) 
     290        ALLOCATE(mask_6d__tmp(SIZE(mask_6d_,1), SIZE(mask_6d_,2), SIZE(mask_6d_,3), & 
     291       SIZE(mask_6d_,4), SIZE(mask_6d_,5), SIZE(mask_6d_,6))) 
     292        CALL cxios_get_grid_mask_6d & 
     293      (grid_hdl%daddr, mask_6d__tmp, SHAPE(mask_6d_)) 
    268294        mask_6d_ = mask_6d__tmp 
    269295      ENDIF 
    270296 
    271297      IF (PRESENT(mask_7d_)) THEN 
    272         ALLOCATE(mask_7d__tmp(SIZE(mask_7d_,1), SIZE(mask_7d_,2), SIZE(mask_7d_,3), SIZE(mask_7d_,4), SIZE(mask_7d_,5), SIZE(mask_7d_,6), SIZE(mask_7d_,7))) 
    273         CALL cxios_get_grid_mask_7d(grid_hdl%daddr, mask_7d__tmp, SHAPE(mask_7d_)) 
     298        ALLOCATE(mask_7d__tmp(SIZE(mask_7d_,1), SIZE(mask_7d_,2), SIZE(mask_7d_,3), & 
     299       SIZE(mask_7d_,4), SIZE(mask_7d_,5), SIZE(mask_7d_,6), & 
     300       SIZE(mask_7d_,7))) 
     301        CALL cxios_get_grid_mask_7d & 
     302      (grid_hdl%daddr, mask_7d__tmp, SHAPE(mask_7d_)) 
    274303        mask_7d_ = mask_7d__tmp 
    275304      ENDIF 
    276305 
    277306      IF (PRESENT(name_)) THEN 
    278         CALL cxios_get_grid_name(grid_hdl%daddr, name_, len(name_)) 
     307        CALL cxios_get_grid_name & 
     308      (grid_hdl%daddr, name_, len(name_)) 
    279309      ENDIF 
    280310 
    … …  
    307337      LOGICAL(KIND=C_BOOL) :: name_tmp 
    308338 
    309       CALL xios(get_grid_handle)(grid_id,grid_hdl) 
     339      CALL xios(get_grid_handle) & 
     340      (grid_id,grid_hdl) 
    310341      CALL xios(is_defined_grid_attr_hdl_)   & 
    311342      ( grid_hdl, description, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d, mask_7d, name  & 
    … …  
    371402 
    372403      IF (PRESENT(description_)) THEN 
    373         description__tmp = cxios_is_defined_grid_description(grid_hdl%daddr) 
     404        description__tmp = cxios_is_defined_grid_description & 
     405      (grid_hdl%daddr) 
    374406        description_ = description__tmp 
    375407      ENDIF 
    376408 
    377409      IF (PRESENT(mask_1d_)) THEN 
    378         mask_1d__tmp = cxios_is_defined_grid_mask_1d(grid_hdl%daddr) 
     410        mask_1d__tmp = cxios_is_defined_grid_mask_1d & 
     411      (grid_hdl%daddr) 
    379412        mask_1d_ = mask_1d__tmp 
    380413      ENDIF 
    381414 
    382415      IF (PRESENT(mask_2d_)) THEN 
    383         mask_2d__tmp = cxios_is_defined_grid_mask_2d(grid_hdl%daddr) 
     416        mask_2d__tmp = cxios_is_defined_grid_mask_2d & 
     417      (grid_hdl%daddr) 
    384418        mask_2d_ = mask_2d__tmp 
    385419      ENDIF 
    386420 
    387421      IF (PRESENT(mask_3d_)) THEN 
    388         mask_3d__tmp = cxios_is_defined_grid_mask_3d(grid_hdl%daddr) 
     422        mask_3d__tmp = cxios_is_defined_grid_mask_3d & 
     423      (grid_hdl%daddr) 
    389424        mask_3d_ = mask_3d__tmp 
    390425      ENDIF 
    391426 
    392427      IF (PRESENT(mask_4d_)) THEN 
    393         mask_4d__tmp = cxios_is_defined_grid_mask_4d(grid_hdl%daddr) 
     428        mask_4d__tmp = cxios_is_defined_grid_mask_4d & 
     429      (grid_hdl%daddr) 
    394430        mask_4d_ = mask_4d__tmp 
    395431      ENDIF 
    396432 
    397433      IF (PRESENT(mask_5d_)) THEN 
    398         mask_5d__tmp = cxios_is_defined_grid_mask_5d(grid_hdl%daddr) 
     434        mask_5d__tmp = cxios_is_defined_grid_mask_5d & 
     435      (grid_hdl%daddr) 
    399436        mask_5d_ = mask_5d__tmp 
    400437      ENDIF 
    401438 
    402439      IF (PRESENT(mask_6d_)) THEN 
    403         mask_6d__tmp = cxios_is_defined_grid_mask_6d(grid_hdl%daddr) 
     440        mask_6d__tmp = cxios_is_defined_grid_mask_6d & 
     441      (grid_hdl%daddr) 
    404442        mask_6d_ = mask_6d__tmp 
    405443      ENDIF 
    406444 
    407445      IF (PRESENT(mask_7d_)) THEN 
    408         mask_7d__tmp = cxios_is_defined_grid_mask_7d(grid_hdl%daddr) 
     446        mask_7d__tmp = cxios_is_defined_grid_mask_7d & 
     447      (grid_hdl%daddr) 
    409448        mask_7d_ = mask_7d__tmp 
    410449      ENDIF 
    411450 
    412451      IF (PRESENT(name_)) THEN 
    413         name__tmp = cxios_is_defined_grid_name(grid_hdl%daddr) 
     452        name__tmp = cxios_is_defined_grid_name & 
     453      (grid_hdl%daddr) 
    414454        name_ = name__tmp 
    415455      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.