source: XIOS/trunk/src/interface/c_attr/iccompute_connectivity_domain_attr.cpp

Last change on this file was 1626, checked in by oabramkina, 2 years ago

Trunk: limiting the line length to 132 characters in the Fortran interface + updating the interface.

File size: 4.8 KB
Line 
1/* ************************************************************************** *
2 *               Interface auto generated - do not modify                     *
3 * ************************************************************************** */
4
5#include <boost/multi_array.hpp>
6#include "xios.hpp"
7#include "attribute_template.hpp"
8#include "object_template.hpp"
9#include "group_template.hpp"
10#include "icutil.hpp"
11#include "icdate.hpp"
12#include "timer.hpp"
13#include "node_type.hpp"
14
15extern "C"
16{
17  typedef xios::CComputeConnectivityDomain* compute_connectivity_domain_Ptr;
18
19  void cxios_set_compute_connectivity_domain_local_neighbor(compute_connectivity_domain_Ptr compute_connectivity_domain_hdl, int* local_neighbor, int* extent)
20  {
21    CTimer::get("XIOS").resume();
22    CArray<int,2> tmp(local_neighbor, shape(extent[0], extent[1]), neverDeleteData);
23    compute_connectivity_domain_hdl->local_neighbor.reference(tmp.copy());
24     CTimer::get("XIOS").suspend();
25  }
26
27  void cxios_get_compute_connectivity_domain_local_neighbor(compute_connectivity_domain_Ptr compute_connectivity_domain_hdl, int* local_neighbor, int* extent)
28  {
29    CTimer::get("XIOS").resume();
30    CArray<int,2> tmp(local_neighbor, shape(extent[0], extent[1]), neverDeleteData);
31    tmp=compute_connectivity_domain_hdl->local_neighbor.getInheritedValue();
32     CTimer::get("XIOS").suspend();
33  }
34
35  bool cxios_is_defined_compute_connectivity_domain_local_neighbor(compute_connectivity_domain_Ptr compute_connectivity_domain_hdl)
36  {
37     CTimer::get("XIOS").resume();
38     bool isDefined = compute_connectivity_domain_hdl->local_neighbor.hasInheritedValue();
39     CTimer::get("XIOS").suspend();
40     return isDefined;
41  }
42
43
44  void cxios_set_compute_connectivity_domain_n_neighbor(compute_connectivity_domain_Ptr compute_connectivity_domain_hdl, int* n_neighbor, int* extent)
45  {
46    CTimer::get("XIOS").resume();
47    CArray<int,1> tmp(n_neighbor, shape(extent[0]), neverDeleteData);
48    compute_connectivity_domain_hdl->n_neighbor.reference(tmp.copy());
49     CTimer::get("XIOS").suspend();
50  }
51
52  void cxios_get_compute_connectivity_domain_n_neighbor(compute_connectivity_domain_Ptr compute_connectivity_domain_hdl, int* n_neighbor, int* extent)
53  {
54    CTimer::get("XIOS").resume();
55    CArray<int,1> tmp(n_neighbor, shape(extent[0]), neverDeleteData);
56    tmp=compute_connectivity_domain_hdl->n_neighbor.getInheritedValue();
57     CTimer::get("XIOS").suspend();
58  }
59
60  bool cxios_is_defined_compute_connectivity_domain_n_neighbor(compute_connectivity_domain_Ptr compute_connectivity_domain_hdl)
61  {
62     CTimer::get("XIOS").resume();
63     bool isDefined = compute_connectivity_domain_hdl->n_neighbor.hasInheritedValue();
64     CTimer::get("XIOS").suspend();
65     return isDefined;
66  }
67
68
69  void cxios_set_compute_connectivity_domain_n_neighbor_max(compute_connectivity_domain_Ptr compute_connectivity_domain_hdl, int n_neighbor_max)
70  {
71    CTimer::get("XIOS").resume();
72    compute_connectivity_domain_hdl->n_neighbor_max.setValue(n_neighbor_max);
73    CTimer::get("XIOS").suspend();
74  }
75
76  void cxios_get_compute_connectivity_domain_n_neighbor_max(compute_connectivity_domain_Ptr compute_connectivity_domain_hdl, int* n_neighbor_max)
77  {
78    CTimer::get("XIOS").resume();
79    *n_neighbor_max = compute_connectivity_domain_hdl->n_neighbor_max.getInheritedValue();
80    CTimer::get("XIOS").suspend();
81  }
82
83  bool cxios_is_defined_compute_connectivity_domain_n_neighbor_max(compute_connectivity_domain_Ptr compute_connectivity_domain_hdl)
84  {
85     CTimer::get("XIOS").resume();
86     bool isDefined = compute_connectivity_domain_hdl->n_neighbor_max.hasInheritedValue();
87     CTimer::get("XIOS").suspend();
88     return isDefined;
89  }
90
91
92  void cxios_set_compute_connectivity_domain_type(compute_connectivity_domain_Ptr compute_connectivity_domain_hdl, const char * type, int type_size)
93  {
94    std::string type_str;
95    if (!cstr2string(type, type_size, type_str)) return;
96    CTimer::get("XIOS").resume();
97    compute_connectivity_domain_hdl->type.fromString(type_str);
98    CTimer::get("XIOS").suspend();
99  }
100
101  void cxios_get_compute_connectivity_domain_type(compute_connectivity_domain_Ptr compute_connectivity_domain_hdl, char * type, int type_size)
102  {
103    CTimer::get("XIOS").resume();
104    if (!string_copy(compute_connectivity_domain_hdl->type.getInheritedStringValue(), type, type_size))
105      ERROR("void cxios_get_compute_connectivity_domain_type(compute_connectivity_domain_Ptr compute_connectivity_domain_hdl, char * type, int type_size)", << "Input string is too short");
106    CTimer::get("XIOS").suspend();
107  }
108
109  bool cxios_is_defined_compute_connectivity_domain_type(compute_connectivity_domain_Ptr compute_connectivity_domain_hdl)
110  {
111     CTimer::get("XIOS").resume();
112     bool isDefined = compute_connectivity_domain_hdl->type.hasInheritedValue();
113     CTimer::get("XIOS").suspend();
114     return isDefined;
115  }
116}
Note: See TracBrowser for help on using the repository browser.