Changeset 966 for XIOS/trunk/src/interface/fortran_attr/ireduce_axis_to_scalar_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/ireduce_axis_to_scalar_attr.F90 (modified) (6 diffs)

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

@@ -19 +19 @@
       CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation
 
-      CALL xios(get_reduce_axis_to_scalar_handle)(reduce_axis_to_scalar_id,reduce_axis_to_scalar_hdl)
+      CALL xios(get_reduce_axis_to_scalar_handle) &
+      (reduce_axis_to_scalar_id,reduce_axis_to_scalar_hdl)
       CALL xios(set_reduce_axis_to_scalar_attr_hdl_)   &
       ( reduce_axis_to_scalar_hdl, operation )
@@ -45 +46 @@
 
       IF (PRESENT(operation_)) THEN
-        CALL cxios_set_reduce_axis_to_scalar_operation(reduce_axis_to_scalar_hdl%daddr, operation_, len(operation_))
+        CALL cxios_set_reduce_axis_to_scalar_operation &
+      (reduce_axis_to_scalar_hdl%daddr, operation_, len(operation_))
       ENDIF
 
@@ -58 +60 @@
       CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation
 
-      CALL xios(get_reduce_axis_to_scalar_handle)(reduce_axis_to_scalar_id,reduce_axis_to_scalar_hdl)
+      CALL xios(get_reduce_axis_to_scalar_handle) &
+      (reduce_axis_to_scalar_id,reduce_axis_to_scalar_hdl)
       CALL xios(get_reduce_axis_to_scalar_attr_hdl_)   &
       ( reduce_axis_to_scalar_hdl, operation )
@@ -84 +87 @@
 
       IF (PRESENT(operation_)) THEN
-        CALL cxios_get_reduce_axis_to_scalar_operation(reduce_axis_to_scalar_hdl%daddr, operation_, len(operation_))
+        CALL cxios_get_reduce_axis_to_scalar_operation &
+      (reduce_axis_to_scalar_hdl%daddr, operation_, len(operation_))
       ENDIF
 
@@ -98 +102 @@
       LOGICAL(KIND=C_BOOL) :: operation_tmp
 
-      CALL xios(get_reduce_axis_to_scalar_handle)(reduce_axis_to_scalar_id,reduce_axis_to_scalar_hdl)
+      CALL xios(get_reduce_axis_to_scalar_handle) &
+      (reduce_axis_to_scalar_id,reduce_axis_to_scalar_hdl)
       CALL xios(is_defined_reduce_axis_to_scalar_attr_hdl_)   &
       ( reduce_axis_to_scalar_hdl, operation )
@@ -126 +131 @@
 
       IF (PRESENT(operation_)) THEN
-        operation__tmp = cxios_is_defined_reduce_axis_to_scalar_operation(reduce_axis_to_scalar_hdl%daddr)
+        operation__tmp = cxios_is_defined_reduce_axis_to_scalar_operation &
+      (reduce_axis_to_scalar_hdl%daddr)
         operation_ = operation__tmp
       ENDIF