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

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

@@ -22 +22 @@
       CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
 
-      CALL xios(get_compute_connectivity_domain_handle)(compute_connectivity_domain_id,compute_connectivity_domain_hdl)
+      CALL xios(get_compute_connectivity_domain_handle) &
+      (compute_connectivity_domain_id,compute_connectivity_domain_hdl)
       CALL xios(set_compute_connectivity_domain_attr_hdl_)   &
       ( compute_connectivity_domain_hdl, local_neighbor, n_neighbor, n_neighbor_max, type )
@@ -54 +55 @@
 
       IF (PRESENT(local_neighbor_)) THEN
-        CALL cxios_set_compute_connectivity_domain_local_neighbor(compute_connectivity_domain_hdl%daddr, local_neighbor_, SHAPE(local_neighbor_))
+        CALL cxios_set_compute_connectivity_domain_local_neighbor &
+      (compute_connectivity_domain_hdl%daddr, local_neighbor_, SHAPE(local_neighbor_))
       ENDIF
 
       IF (PRESENT(n_neighbor_)) THEN
-        CALL cxios_set_compute_connectivity_domain_n_neighbor(compute_connectivity_domain_hdl%daddr, n_neighbor_, SHAPE(n_neighbor_))
+        CALL cxios_set_compute_connectivity_domain_n_neighbor &
+      (compute_connectivity_domain_hdl%daddr, n_neighbor_, SHAPE(n_neighbor_))
       ENDIF
 
       IF (PRESENT(n_neighbor_max_)) THEN
-        CALL cxios_set_compute_connectivity_domain_n_neighbor_max(compute_connectivity_domain_hdl%daddr, n_neighbor_max_)
+        CALL cxios_set_compute_connectivity_domain_n_neighbor_max &
+      (compute_connectivity_domain_hdl%daddr, n_neighbor_max_)
       ENDIF
 
       IF (PRESENT(type_)) THEN
-        CALL cxios_set_compute_connectivity_domain_type(compute_connectivity_domain_hdl%daddr, type_, len(type_))
+        CALL cxios_set_compute_connectivity_domain_type &
+      (compute_connectivity_domain_hdl%daddr, type_, len(type_))
       ENDIF
 
@@ -82 +87 @@
       CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
 
-      CALL xios(get_compute_connectivity_domain_handle)(compute_connectivity_domain_id,compute_connectivity_domain_hdl)
+      CALL xios(get_compute_connectivity_domain_handle) &
+      (compute_connectivity_domain_id,compute_connectivity_domain_hdl)
       CALL xios(get_compute_connectivity_domain_attr_hdl_)   &
       ( compute_connectivity_domain_hdl, local_neighbor, n_neighbor, n_neighbor_max, type )
@@ -114 +120 @@
 
       IF (PRESENT(local_neighbor_)) THEN
-        CALL cxios_get_compute_connectivity_domain_local_neighbor(compute_connectivity_domain_hdl%daddr, local_neighbor_, SHAPE(local_neighbor_))
+        CALL cxios_get_compute_connectivity_domain_local_neighbor &
+      (compute_connectivity_domain_hdl%daddr, local_neighbor_, SHAPE(local_neighbor_))
       ENDIF
 
       IF (PRESENT(n_neighbor_)) THEN
-        CALL cxios_get_compute_connectivity_domain_n_neighbor(compute_connectivity_domain_hdl%daddr, n_neighbor_, SHAPE(n_neighbor_))
+        CALL cxios_get_compute_connectivity_domain_n_neighbor &
+      (compute_connectivity_domain_hdl%daddr, n_neighbor_, SHAPE(n_neighbor_))
       ENDIF
 
       IF (PRESENT(n_neighbor_max_)) THEN
-        CALL cxios_get_compute_connectivity_domain_n_neighbor_max(compute_connectivity_domain_hdl%daddr, n_neighbor_max_)
+        CALL cxios_get_compute_connectivity_domain_n_neighbor_max &
+      (compute_connectivity_domain_hdl%daddr, n_neighbor_max_)
       ENDIF
 
       IF (PRESENT(type_)) THEN
-        CALL cxios_get_compute_connectivity_domain_type(compute_connectivity_domain_hdl%daddr, type_, len(type_))
+        CALL cxios_get_compute_connectivity_domain_type &
+      (compute_connectivity_domain_hdl%daddr, type_, len(type_))
       ENDIF
 
@@ -146 +156 @@
       LOGICAL(KIND=C_BOOL) :: type_tmp
 
-      CALL xios(get_compute_connectivity_domain_handle)(compute_connectivity_domain_id,compute_connectivity_domain_hdl)
+      CALL xios(get_compute_connectivity_domain_handle) &
+      (compute_connectivity_domain_id,compute_connectivity_domain_hdl)
       CALL xios(is_defined_compute_connectivity_domain_attr_hdl_)   &
       ( compute_connectivity_domain_hdl, local_neighbor, n_neighbor, n_neighbor_max, type )
@@ -186 +197 @@
 
       IF (PRESENT(local_neighbor_)) THEN
-        local_neighbor__tmp = cxios_is_defined_compute_connectivity_domain_local_neighbor(compute_connectivity_domain_hdl%daddr)
+        local_neighbor__tmp = cxios_is_defined_compute_connectivity_domain_local_neighbor &
+      (compute_connectivity_domain_hdl%daddr)
         local_neighbor_ = local_neighbor__tmp
       ENDIF
 
       IF (PRESENT(n_neighbor_)) THEN
-        n_neighbor__tmp = cxios_is_defined_compute_connectivity_domain_n_neighbor(compute_connectivity_domain_hdl%daddr)
+        n_neighbor__tmp = cxios_is_defined_compute_connectivity_domain_n_neighbor &
+      (compute_connectivity_domain_hdl%daddr)
         n_neighbor_ = n_neighbor__tmp
       ENDIF
 
       IF (PRESENT(n_neighbor_max_)) THEN
-        n_neighbor_max__tmp = cxios_is_defined_compute_connectivity_domain_n_neighbor_max(compute_connectivity_domain_hdl%daddr)
+        n_neighbor_max__tmp = cxios_is_defined_compute_connectivity_domain_n_neighbor_max &
+      (compute_connectivity_domain_hdl%daddr)
         n_neighbor_max_ = n_neighbor_max__tmp
       ENDIF
 
       IF (PRESENT(type_)) THEN
-        type__tmp = cxios_is_defined_compute_connectivity_domain_type(compute_connectivity_domain_hdl%daddr)
+        type__tmp = cxios_is_defined_compute_connectivity_domain_type &
+      (compute_connectivity_domain_hdl%daddr)
         type_ = type__tmp
       ENDIF