Changeset 593 for XIOS/trunk/src/interface/fortran_attr/fieldgroup_interface_attr.F90

Timestamp:

05/26/15 16:13:45 (9 years ago)

Author:

rlacroix

Message:

Add a new interface xios_recv_field to get local instant data from a field.

File:

• XIOS/trunk/src/interface/fortran_attr/fieldgroup_interface_attr.F90 (modified) (1 diff)

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

@@ -334 +334 @@
 
 
+    SUBROUTINE cxios_set_fieldgroup_read_access(fieldgroup_hdl, read_access) BIND(C)
+      USE ISO_C_BINDING
+      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
+      LOGICAL (KIND=C_BOOL)      , VALUE :: read_access
+    END SUBROUTINE cxios_set_fieldgroup_read_access
+
+    SUBROUTINE cxios_get_fieldgroup_read_access(fieldgroup_hdl, read_access) BIND(C)
+      USE ISO_C_BINDING
+      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
+      LOGICAL (KIND=C_BOOL)             :: read_access
+    END SUBROUTINE cxios_get_fieldgroup_read_access
+
+    FUNCTION cxios_is_defined_fieldgroup_read_access(fieldgroup_hdl) BIND(C)
+      USE ISO_C_BINDING
+      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_read_access
+      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
+    END FUNCTION cxios_is_defined_fieldgroup_read_access
+
+
     SUBROUTINE cxios_set_fieldgroup_scale_factor(fieldgroup_hdl, scale_factor) BIND(C)
       USE ISO_C_BINDING