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

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

@@ -20 +20 @@
       INTEGER  , OPTIONAL, INTENT(IN) :: n
 
-      CALL xios(get_zoom_axis_handle)(zoom_axis_id,zoom_axis_hdl)
+      CALL xios(get_zoom_axis_handle) &
+      (zoom_axis_id,zoom_axis_hdl)
       CALL xios(set_zoom_axis_attr_hdl_)   &
       ( zoom_axis_hdl, begin, n )
@@ -48 +49 @@
 
       IF (PRESENT(begin_)) THEN
-        CALL cxios_set_zoom_axis_begin(zoom_axis_hdl%daddr, begin_)
+        CALL cxios_set_zoom_axis_begin &
+      (zoom_axis_hdl%daddr, begin_)
       ENDIF
 
       IF (PRESENT(n_)) THEN
-        CALL cxios_set_zoom_axis_n(zoom_axis_hdl%daddr, n_)
+        CALL cxios_set_zoom_axis_n &
+      (zoom_axis_hdl%daddr, n_)
       ENDIF
 
@@ -66 +69 @@
       INTEGER  , OPTIONAL, INTENT(OUT) :: n
 
-      CALL xios(get_zoom_axis_handle)(zoom_axis_id,zoom_axis_hdl)
+      CALL xios(get_zoom_axis_handle) &
+      (zoom_axis_id,zoom_axis_hdl)
       CALL xios(get_zoom_axis_attr_hdl_)   &
       ( zoom_axis_hdl, begin, n )
@@ -94 +98 @@
 
       IF (PRESENT(begin_)) THEN
-        CALL cxios_get_zoom_axis_begin(zoom_axis_hdl%daddr, begin_)
+        CALL cxios_get_zoom_axis_begin &
+      (zoom_axis_hdl%daddr, begin_)
       ENDIF
 
       IF (PRESENT(n_)) THEN
-        CALL cxios_get_zoom_axis_n(zoom_axis_hdl%daddr, n_)
+        CALL cxios_get_zoom_axis_n &
+      (zoom_axis_hdl%daddr, n_)
       ENDIF
 
@@ -114 +120 @@
       LOGICAL(KIND=C_BOOL) :: n_tmp
 
-      CALL xios(get_zoom_axis_handle)(zoom_axis_id,zoom_axis_hdl)
+      CALL xios(get_zoom_axis_handle) &
+      (zoom_axis_id,zoom_axis_hdl)
       CALL xios(is_defined_zoom_axis_attr_hdl_)   &
       ( zoom_axis_hdl, begin, n )
@@ -146 +153 @@
 
       IF (PRESENT(begin_)) THEN
-        begin__tmp = cxios_is_defined_zoom_axis_begin(zoom_axis_hdl%daddr)
+        begin__tmp = cxios_is_defined_zoom_axis_begin &
+      (zoom_axis_hdl%daddr)
         begin_ = begin__tmp
       ENDIF
 
       IF (PRESENT(n_)) THEN
-        n__tmp = cxios_is_defined_zoom_axis_n(zoom_axis_hdl%daddr)
+        n__tmp = cxios_is_defined_zoom_axis_n &
+      (zoom_axis_hdl%daddr)
         n_ = n__tmp
       ENDIF