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

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

@@ -6 +6 @@
 MODULE gridgroup_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_gridgroup_axis_domain_order(gridgroup_hdl, axis_domain_order, extent1) BIND(C)
       USE ISO_C_BINDING
@@ -16 +16 @@
       INTEGER (kind = C_INT), VALUE  :: extent1
     END SUBROUTINE cxios_set_gridgroup_axis_domain_order
-    
+
     SUBROUTINE cxios_get_gridgroup_axis_domain_order(gridgroup_hdl, axis_domain_order, extent1) BIND(C)
       USE ISO_C_BINDING
@@ -23 +23 @@
       INTEGER (kind = C_INT), VALUE  :: extent1
     END SUBROUTINE cxios_get_gridgroup_axis_domain_order
-    
-    FUNCTION cxios_is_defined_gridgroup_axis_domain_order(gridgroup_hdl ) BIND(C)
+
+    FUNCTION cxios_is_defined_gridgroup_axis_domain_order(gridgroup_hdl) BIND(C)
       USE ISO_C_BINDING
       LOGICAL(kind=C_BOOL) :: cxios_is_defined_gridgroup_axis_domain_order
       INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl
     END FUNCTION cxios_is_defined_gridgroup_axis_domain_order
-    
-    
+
+
     SUBROUTINE cxios_set_gridgroup_description(gridgroup_hdl, description, description_size) BIND(C)
       USE ISO_C_BINDING
@@ -37 +37 @@
       INTEGER  (kind = C_INT)     , VALUE        :: description_size
     END SUBROUTINE cxios_set_gridgroup_description
-    
+
     SUBROUTINE cxios_get_gridgroup_description(gridgroup_hdl, description, description_size) BIND(C)
       USE ISO_C_BINDING
@@ -44 +44 @@
       INTEGER  (kind = C_INT)     , VALUE        :: description_size
     END SUBROUTINE cxios_get_gridgroup_description
-    
-    FUNCTION cxios_is_defined_gridgroup_description(gridgroup_hdl ) BIND(C)
+
+    FUNCTION cxios_is_defined_gridgroup_description(gridgroup_hdl) BIND(C)
       USE ISO_C_BINDING
       LOGICAL(kind=C_BOOL) :: cxios_is_defined_gridgroup_description
       INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl
     END FUNCTION cxios_is_defined_gridgroup_description
-    
-    
+
+
     SUBROUTINE cxios_set_gridgroup_group_ref(gridgroup_hdl, group_ref, group_ref_size) BIND(C)
       USE ISO_C_BINDING
@@ -58 +58 @@
       INTEGER  (kind = C_INT)     , VALUE        :: group_ref_size
     END SUBROUTINE cxios_set_gridgroup_group_ref
-    
+
     SUBROUTINE cxios_get_gridgroup_group_ref(gridgroup_hdl, group_ref, group_ref_size) BIND(C)
       USE ISO_C_BINDING
@@ -65 +65 @@
       INTEGER  (kind = C_INT)     , VALUE        :: group_ref_size
     END SUBROUTINE cxios_get_gridgroup_group_ref
-    
-    FUNCTION cxios_is_defined_gridgroup_group_ref(gridgroup_hdl ) BIND(C)
+
+    FUNCTION cxios_is_defined_gridgroup_group_ref(gridgroup_hdl) BIND(C)
       USE ISO_C_BINDING
       LOGICAL(kind=C_BOOL) :: cxios_is_defined_gridgroup_group_ref
       INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl
     END FUNCTION cxios_is_defined_gridgroup_group_ref
-    
-    
+
+
     SUBROUTINE cxios_set_gridgroup_mask1(gridgroup_hdl, mask1, extent1) BIND(C)
       USE ISO_C_BINDING
@@ -79 +79 @@
       INTEGER (kind = C_INT), VALUE  :: extent1
     END SUBROUTINE cxios_set_gridgroup_mask1
-    
+
     SUBROUTINE cxios_get_gridgroup_mask1(gridgroup_hdl, mask1, extent1) BIND(C)
       USE ISO_C_BINDING
