source: XIOS/trunk/src/interface/c/icexpand_domain.cpp @ 981

Last change on this file since 981 was 981, checked in by mhnguyen, 7 years ago

Fortran interfaces:

+) Adding Fortran interfaces of transformation

Test
+) Only complilation on Curie

File size: 1.5 KB
Line 
1/* ************************************************************************** *
2 *      Copyright © IPSL/LSCE, xios, Avril 2010 - Octobre 2011         *
3 * ************************************************************************** */
4
5#include <boost/multi_array.hpp>
6#include <boost/shared_ptr.hpp>
7
8#include "xios.hpp"
9
10#include "object_template.hpp"
11#include "group_template.hpp"
12#include "attribute_template.hpp"
13
14#include "icutil.hpp"
15#include "timer.hpp"
16#include "expand_domain.hpp"
17
18extern "C"
19{
20// /////////////////////////////// Définitions ////////////////////////////// //
21
22   // ----------------------- Redéfinition de types ----------------------------
23
24   typedef xios::CExpandDomain   * XExpandDomainPtr;
25
26   // ------------------------ Création des handle -----------------------------
27   void cxios_expand_domain_handle_create(XExpandDomainPtr * _ret, const char * _id, int _id_len)
28   {
29      std::string id;
30      if (!cstr2string(_id, _id_len, id)) return;
31      CTimer::get("XIOS").resume() ;
32      *_ret = xios::CExpandDomain::get(id);
33      CTimer::get("XIOS").suspend() ;
34   }
35
36   // -------------------- Vérification des identifiants -----------------------
37   void cxios_expand_domain_valid_id(bool * _ret, const char * _id, int _id_len)
38   {
39      std::string id;
40      if (!cstr2string(_id, _id_len, id)) return;
41
42      CTimer::get("XIOS").resume() ;
43      *_ret = xios::CExpandDomain::has(id);
44      CTimer::get("XIOS").suspend() ;
45   }
46} // extern "C"
Note: See TracBrowser for help on using the repository browser.