Changeset 581 for XIOS/trunk/src/interface/fortran_attr/variable_interface_attr.F90

Timestamp:

03/24/15 11:21:45 (9 years ago)

Author:

rlacroix

Message:

Fix the Fortran interface generation to avoid generating dead code that caused a timer not to be stopped.

File:

• XIOS/trunk/src/interface/fortran_attr/variable_interface_attr.F90 (modified) (5 diffs)

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

@@ -6 +6 @@
 MODULE variable_interface_attr
   USE, INTRINSIC :: ISO_C_BINDING
-  
-  INTERFACE ! Do not call directly / interface FORTRAN 2003 <-> C99
-    
-    
+
+  INTERFACE
+    ! Do not call directly / interface FORTRAN 2003 <-> C99
+
     SUBROUTINE cxios_set_variable_name(variable_hdl, name, name_size) BIND(C)
       USE ISO_C_BINDING
@@ -16 +16 @@
       INTEGER  (kind = C_INT)     , VALUE        :: name_size
     END SUBROUTINE cxios_set_variable_name
-    
+
     SUBROUTINE cxios_get_variable_name(variable_hdl, name, name_size) BIND(C)
       USE ISO_C_BINDING
@@ -23 +23 @@
       INTEGER  (kind = C_INT)     , VALUE        :: name_size
     END SUBROUTINE cxios_get_variable_name
-    
-    FUNCTION cxios_is_defined_variable_name(variable_hdl ) BIND(C)
+
+    FUNCTION cxios_is_defined_variable_name(variable_hdl) BIND(C)
       USE ISO_C_BINDING
       LOGICAL(kind=C_BOOL) :: cxios_is_defined_variable_name
       INTEGER (kind = C_INTPTR_T), VALUE :: variable_hdl
     END FUNCTION cxios_is_defined_variable_name
-    
-    
+
+
     SUBROUTINE cxios_set_variable_type(variable_hdl, type, type_size) BIND(C)
       USE ISO_C_BINDING
@@ -37 +37 @@
       INTEGER  (kind = C_INT)     , VALUE        :: type_size
     END SUBROUTINE cxios_set_variable_type
-    
+
     SUBROUTINE cxios_get_variable_type(variable_hdl, type, type_size) BIND(C)
       USE ISO_C_BINDING
@@ -44 +44 @@
       INTEGER  (kind = C_INT)     , VALUE        :: type_size
     END SUBROUTINE cxios_get_variable_type
-    
-    FUNCTION cxios_is_defined_variable_type(variable_hdl ) BIND(C)
+
+    FUNCTION cxios_is_defined_variable_type(variable_hdl) BIND(C)
       USE ISO_C_BINDING
       LOGICAL(kind=C_BOOL) :: cxios_is_defined_variable_type
       INTEGER (kind = C_INTPTR_T), VALUE :: variable_hdl
     END FUNCTION cxios_is_defined_variable_type
-    
-    
-    END INTERFACE
-  
+
+  END INTERFACE
+
 END MODULE variable_interface_attr