Changeset 981 for XIOS/trunk/src/interface/c/icreduce_to_scalar.cpp

Timestamp:

10/24/16 16:16:51 (8 years ago)

Author:

mhnguyen

Message:

Fortran interfaces:

+) Adding Fortran interfaces of transformation

Test
+) Only complilation on Curie

File:

• XIOS/trunk/src/interface/c/icreduce_to_scalar.cpp (copied) (copied from XIOS/trunk/src/interface/c/icreduce_axis_to_scalar.cpp) (3 diffs)

XIOS/trunk/src/interface/c/icreduce_to_scalar.cpp

@@ -15 +15 @@
 #include "timer.hpp"
 #include "reduce_axis_to_scalar.hpp"
+#include "reduce_domain_to_scalar.hpp"
 
 extern "C"
@@ -23 +24 @@
 
    typedef xios::CReduceAxisToScalar      * XReduceAxisToScalarPtr;
+   typedef xios::CReduceDomainToScalar    * XReduceDomainToScalarPtr;
 
    // ------------------------ Création des handle -----------------------------
@@ -44 +46 @@
       CTimer::get("XIOS").suspend() ;
    }
+
+   void cxios_reduce_domain_to_scalar_handle_create(XReduceDomainToScalarPtr * _ret, const char * _id, int _id_len)
+   {
+      std::string id;
+      if (!cstr2string(_id, _id_len, id)) return;
+      CTimer::get("XIOS").resume() ;
+      *_ret = xios::CReduceDomainToScalar::get(id);
+      CTimer::get("XIOS").suspend() ;
+   }
+
+   // -------------------- Vérification des identifiants -----------------------
+   void cxios_reduce_domain_to_scalar_valid_id(bool * _ret, const char * _id, int _id_len)
+   {
+      std::string id;
+      if (!cstr2string(_id, _id_len, id)) return;
+
+      CTimer::get("XIOS").resume() ;
+      *_ret = xios::CReduceDomainToScalar::has(id);
+      CTimer::get("XIOS").suspend() ;
+   }
+
 } // extern "C"