Changeset 966 for XIOS/trunk/src/interface/fortran_attr/iinverse_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/iinverse_axis_attr.F90 (modified) (3 diffs)

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

@@ -18 +18 @@
       CHARACTER(LEN=*), INTENT(IN) ::inverse_axis_id
 
-      CALL xios(get_inverse_axis_handle)(inverse_axis_id,inverse_axis_hdl)
+      CALL xios(get_inverse_axis_handle) &
+      (inverse_axis_id,inverse_axis_hdl)
       CALL xios(set_inverse_axis_attr_hdl_)   &
       ( inverse_axis_hdl )
@@ -50 +51 @@
       CHARACTER(LEN=*), INTENT(IN) ::inverse_axis_id
 
-      CALL xios(get_inverse_axis_handle)(inverse_axis_id,inverse_axis_hdl)
+      CALL xios(get_inverse_axis_handle) &
+      (inverse_axis_id,inverse_axis_hdl)
       CALL xios(get_inverse_axis_attr_hdl_)   &
       ( inverse_axis_hdl )
@@ -82 +84 @@
       CHARACTER(LEN=*), INTENT(IN) ::inverse_axis_id
 
-      CALL xios(get_inverse_axis_handle)(inverse_axis_id,inverse_axis_hdl)
+      CALL xios(get_inverse_axis_handle) &
+      (inverse_axis_id,inverse_axis_hdl)
       CALL xios(is_defined_inverse_axis_attr_hdl_)   &
       ( inverse_axis_hdl )