Changeset 432 for XIOS/trunk/src/interface/fortran_attr/axis_interface_attr.f90

Timestamp:

06/03/13 11:21:19 (11 years ago)

Author:

ymipsl

Message:

Enhancement : Add fortran interface to know if an attribute is set or not
ex : CALL xios_is_defined_field_attr("field_A",enabled=ok)

YM

File:

• XIOS/trunk/src/interface/fortran_attr/axis_interface_attr.f90 (modified) (10 diffs)

XIOS/trunk/src/interface/fortran_attr/axis_interface_attr.f90

@@ -23 +23 @@
     END SUBROUTINE cxios_get_axis_long_name
     
+    FUNCTION cxios_is_defined_axis_long_name(axis_hdl ) BIND(C)
+      USE ISO_C_BINDING
+      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_long_name
+      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
+    END FUNCTION cxios_is_defined_axis_long_name
+    
     
     SUBROUTINE cxios_set_axis_name(axis_hdl, name, name_size) BIND(C)
@@ -38 +44 @@
     END SUBROUTINE cxios_get_axis_name
     
+    FUNCTION cxios_is_defined_axis_name(axis_hdl ) BIND(C)
+      USE ISO_C_BINDING
+      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_name
+      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
+    END FUNCTION cxios_is_defined_axis_name
+    
     
     SUBROUTINE cxios_set_axis_positive(axis_hdl, positive, positive_size) BIND(C)
@@ -53 +65 @@
     END SUBROUTINE cxios_get_axis_positive
     
+    FUNCTION cxios_is_defined_axis_positive(axis_hdl ) BIND(C)
+      USE ISO_C_BINDING
+      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_positive
+      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
+    END FUNCTION cxios_is_defined_axis_positive
+    
     
     SUBROUTINE cxios_set_axis_size(axis_hdl, size) BIND(C)
@@ -65 +83 @@
       INTEGER (KIND=C_INT)             :: size
     END SUBROUTINE cxios_get_axis_size
+    
+    FUNCTION cxios_is_defined_axis_size(axis_hdl ) BIND(C)
+      USE ISO_C_BINDING
+      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_size
+      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
+    END FUNCTION cxios_is_defined_axis_size
     
     
@@ -81 +105 @@
     END SUBROUTINE cxios_get_axis_standard_name
     
+    FUNCTION cxios_is_defined_axis_standard_name(axis_hdl ) BIND(C)
+      USE ISO_C_BINDING
+      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_standard_name
+      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
+    END FUNCTION cxios_is_defined_axis_standard_name
+    
     
     SUBROUTINE cxios_set_axis_unit(axis_hdl, unit, unit_size) BIND(C)
@@ -95 +125 @@
       INTEGER  (kind = C_INT)     , VALUE        :: unit_size
     END SUBROUTINE cxios_get_axis_unit
+    
+    FUNCTION cxios_is_defined_axis_unit(axis_hdl ) BIND(C)
+      USE ISO_C_BINDING
+      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_unit
+      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
+    END FUNCTION cxios_is_defined_axis_unit
     
     
@@ -111 +147 @@
     END SUBROUTINE cxios_get_axis_value
     
+    FUNCTION cxios_is_defined_axis_value(axis_hdl ) BIND(C)
+      USE ISO_C_BINDING
+      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_value
+      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
+    END FUNCTION cxios_is_defined_axis_value
+    
     
     SUBROUTINE cxios_set_axis_zoom_begin(axis_hdl, zoom_begin) BIND(C)
@@ -124 +166 @@
     END SUBROUTINE cxios_get_axis_zoom_begin
     
+    FUNCTION cxios_is_defined_axis_zoom_begin(axis_hdl ) BIND(C)
+      USE ISO_C_BINDING
+      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_zoom_begin
+      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
+    END FUNCTION cxios_is_defined_axis_zoom_begin
+    
     
     SUBROUTINE cxios_set_axis_zoom_end(axis_hdl, zoom_end) BIND(C)
@@ -137 +185 @@
     END SUBROUTINE cxios_get_axis_zoom_end
     
+    FUNCTION cxios_is_defined_axis_zoom_end(axis_hdl ) BIND(C)
+      USE ISO_C_BINDING
+      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_zoom_end
+      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
+    END FUNCTION cxios_is_defined_axis_zoom_end
+    
     
     SUBROUTINE cxios_set_axis_zoom_size(axis_hdl, zoom_size) BIND(C)
@@ -149 +203 @@
       INTEGER (KIND=C_INT)             :: zoom_size
     END SUBROUTINE cxios_get_axis_zoom_size
+    
+    FUNCTION cxios_is_defined_axis_zoom_size(axis_hdl ) BIND(C)
+      USE ISO_C_BINDING
+      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_zoom_size
+      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
+    END FUNCTION cxios_is_defined_axis_zoom_size