Changeset 415 for XIOS/trunk/src/interface/fortran_attr/filegroup_interface_attr.f90

Timestamp:

01/20/13 23:14:35 (11 years ago)

Author:

ymipsl

Message:

Add grid mask attribute

YM

File:

• XIOS/trunk/src/interface/fortran_attr/filegroup_interface_attr.f90 (modified) (1 diff)

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

@@ -50 +50 @@
       INTEGER  (kind = C_INT)     , VALUE        :: group_ref_size
     END SUBROUTINE cxios_get_filegroup_group_ref
+    
+    
+    SUBROUTINE cxios_set_filegroup_min_digits(filegroup_hdl, min_digits) BIND(C)
+      USE ISO_C_BINDING
+      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
+      INTEGER (KIND=C_INT)      , VALUE :: min_digits
+    END SUBROUTINE cxios_set_filegroup_min_digits
+    
+    SUBROUTINE cxios_get_filegroup_min_digits(filegroup_hdl, min_digits) BIND(C)
+      USE ISO_C_BINDING
+      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
+      INTEGER (KIND=C_INT)             :: min_digits
+    END SUBROUTINE cxios_get_filegroup_min_digits