source: XIOS/trunk/src/interface/c_attr/icexpand_domain_attr.cpp @ 981

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

Fortran interfaces:

+) Adding Fortran interfaces of transformation

Test
+) Only complilation on Curie

File size: 2.2 KB
Line 
1/* ************************************************************************** *
2 *               Interface auto generated - do not modify                     *
3 * ************************************************************************** */
4
5#include <boost/multi_array.hpp>
6#include <boost/shared_ptr.hpp>
7#include "xios.hpp"
8#include "attribute_template.hpp"
9#include "object_template.hpp"
10#include "group_template.hpp"
11#include "icutil.hpp"
12#include "icdate.hpp"
13#include "timer.hpp"
14#include "node_type.hpp"
15
16extern "C"
17{
18  typedef xios::CExpandDomain* expand_domain_Ptr;
19
20  void cxios_set_expand_domain_order(expand_domain_Ptr expand_domain_hdl, int order)
21  {
22    CTimer::get("XIOS").resume();
23    expand_domain_hdl->order.setValue(order);
24    CTimer::get("XIOS").suspend();
25  }
26
27  void cxios_get_expand_domain_order(expand_domain_Ptr expand_domain_hdl, int* order)
28  {
29    CTimer::get("XIOS").resume();
30    *order = expand_domain_hdl->order.getInheritedValue();
31    CTimer::get("XIOS").suspend();
32  }
33
34  bool cxios_is_defined_expand_domain_order(expand_domain_Ptr expand_domain_hdl)
35  {
36     CTimer::get("XIOS").resume();
37     bool isDefined = expand_domain_hdl->order.hasInheritedValue();
38     CTimer::get("XIOS").suspend();
39     return isDefined;
40  }
41
42
43  void cxios_set_expand_domain_type(expand_domain_Ptr expand_domain_hdl, const char * type, int type_size)
44  {
45    std::string type_str;
46    if (!cstr2string(type, type_size, type_str)) return;
47    CTimer::get("XIOS").resume();
48    expand_domain_hdl->type.fromString(type_str);
49    CTimer::get("XIOS").suspend();
50  }
51
52  void cxios_get_expand_domain_type(expand_domain_Ptr expand_domain_hdl, char * type, int type_size)
53  {
54    CTimer::get("XIOS").resume();
55    if (!string_copy(expand_domain_hdl->type.getInheritedStringValue(), type, type_size))
56      ERROR("void cxios_get_expand_domain_type(expand_domain_Ptr expand_domain_hdl, char * type, int type_size)", << "Input string is too short");
57    CTimer::get("XIOS").suspend();
58  }
59
60  bool cxios_is_defined_expand_domain_type(expand_domain_Ptr expand_domain_hdl)
61  {
62     CTimer::get("XIOS").resume();
63     bool isDefined = expand_domain_hdl->type.hasInheritedValue();
64     CTimer::get("XIOS").suspend();
65     return isDefined;
66  }
67}
Note: See TracBrowser for help on using the repository browser.