Changeset 903 for XIOS/trunk/src/interface

Timestamp:

07/25/16 14:31:08 (8 years ago)

Author:

mhnguyen

Message:

Fixing error with gfortran because of length of line

+) Break long line into smaller ones

Test
+) Local machine with gfortran
+) Compilation ok

Location:

XIOS/trunk/src/interface/fortran

Files:

• ixios_interfaces.F90 (modified) (1 diff)
• ixml_tree.F90 (modified) (1 diff)

XIOS/trunk/src/interface/fortran/ixios_interfaces.F90

@@ -87 +87 @@
 USE ireduce_axis_to_scalar, ONLY : xios(get_reduce_axis_to_scalar_handle)
 
-USE ireduce_axis_to_scalar_attr, ONLY : xios(set_reduce_axis_to_scalar_attr_hdl), xios(get_reduce_axis_to_scalar_attr_hdl), xios(is_defined_reduce_axis_to_scalar_attr_hdl)
+USE ireduce_axis_to_scalar_attr, ONLY : xios(set_reduce_axis_to_scalar_attr_hdl), &
+                                        xios(get_reduce_axis_to_scalar_attr_hdl), &
+                                        xios(is_defined_reduce_axis_to_scalar_attr_hdl)
 
 USE ixml_tree, ONLY : xios(add_axis), xios(add_file), xios(add_grid), xios(add_field), xios(add_domain),   &

XIOS/trunk/src/interface/fortran/ixml_tree.F90

@@ -623 +623 @@
    SUBROUTINE xios(add_reduceaxistoscalartoscalar)(parent_hdl, child_hdl, child_id)
       TYPE(txios(axis))                      , INTENT(IN) :: parent_hdl
-      TYPE(txios(inverse_axis))              , INTENT(OUT):: child_hdl
+      TYPE(txios(reduce_axis_to_scalar))     , INTENT(OUT):: child_hdl
       CHARACTER(len = *), OPTIONAL           , INTENT(IN) :: child_id