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

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

@@ -24 +24 @@
       REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value
 
-      CALL xios(get_scalar_handle)(scalar_id,scalar_hdl)
+      CALL xios(get_scalar_handle) &
+      (scalar_id,scalar_hdl)
       CALL xios(set_scalar_attr_hdl_)   &
       ( scalar_hdl, long_name, name, scalar_ref, standard_name, unit, value )
@@ -60 +61 @@
 
       IF (PRESENT(long_name_)) THEN
-        CALL cxios_set_scalar_long_name(scalar_hdl%daddr, long_name_, len(long_name_))
+        CALL cxios_set_scalar_long_name &
+      (scalar_hdl%daddr, long_name_, len(long_name_))
       ENDIF
 
       IF (PRESENT(name_)) THEN
-        CALL cxios_set_scalar_name(scalar_hdl%daddr, name_, len(name_))
+        CALL cxios_set_scalar_name &
+      (scalar_hdl%daddr, name_, len(name_))
       ENDIF
 
       IF (PRESENT(scalar_ref_)) THEN
-        CALL cxios_set_scalar_scalar_ref(scalar_hdl%daddr, scalar_ref_, len(scalar_ref_))
+        CALL cxios_set_scalar_scalar_ref &
+      (scalar_hdl%daddr, scalar_ref_, len(scalar_ref_))
       ENDIF
 
       IF (PRESENT(standard_name_)) THEN
-        CALL cxios_set_scalar_standard_name(scalar_hdl%daddr, standard_name_, len(standard_name_))
+        CALL cxios_set_scalar_standard_name &
+      (scalar_hdl%daddr, standard_name_, len(standard_name_))
       ENDIF
 
       IF (PRESENT(unit_)) THEN
-        CALL cxios_set_scalar_unit(scalar_hdl%daddr, unit_, len(unit_))
+        CALL cxios_set_scalar_unit &
+      (scalar_hdl%daddr, unit_, len(unit_))
       ENDIF
 
       IF (PRESENT(value_)) THEN
-        CALL cxios_set_scalar_value(scalar_hdl%daddr, value_)
+        CALL cxios_set_scalar_value &
+      (scalar_hdl%daddr, value_)
       ENDIF
 
@@ -98 +105 @@
       REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value
 
-      CALL xios(get_scalar_handle)(scalar_id,scalar_hdl)
+      CALL xios(get_scalar_handle) &
+      (scalar_id,scalar_hdl)
       CALL xios(get_scalar_attr_hdl_)   &
       ( scalar_hdl, long_name, name, scalar_ref, standard_name, unit, value )
@@ -134 +142 @@
 
       IF (PRESENT(long_name_)) THEN
-        CALL cxios_get_scalar_long_name(scalar_hdl%daddr, long_name_, len(long_name_))
+        CALL cxios_get_scalar_long_name &
+      (scalar_hdl%daddr, long_name_, len(long_name_))
       ENDIF
 
       IF (PRESENT(name_)) THEN
-        CALL cxios_get_scalar_name(scalar_hdl%daddr, name_, len(name_))
+        CALL cxios_get_scalar_name &
+      (scalar_hdl%daddr, name_, len(name_))
       ENDIF
 
       IF (PRESENT(scalar_ref_)) THEN
-        CALL cxios_get_scalar_scalar_ref(scalar_hdl%daddr, scalar_ref_, len(scalar_ref_))
+        CALL cxios_get_scalar_scalar_ref &
+      (scalar_hdl%daddr, scalar_ref_, len(scalar_ref_))
       ENDIF
 
       IF (PRESENT(standard_name_)) THEN
-        CALL cxios_get_scalar_standard_name(scalar_hdl%daddr, standard_name_, len(standard_name_))
+        CALL cxios_get_scalar_standard_name &
+      (scalar_hdl%daddr, standard_name_, len(standard_name_))
       ENDIF
 
       IF (PRESENT(unit_)) THEN
-        CALL cxios_get_scalar_unit(scalar_hdl%daddr, unit_, len(unit_))
+        CALL cxios_get_scalar_unit &
+      (scalar_hdl%daddr, unit_, len(unit_))
       ENDIF
 
       IF (PRESENT(value_)) THEN
-        CALL cxios_get_scalar_value(scalar_hdl%daddr, value_)
+        CALL cxios_get_scalar_value &
+      (scalar_hdl%daddr, value_)
       ENDIF
 
@@ -178 +192 @@
       LOGICAL(KIND=C_BOOL) :: value_tmp
 
-      CALL xios(get_scalar_handle)(scalar_id,scalar_hdl)
+      CALL xios(get_scalar_handle) &
+      (scalar_id,scalar_hdl)
       CALL xios(is_defined_scalar_attr_hdl_)   &
       ( scalar_hdl, long_name, name, scalar_ref, standard_name, unit, value )
@@ -226 +241 @@
 
       IF (PRESENT(long_name_)) THEN
-        long_name__tmp = cxios_is_defined_scalar_long_name(scalar_hdl%daddr)
+        long_name__tmp = cxios_is_defined_scalar_long_name &
+      (scalar_hdl%daddr)
         long_name_ = long_name__tmp
       ENDIF
 
       IF (PRESENT(name_)) THEN
-        name__tmp = cxios_is_defined_scalar_name(scalar_hdl%daddr)
+        name__tmp = cxios_is_defined_scalar_name &
+      (scalar_hdl%daddr)
         name_ = name__tmp
       ENDIF
 
       IF (PRESENT(scalar_ref_)) THEN
-        scalar_ref__tmp = cxios_is_defined_scalar_scalar_ref(scalar_hdl%daddr)
+        scalar_ref__tmp = cxios_is_defined_scalar_scalar_ref &
+      (scalar_hdl%daddr)
         scalar_ref_ = scalar_ref__tmp
       ENDIF
 
       IF (PRESENT(standard_name_)) THEN
-        standard_name__tmp = cxios_is_defined_scalar_standard_name(scalar_hdl%daddr)
+        standard_name__tmp = cxios_is_defined_scalar_standard_name &
+      (scalar_hdl%daddr)
         standard_name_ = standard_name__tmp
       ENDIF
 
       IF (PRESENT(unit_)) THEN
-        unit__tmp = cxios_is_defined_scalar_unit(scalar_hdl%daddr)
+        unit__tmp = cxios_is_defined_scalar_unit &
+      (scalar_hdl%daddr)
         unit_ = unit__tmp
       ENDIF
 
       IF (PRESENT(value_)) THEN
-        value__tmp = cxios_is_defined_scalar_value(scalar_hdl%daddr)
+        value__tmp = cxios_is_defined_scalar_value &
+      (scalar_hdl%daddr)
         value_ = value__tmp
       ENDIF