Changeset 432 for XIOS/trunk/src/interface/fortran_attr/file_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/file_interface_attr.f90 (modified) (11 diffs)

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

@@ -23 +23 @@
     END SUBROUTINE cxios_get_file_description
     
+    FUNCTION cxios_is_defined_file_description(file_hdl ) BIND(C)
+      USE ISO_C_BINDING
+      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_description
+      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
+    END FUNCTION cxios_is_defined_file_description
+    
     
     SUBROUTINE cxios_set_file_enabled(file_hdl, enabled) BIND(C)
@@ -36 +42 @@
     END SUBROUTINE cxios_get_file_enabled
     
+    FUNCTION cxios_is_defined_file_enabled(file_hdl ) BIND(C)
+      USE ISO_C_BINDING
+      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_enabled
+      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
+    END FUNCTION cxios_is_defined_file_enabled
+    
     
     SUBROUTINE cxios_set_file_min_digits(file_hdl, min_digits) BIND(C)
@@ -48 +60 @@
       INTEGER (KIND=C_INT)             :: min_digits
     END SUBROUTINE cxios_get_file_min_digits
+    
+    FUNCTION cxios_is_defined_file_min_digits(file_hdl ) BIND(C)
+      USE ISO_C_BINDING
+      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_min_digits
+      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
+    END FUNCTION cxios_is_defined_file_min_digits
     
     
@@ -64 +82 @@
     END SUBROUTINE cxios_get_file_name
     
+    FUNCTION cxios_is_defined_file_name(file_hdl ) BIND(C)
+      USE ISO_C_BINDING
+      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_name
+      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
+    END FUNCTION cxios_is_defined_file_name
+    
     
     SUBROUTINE cxios_set_file_name_suffix(file_hdl, name_suffix, name_suffix_size) BIND(C)
@@ -79 +103 @@
     END SUBROUTINE cxios_get_file_name_suffix
     
+    FUNCTION cxios_is_defined_file_name_suffix(file_hdl ) BIND(C)
+      USE ISO_C_BINDING
+      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_name_suffix
+      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
+    END FUNCTION cxios_is_defined_file_name_suffix
+    
     
     SUBROUTINE cxios_set_file_output_freq(file_hdl, output_freq, output_freq_size) BIND(C)
@@ -94 +124 @@
     END SUBROUTINE cxios_get_file_output_freq
     
+    FUNCTION cxios_is_defined_file_output_freq(file_hdl ) BIND(C)
+      USE ISO_C_BINDING
+      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_output_freq
+      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
+    END FUNCTION cxios_is_defined_file_output_freq
+    
     
     SUBROUTINE cxios_set_file_output_level(file_hdl, output_level) BIND(C)
@@ -106 +142 @@
       INTEGER (KIND=C_INT)             :: output_level
     END SUBROUTINE cxios_get_file_output_level
+    
+    FUNCTION cxios_is_defined_file_output_level(file_hdl ) BIND(C)
+      USE ISO_C_BINDING
+      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_output_level
+      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
+    END FUNCTION cxios_is_defined_file_output_level
     
     
@@ -122 +164 @@
     END SUBROUTINE cxios_get_file_par_access
     
+    FUNCTION cxios_is_defined_file_par_access(file_hdl ) BIND(C)
+      USE ISO_C_BINDING
+      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_par_access
+      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
+    END FUNCTION cxios_is_defined_file_par_access
+    
     
     SUBROUTINE cxios_set_file_split_freq(file_hdl, split_freq, split_freq_size) BIND(C)
@@ -137 +185 @@
     END SUBROUTINE cxios_get_file_split_freq
     
+    FUNCTION cxios_is_defined_file_split_freq(file_hdl ) BIND(C)
+      USE ISO_C_BINDING
+      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_split_freq
+      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
+    END FUNCTION cxios_is_defined_file_split_freq
+    
+    
+    SUBROUTINE cxios_set_file_split_freq_format(file_hdl, split_freq_format, split_freq_format_size) BIND(C)
+      USE ISO_C_BINDING
+      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
+      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: split_freq_format
+      INTEGER  (kind = C_INT)     , VALUE        :: split_freq_format_size
+    END SUBROUTINE cxios_set_file_split_freq_format
+    
+    SUBROUTINE cxios_get_file_split_freq_format(file_hdl, split_freq_format, split_freq_format_size) BIND(C)
+      USE ISO_C_BINDING
+      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
+      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: split_freq_format
+      INTEGER  (kind = C_INT)     , VALUE        :: split_freq_format_size
+    END SUBROUTINE cxios_get_file_split_freq_format
+    
+    FUNCTION cxios_is_defined_file_split_freq_format(file_hdl ) BIND(C)
+      USE ISO_C_BINDING
+      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_split_freq_format
+      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
+    END FUNCTION cxios_is_defined_file_split_freq_format
+    
     
     SUBROUTINE cxios_set_file_sync_freq(file_hdl, sync_freq, sync_freq_size) BIND(C)
@@ -152 +227 @@
     END SUBROUTINE cxios_get_file_sync_freq
     
+    FUNCTION cxios_is_defined_file_sync_freq(file_hdl ) BIND(C)
+      USE ISO_C_BINDING
+      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_sync_freq
+      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
+    END FUNCTION cxios_is_defined_file_sync_freq
+    
     
     SUBROUTINE cxios_set_file_type(file_hdl, type, type_size) BIND(C)
@@ -167 +248 @@
     END SUBROUTINE cxios_get_file_type
     
+    FUNCTION cxios_is_defined_file_type(file_hdl ) BIND(C)
+      USE ISO_C_BINDING
+      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_type
+      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
+    END FUNCTION cxios_is_defined_file_type
+    
     
     END INTERFACE