Changeset 581 for XIOS/trunk/src/interface/fortran_attr/context_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/context_interface_attr.F90 (modified) (3 diffs)

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

@@ -6 +6 @@
 MODULE context_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_context_output_dir(context_hdl, output_dir, output_dir_size) BIND(C)
       USE ISO_C_BINDING
@@ -16 +16 @@
       INTEGER  (kind = C_INT)     , VALUE        :: output_dir_size
     END SUBROUTINE cxios_set_context_output_dir
-    
+
     SUBROUTINE cxios_get_context_output_dir(context_hdl, output_dir, output_dir_size) BIND(C)
       USE ISO_C_BINDING
@@ -23 +23 @@
       INTEGER  (kind = C_INT)     , VALUE        :: output_dir_size
     END SUBROUTINE cxios_get_context_output_dir
-    
-    FUNCTION cxios_is_defined_context_output_dir(context_hdl ) BIND(C)
+
+    FUNCTION cxios_is_defined_context_output_dir(context_hdl) BIND(C)
       USE ISO_C_BINDING
       LOGICAL(kind=C_BOOL) :: cxios_is_defined_context_output_dir
       INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl
     END FUNCTION cxios_is_defined_context_output_dir
-    
-    
-    END INTERFACE
-  
+
+  END INTERFACE
+
 END MODULE context_interface_attr