Changeset 966 for XIOS/trunk/src/interface/fortran_attr/iinterpolate_axis_attr.F90

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:

• XIOS/trunk/src/interface/fortran_attr/iinterpolate_axis_attr.F90 (modified) (6 diffs)

XIOS/trunk/src/interface/fortran_attr/iinterpolate_axis_attr.F90

@@ -21 +21 @@
       CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
 
-      CALL xios(get_interpolate_axis_handle)(interpolate_axis_id,interpolate_axis_hdl)
+      CALL xios(get_interpolate_axis_handle) &
+      (interpolate_axis_id,interpolate_axis_hdl)
       CALL xios(set_interpolate_axis_attr_hdl_)   &
       ( interpolate_axis_hdl, coordinate, order, type )
@@ -51 +52 @@
 
       IF (PRESENT(coordinate_)) THEN
-        CALL cxios_set_interpolate_axis_coordinate(interpolate_axis_hdl%daddr, coordinate_, len(coordinate_))
+        CALL cxios_set_interpolate_axis_coordinate &
+      (interpolate_axis_hdl%daddr, coordinate_, len(coordinate_))
       ENDIF
 
       IF (PRESENT(order_)) THEN
-        CALL cxios_set_interpolate_axis_order(interpolate_axis_hdl%daddr, order_)
+        CALL cxios_set_interpolate_axis_order &
+      (interpolate_axis_hdl%daddr, order_)
       ENDIF
 
       IF (PRESENT(type_)) THEN
-        CALL cxios_set_interpolate_axis_type(interpolate_axis_hdl%daddr, type_, len(type_))
+        CALL cxios_set_interpolate_axis_type &
+      (interpolate_axis_hdl%daddr, type_, len(type_))
       ENDIF
 
@@ -74 +78 @@
       CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
 
-      CALL xios(get_interpolate_axis_handle)(interpolate_axis_id,interpolate_axis_hdl)
+      CALL xios(get_interpolate_axis_handle) &
+      (interpolate_axis_id,interpolate_axis_hdl)
       CALL xios(get_interpolate_axis_attr_hdl_)   &
       ( interpolate_axis_hdl, coordinate, order, type )
@@ -104 +109 @@
 
       IF (PRESENT(coordinate_)) THEN
-        CALL cxios_get_interpolate_axis_coordinate(interpolate_axis_hdl%daddr, coordinate_, len(coordinate_))
+        CALL cxios_get_interpolate_axis_coordinate &
+      (interpolate_axis_hdl%daddr, coordinate_, len(coordinate_))
       ENDIF
 
       IF (PRESENT(order_)) THEN
-        CALL cxios_get_interpolate_axis_order(interpolate_axis_hdl%daddr, order_)
+        CALL cxios_get_interpolate_axis_order &
+      (interpolate_axis_hdl%daddr, order_)
       ENDIF
 
       IF (PRESENT(type_)) THEN
-        CALL cxios_get_interpolate_axis_type(interpolate_axis_hdl%daddr, type_, len(type_))
+        CALL cxios_get_interpolate_axis_type &
+      (interpolate_axis_hdl%daddr, type_, len(type_))
       ENDIF
 
@@ -130 +138 @@
       LOGICAL(KIND=C_BOOL) :: type_tmp
 
-      CALL xios(get_interpolate_axis_handle)(interpolate_axis_id,interpolate_axis_hdl)
+      CALL xios(get_interpolate_axis_handle) &
+      (interpolate_axis_id,interpolate_axis_hdl)
       CALL xios(is_defined_interpolate_axis_attr_hdl_)   &
       ( interpolate_axis_hdl, coordinate, order, type )
@@ -166 +175 @@
 
       IF (PRESENT(coordinate_)) THEN
-        coordinate__tmp = cxios_is_defined_interpolate_axis_coordinate(interpolate_axis_hdl%daddr)
+        coordinate__tmp = cxios_is_defined_interpolate_axis_coordinate &
+      (interpolate_axis_hdl%daddr)
         coordinate_ = coordinate__tmp
       ENDIF
 
       IF (PRESENT(order_)) THEN
-        order__tmp = cxios_is_defined_interpolate_axis_order(interpolate_axis_hdl%daddr)
+        order__tmp = cxios_is_defined_interpolate_axis_order &
+      (interpolate_axis_hdl%daddr)
         order_ = order__tmp
       ENDIF
 
       IF (PRESENT(type_)) THEN
-        type__tmp = cxios_is_defined_interpolate_axis_type(interpolate_axis_hdl%daddr)
+        type__tmp = cxios_is_defined_interpolate_axis_type &
+      (interpolate_axis_hdl%daddr)
         type_ = type__tmp
       ENDIF