@@ -86 +86 @@
       INTEGER (kind = C_INT), VALUE  :: extent1
     END SUBROUTINE cxios_get_gridgroup_mask1
-    
-    FUNCTION cxios_is_defined_gridgroup_mask1(gridgroup_hdl ) BIND(C)
+
+    FUNCTION cxios_is_defined_gridgroup_mask1(gridgroup_hdl) BIND(C)
       USE ISO_C_BINDING
       LOGICAL(kind=C_BOOL) :: cxios_is_defined_gridgroup_mask1
       INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl
     END FUNCTION cxios_is_defined_gridgroup_mask1
-    
-    
+
+
     SUBROUTINE cxios_set_gridgroup_mask2(gridgroup_hdl, mask2, extent1, extent2) BIND(C)
       USE ISO_C_BINDING
@@ -101 +101 @@
       INTEGER (kind = C_INT), VALUE  :: extent2
     END SUBROUTINE cxios_set_gridgroup_mask2
-    
+
     SUBROUTINE cxios_get_gridgroup_mask2(gridgroup_hdl, mask2, extent1, extent2) BIND(C)
       USE ISO_C_BINDING
@@ -109 +109 @@
       INTEGER (kind = C_INT), VALUE  :: extent2
     END SUBROUTINE cxios_get_gridgroup_mask2
-    
-    FUNCTION cxios_is_defined_gridgroup_mask2(gridgroup_hdl ) BIND(C)
+
+    FUNCTION cxios_is_defined_gridgroup_mask2(gridgroup_hdl) BIND(C)
       USE ISO_C_BINDING
       LOGICAL(kind=C_BOOL) :: cxios_is_defined_gridgroup_mask2
       INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl
     END FUNCTION cxios_is_defined_gridgroup_mask2
-    
-    
+
+
     SUBROUTINE cxios_set_gridgroup_mask3(gridgroup_hdl, mask3, extent1, extent2, extent3) BIND(C)
       USE ISO_C_BINDING
@@ -125 +125 @@
       INTEGER (kind = C_INT), VALUE  :: extent3
     END SUBROUTINE cxios_set_gridgroup_mask3
-    
+
     SUBROUTINE cxios_get_gridgroup_mask3(gridgroup_hdl, mask3, extent1, extent2, extent3) BIND(C)
       USE ISO_C_BINDING
@@ -134 +134 @@
       INTEGER (kind = C_INT), VALUE  :: extent3
     END SUBROUTINE cxios_get_gridgroup_mask3
-    
-    FUNCTION cxios_is_defined_gridgroup_mask3(gridgroup_hdl ) BIND(C)
+
+    FUNCTION cxios_is_defined_gridgroup_mask3(gridgroup_hdl) BIND(C)
       USE ISO_C_BINDING
       LOGICAL(kind=C_BOOL) :: cxios_is_defined_gridgroup_mask3
       INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl
     END FUNCTION cxios_is_defined_gridgroup_mask3
-    
-    
+
+
     SUBROUTINE cxios_set_gridgroup_name(gridgroup_hdl, name, name_size) BIND(C)
       USE ISO_C_BINDING
@@ -148 +148 @@
       INTEGER  (kind = C_INT)     , VALUE        :: name_size
     END SUBROUTINE cxios_set_gridgroup_name
-    
+
     SUBROUTINE cxios_get_gridgroup_name(gridgroup_hdl, name, name_size) BIND(C)
       USE ISO_C_BINDING
@@ -155 +155 @@
       INTEGER  (kind = C_INT)     , VALUE        :: name_size
     END SUBROUTINE cxios_get_gridgroup_name
-    
-    FUNCTION cxios_is_defined_gridgroup_name(gridgroup_hdl ) BIND(C)
+
+    FUNCTION cxios_is_defined_gridgroup_name(gridgroup_hdl) BIND(C)
       USE ISO_C_BINDING
       LOGICAL(kind=C_BOOL) :: cxios_is_defined_gridgroup_name
       INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl
     END FUNCTION cxios_is_defined_gridgroup_name
-    
-    
-    END INTERFACE
-  
+
+  END INTERFACE
+
 END MODULE gridgroup_interface_attr