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

    r891 r966  
    2525      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value 
    2626 
    27       CALL xios(get_scalargroup_handle)(scalargroup_id,scalargroup_hdl) 
     27      CALL xios(get_scalargroup_handle) & 
     28      (scalargroup_id,scalargroup_hdl) 
    2829      CALL xios(set_scalargroup_attr_hdl_)   & 
    2930      ( scalargroup_hdl, group_ref, long_name, name, scalar_ref, standard_name, unit, value ) 
    … …  
    6465 
    6566      IF (PRESENT(group_ref_)) THEN 
    66         CALL cxios_set_scalargroup_group_ref(scalargroup_hdl%daddr, group_ref_, len(group_ref_)) 
     67        CALL cxios_set_scalargroup_group_ref & 
     68      (scalargroup_hdl%daddr, group_ref_, len(group_ref_)) 
    6769      ENDIF 
    6870 
    6971      IF (PRESENT(long_name_)) THEN 
    70         CALL cxios_set_scalargroup_long_name(scalargroup_hdl%daddr, long_name_, len(long_name_)) 
     72        CALL cxios_set_scalargroup_long_name & 
     73      (scalargroup_hdl%daddr, long_name_, len(long_name_)) 
    7174      ENDIF 
    7275 
    7376      IF (PRESENT(name_)) THEN 
    74         CALL cxios_set_scalargroup_name(scalargroup_hdl%daddr, name_, len(name_)) 
     77        CALL cxios_set_scalargroup_name & 
     78      (scalargroup_hdl%daddr, name_, len(name_)) 
    7579      ENDIF 
    7680 
    7781      IF (PRESENT(scalar_ref_)) THEN 
    78         CALL cxios_set_scalargroup_scalar_ref(scalargroup_hdl%daddr, scalar_ref_, len(scalar_ref_)) 
     82        CALL cxios_set_scalargroup_scalar_ref & 
     83      (scalargroup_hdl%daddr, scalar_ref_, len(scalar_ref_)) 
    7984      ENDIF 
    8085 
    8186      IF (PRESENT(standard_name_)) THEN 
    82         CALL cxios_set_scalargroup_standard_name(scalargroup_hdl%daddr, standard_name_, len(standard_name_)) 
     87        CALL cxios_set_scalargroup_standard_name & 
     88      (scalargroup_hdl%daddr, standard_name_, len(standard_name_)) 
    8389      ENDIF 
    8490 
    8591      IF (PRESENT(unit_)) THEN 
    86         CALL cxios_set_scalargroup_unit(scalargroup_hdl%daddr, unit_, len(unit_)) 
     92        CALL cxios_set_scalargroup_unit & 
     93      (scalargroup_hdl%daddr, unit_, len(unit_)) 
    8794      ENDIF 
    8895 
    8996      IF (PRESENT(value_)) THEN 
    90         CALL cxios_set_scalargroup_value(scalargroup_hdl%daddr, value_) 
     97        CALL cxios_set_scalargroup_value & 
     98      (scalargroup_hdl%daddr, value_) 
    9199      ENDIF 
    92100 
    … …  
    107115      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value 
    108116 
    109       CALL xios(get_scalargroup_handle)(scalargroup_id,scalargroup_hdl) 
     117      CALL xios(get_scalargroup_handle) & 
     118      (scalargroup_id,scalargroup_hdl) 
    110119      CALL xios(get_scalargroup_attr_hdl_)   & 
    111120      ( scalargroup_hdl, group_ref, long_name, name, scalar_ref, standard_name, unit, value ) 
    … …  
    146155 
    147156      IF (PRESENT(group_ref_)) THEN 
    148         CALL cxios_get_scalargroup_group_ref(scalargroup_hdl%daddr, group_ref_, len(group_ref_)) 
     157        CALL cxios_get_scalargroup_group_ref & 
     158      (scalargroup_hdl%daddr, group_ref_, len(group_ref_)) 
    149159      ENDIF 
    150160 
    151161      IF (PRESENT(long_name_)) THEN 
    152         CALL cxios_get_scalargroup_long_name(scalargroup_hdl%daddr, long_name_, len(long_name_)) 
     162        CALL cxios_get_scalargroup_long_name & 
     163      (scalargroup_hdl%daddr, long_name_, len(long_name_)) 
    153164      ENDIF 
    154165 
    155166      IF (PRESENT(name_)) THEN 
    156         CALL cxios_get_scalargroup_name(scalargroup_hdl%daddr, name_, len(name_)) 
     167        CALL cxios_get_scalargroup_name & 
     168      (scalargroup_hdl%daddr, name_, len(name_)) 
    157169      ENDIF 
    158170 
    159171      IF (PRESENT(scalar_ref_)) THEN 
    160         CALL cxios_get_scalargroup_scalar_ref(scalargroup_hdl%daddr, scalar_ref_, len(scalar_ref_)) 
     172        CALL cxios_get_scalargroup_scalar_ref & 
     173      (scalargroup_hdl%daddr, scalar_ref_, len(scalar_ref_)) 
    161174      ENDIF 
    162175 
    163176      IF (PRESENT(standard_name_)) THEN 
    164         CALL cxios_get_scalargroup_standard_name(scalargroup_hdl%daddr, standard_name_, len(standard_name_)) 
     177        CALL cxios_get_scalargroup_standard_name & 
     178      (scalargroup_hdl%daddr, standard_name_, len(standard_name_)) 
    165179      ENDIF 
    166180 
    167181      IF (PRESENT(unit_)) THEN 
    168         CALL cxios_get_scalargroup_unit(scalargroup_hdl%daddr, unit_, len(unit_)) 
     182        CALL cxios_get_scalargroup_unit & 
     183      (scalargroup_hdl%daddr, unit_, len(unit_)) 
    169184      ENDIF 
    170185 
    171186      IF (PRESENT(value_)) THEN 
    172         CALL cxios_get_scalargroup_value(scalargroup_hdl%daddr, value_) 
     187        CALL cxios_get_scalargroup_value & 
     188      (scalargroup_hdl%daddr, value_) 
    173189      ENDIF 
    174190 
    … …  
    196212      LOGICAL(KIND=C_BOOL) :: value_tmp 
    197213 
    198       CALL xios(get_scalargroup_handle)(scalargroup_id,scalargroup_hdl) 
     214      CALL xios(get_scalargroup_handle) & 
     215      (scalargroup_id,scalargroup_hdl) 
    199216      CALL xios(is_defined_scalargroup_attr_hdl_)   & 
    200217      ( scalargroup_hdl, group_ref, long_name, name, scalar_ref, standard_name, unit, value ) 
    … …  
    249266 
    250267      IF (PRESENT(group_ref_)) THEN 
    251         group_ref__tmp = cxios_is_defined_scalargroup_group_ref(scalargroup_hdl%daddr) 
     268        group_ref__tmp = cxios_is_defined_scalargroup_group_ref & 
     269      (scalargroup_hdl%daddr) 
    252270        group_ref_ = group_ref__tmp 
    253271      ENDIF 
    254272 
    255273      IF (PRESENT(long_name_)) THEN 
    256         long_name__tmp = cxios_is_defined_scalargroup_long_name(scalargroup_hdl%daddr) 
     274        long_name__tmp = cxios_is_defined_scalargroup_long_name & 
     275      (scalargroup_hdl%daddr) 
    257276        long_name_ = long_name__tmp 
    258277      ENDIF 
    259278 
    260279      IF (PRESENT(name_)) THEN 
    261         name__tmp = cxios_is_defined_scalargroup_name(scalargroup_hdl%daddr) 
     280        name__tmp = cxios_is_defined_scalargroup_name & 
     281      (scalargroup_hdl%daddr) 
    262282        name_ = name__tmp 
    263283      ENDIF 
    264284 
    265285      IF (PRESENT(scalar_ref_)) THEN 
    266         scalar_ref__tmp = cxios_is_defined_scalargroup_scalar_ref(scalargroup_hdl%daddr) 
     286        scalar_ref__tmp = cxios_is_defined_scalargroup_scalar_ref & 
     287      (scalargroup_hdl%daddr) 
    267288        scalar_ref_ = scalar_ref__tmp 
    268289      ENDIF 
    269290 
    270291      IF (PRESENT(standard_name_)) THEN 
    271         standard_name__tmp = cxios_is_defined_scalargroup_standard_name(scalargroup_hdl%daddr) 
     292        standard_name__tmp = cxios_is_defined_scalargroup_standard_name & 
     293      (scalargroup_hdl%daddr) 
    272294        standard_name_ = standard_name__tmp 
    273295      ENDIF 
    274296 
    275297      IF (PRESENT(unit_)) THEN 
    276         unit__tmp = cxios_is_defined_scalargroup_unit(scalargroup_hdl%daddr) 
     298        unit__tmp = cxios_is_defined_scalargroup_unit & 
     299      (scalargroup_hdl%daddr) 
    277300        unit_ = unit__tmp 
    278301      ENDIF 
    279302 
    280303      IF (PRESENT(value_)) THEN 
    281         value__tmp = cxios_is_defined_scalargroup_value(scalargroup_hdl%daddr) 
     304        value__tmp = cxios_is_defined_scalargroup_value & 
     305      (scalargroup_hdl%daddr) 
    282306        value_ = value__tmp 
    283307      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.