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/icextract_to_scalar.cpp

    r980 r981  
    1414#include "icutil.hpp" 
    1515#include "timer.hpp" 
    16 #include "reduce_axis_to_scalar.hpp" 
     16#include "extract_axis_to_scalar.hpp" 
    1717 
    1818extern "C" 
     
    2222   // ----------------------- Redéfinition de types ---------------------------- 
    2323 
    24    typedef xios::CReduceAxisToScalar      * XReduceAxisToScalarPtr; 
    25  
     24   typedef xios::CExtractAxisToScalar      * XExtractAxisToScalarPtr; 
     25    
    2626   // ------------------------ Création des handle ----------------------------- 
    27    void cxios_reduce_axis_to_scalar_handle_create(XReduceAxisToScalarPtr * _ret, const char * _id, int _id_len) 
     27   void cxios_extract_axis_to_scalar_handle_create(XExtractAxisToScalarPtr * _ret, const char * _id, int _id_len) 
    2828   { 
    2929      std::string id; 
    3030      if (!cstr2string(_id, _id_len, id)) return; 
    3131      CTimer::get("XIOS").resume() ; 
    32       *_ret = xios::CReduceAxisToScalar::get(id); 
     32      *_ret = xios::CExtractAxisToScalar::get(id); 
    3333      CTimer::get("XIOS").suspend() ; 
    3434   } 
    3535 
    3636   // -------------------- Vérification des identifiants ----------------------- 
    37    void cxios_reduce_axis_to_scalar_valid_id(bool * _ret, const char * _id, int _id_len) 
     37   void cxios_extract_axis_to_scalar_valid_id(bool * _ret, const char * _id, int _id_len) 
    3838   { 
    3939      std::string id; 
     
    4141 
    4242      CTimer::get("XIOS").resume() ; 
    43       *_ret = xios::CReduceAxisToScalar::has(id); 
     43      *_ret = xios::CExtractAxisToScalar::has(id); 
    4444      CTimer::get("XIOS").suspend() ; 
    4545   } 
     46 
    4647} // extern "C" 
Note: See TracChangeset for help on using the changeset viewer.