Ignore:
Timestamp:
10/24/16 16:16:51 (5 years ago)
Author:
mhnguyen
Message:

Fortran interfaces:

+) Adding Fortran interfaces of transformation

Test
+) Only complilation on Curie

File:
1 copied

Legend:

Unmodified
Added
Removed
  • XIOS/trunk/src/interface/c/icreduce_to_scalar.cpp

    r980 r981  
    1515#include "timer.hpp" 
    1616#include "reduce_axis_to_scalar.hpp" 
     17#include "reduce_domain_to_scalar.hpp" 
    1718 
    1819extern "C" 
     
    2324 
    2425   typedef xios::CReduceAxisToScalar      * XReduceAxisToScalarPtr; 
     26   typedef xios::CReduceDomainToScalar    * XReduceDomainToScalarPtr; 
    2527 
    2628   // ------------------------ Création des handle ----------------------------- 
     
    4446      CTimer::get("XIOS").suspend() ; 
    4547   } 
     48 
     49   void cxios_reduce_domain_to_scalar_handle_create(XReduceDomainToScalarPtr * _ret, const char * _id, int _id_len) 
     50   { 
     51      std::string id; 
     52      if (!cstr2string(_id, _id_len, id)) return; 
     53      CTimer::get("XIOS").resume() ; 
     54      *_ret = xios::CReduceDomainToScalar::get(id); 
     55      CTimer::get("XIOS").suspend() ; 
     56   } 
     57 
     58   // -------------------- Vérification des identifiants ----------------------- 
     59   void cxios_reduce_domain_to_scalar_valid_id(bool * _ret, const char * _id, int _id_len) 
     60   { 
     61      std::string id; 
     62      if (!cstr2string(_id, _id_len, id)) return; 
     63 
     64      CTimer::get("XIOS").resume() ; 
     65      *_ret = xios::CReduceDomainToScalar::has(id); 
     66      CTimer::get("XIOS").suspend() ; 
     67   } 
     68 
    4669} // extern "C" 
Note: See TracChangeset for help on using the changeset viewer.