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

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

@@ -6 +6 @@
 MODULE variablegroup_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_variablegroup_group_ref(variablegroup_hdl, group_ref, group_ref_size) BIND(C)
       USE ISO_C_BINDING
@@ -16 +16 @@
       INTEGER  (kind = C_INT)     , VALUE        :: group_ref_size
     END SUBROUTINE cxios_set_variablegroup_group_ref
-    
+
     SUBROUTINE cxios_get_variablegroup_group_ref(variablegroup_hdl, group_ref, group_ref_size) BIND(C)
       USE ISO_C_BINDING
@@ -23 +23 @@
       INTEGER  (kind = C_INT)     , VALUE        :: group_ref_size
     END SUBROUTINE cxios_get_variablegroup_group_ref
-    
-    FUNCTION cxios_is_defined_variablegroup_group_ref(variablegroup_hdl ) BIND(C)
+
+    FUNCTION cxios_is_defined_variablegroup_group_ref(variablegroup_hdl) BIND(C)
       USE ISO_C_BINDING
       LOGICAL(kind=C_BOOL) :: cxios_is_defined_variablegroup_group_ref
       INTEGER (kind = C_INTPTR_T), VALUE :: variablegroup_hdl
     END FUNCTION cxios_is_defined_variablegroup_group_ref
-    
-    
+
+
     SUBROUTINE cxios_set_variablegroup_name(variablegroup_hdl, name, name_size) BIND(C)
       USE ISO_C_BINDING
@@ -37 +37 @@
       INTEGER  (kind = C_INT)     , VALUE        :: name_size
     END SUBROUTINE cxios_set_variablegroup_name
-    
+
     SUBROUTINE cxios_get_variablegroup_name(variablegroup_hdl, name, name_size) BIND(C)
       USE ISO_C_BINDING
@@ -44 +44 @@
       INTEGER  (kind = C_INT)     , VALUE        :: name_size
     END SUBROUTINE cxios_get_variablegroup_name
-    
-    FUNCTION cxios_is_defined_variablegroup_name(variablegroup_hdl ) BIND(C)
+
+    FUNCTION cxios_is_defined_variablegroup_name(variablegroup_hdl) BIND(C)
       USE ISO_C_BINDING
       LOGICAL(kind=C_BOOL) :: cxios_is_defined_variablegroup_name
       INTEGER (kind = C_INTPTR_T), VALUE :: variablegroup_hdl
     END FUNCTION cxios_is_defined_variablegroup_name
-    
-    
+
+
     SUBROUTINE cxios_set_variablegroup_type(variablegroup_hdl, type, type_size) BIND(C)
       USE ISO_C_BINDING
@@ -58 +58 @@
       INTEGER  (kind = C_INT)     , VALUE        :: type_size
     END SUBROUTINE cxios_set_variablegroup_type
-    
+
     SUBROUTINE cxios_get_variablegroup_type(variablegroup_hdl, type, type_size) BIND(C)
       USE ISO_C_BINDING
@@ -65 +65 @@
       INTEGER  (kind = C_INT)     , VALUE        :: type_size
     END SUBROUTINE cxios_get_variablegroup_type
-    
-    FUNCTION cxios_is_defined_variablegroup_type(variablegroup_hdl ) BIND(C)
+
+    FUNCTION cxios_is_defined_variablegroup_type(variablegroup_hdl) BIND(C)
       USE ISO_C_BINDING
       LOGICAL(kind=C_BOOL) :: cxios_is_defined_variablegroup_type
       INTEGER (kind = C_INTPTR_T), VALUE :: variablegroup_hdl
     END FUNCTION cxios_is_defined_variablegroup_type
-    
-    
-    END INTERFACE
-  
+
+  END INTERFACE
+
 END MODULE variablegroup_interface_attr