Changeset 703 for XIOS/branchs/xios-1.0/src/interface/fortran_attr/file_interface_attr.f90

Timestamp:

09/22/15 14:01:30 (9 years ago)

Author:

rlacroix

Message:

XIOS 1.0: Add the Fortran interface for the new "time_counter" file attribute.

I forgot that the change had been made in XIOS 1.0 too...

File:

• XIOS/branchs/xios-1.0/src/interface/fortran_attr/file_interface_attr.f90 (modified) (1 diff)

XIOS/branchs/xios-1.0/src/interface/fortran_attr/file_interface_attr.f90

@@ -253 +253 @@
     
     
+    SUBROUTINE cxios_set_file_time_counter(file_hdl, time_counter, time_counter_size) BIND(C)
+      USE ISO_C_BINDING
+      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
+      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: time_counter
+      INTEGER  (kind = C_INT)     , VALUE        :: time_counter_size
+    END SUBROUTINE cxios_set_file_time_counter
+    
+    SUBROUTINE cxios_get_file_time_counter(file_hdl, time_counter, time_counter_size) BIND(C)
+      USE ISO_C_BINDING
+      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
+      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: time_counter
+      INTEGER  (kind = C_INT)     , VALUE        :: time_counter_size
+    END SUBROUTINE cxios_get_file_time_counter
+    
+    FUNCTION cxios_is_defined_file_time_counter(file_hdl ) BIND(C)
+      USE ISO_C_BINDING
+      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_time_counter
+      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
+    END FUNCTION cxios_is_defined_file_time_counter
+    
+    
     SUBROUTINE cxios_set_file_type(file_hdl, type, type_size) BIND(C)
       USE ISO_C_BINDING