Changeset 891 for XIOS/trunk/src/interface/fortran_attr/interpolate_domain_interface_attr.F90

Timestamp:

07/05/16 15:59:23 (8 years ago)

Author:

mhnguyen

Message:

Adding Fortran interface for reduce_axis_to_scalar

Test
+) On Curie
+) Only compilation

File:

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

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

@@ -49 +49 @@
     END FUNCTION cxios_is_defined_interpolate_domain_order
 
+
+    SUBROUTINE cxios_set_interpolate_domain_renormalize(interpolate_domain_hdl, renormalize) BIND(C)
+      USE ISO_C_BINDING
+      INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl
+      LOGICAL (KIND=C_BOOL)      , VALUE :: renormalize
+    END SUBROUTINE cxios_set_interpolate_domain_renormalize
+
+    SUBROUTINE cxios_get_interpolate_domain_renormalize(interpolate_domain_hdl, renormalize) BIND(C)
+      USE ISO_C_BINDING
+      INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl
+      LOGICAL (KIND=C_BOOL)             :: renormalize
+    END SUBROUTINE cxios_get_interpolate_domain_renormalize
+
+    FUNCTION cxios_is_defined_interpolate_domain_renormalize(interpolate_domain_hdl) BIND(C)
+      USE ISO_C_BINDING
+      LOGICAL(kind=C_BOOL) :: cxios_is_defined_interpolate_domain_renormalize
+      INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl
+    END FUNCTION cxios_is_defined_interpolate_domain_renormalize
+
   END INTERFACE