Changeset 981 for XIOS/trunk/src/interface/c/icreduce_to_axis.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_axis.cpp (copied) (copied from XIOS/trunk/src/interface/c/icreduce_axis_to_scalar.cpp) (3 diffs)

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

@@ -14 +14 @@
 #include "icutil.hpp"
 #include "timer.hpp"
-#include "reduce_axis_to_scalar.hpp"
+#include "reduce_domain_to_axis.hpp"
 
 extern "C"
@@ -22 +22 @@
    // ----------------------- Redéfinition de types ----------------------------
 
-   typedef xios::CReduceAxisToScalar      * XReduceAxisToScalarPtr;
-
+   typedef xios::CReduceDomainToAxis      * XReduceDomainToAxisPtr;
+   
    // ------------------------ Création des handle -----------------------------
-   void cxios_reduce_axis_to_scalar_handle_create(XReduceAxisToScalarPtr * _ret, const char * _id, int _id_len)
+   void cxios_reduce_domain_to_axis_handle_create(XReduceDomainToAxisPtr * _ret, const char * _id, int _id_len)
    {
       std::string id;
       if (!cstr2string(_id, _id_len, id)) return;
       CTimer::get("XIOS").resume() ;
-      *_ret = xios::CReduceAxisToScalar::get(id);
+      *_ret = xios::CReduceDomainToAxis::get(id);
       CTimer::get("XIOS").suspend() ;
    }
 
    // -------------------- Vérification des identifiants -----------------------
-   void cxios_reduce_axis_to_scalar_valid_id(bool * _ret, const char * _id, int _id_len)
+   void cxios_reduce_domain_to_axis_valid_id(bool * _ret, const char * _id, int _id_len)
    {
       std::string id;
@@ -41 +41 @@
 
       CTimer::get("XIOS").resume() ;
-      *_ret = xios::CReduceAxisToScalar::has(id);
+      *_ret = xios::CReduceDomainToAxis::has(id);
       CTimer::get("XIOS").suspend() ;
    }
+
 } // extern "C"