source: XIOS/trunk/src/interface/c_attr/icreduce_axis_to_scalar_attr.cpp @ 891

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

Adding Fortran interface for reduce_axis_to_scalar

Test
+) On Curie
+) Only compilation

File size: 1.7 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::CReduceAxisToScalar* reduce_axis_to_scalar_Ptr;
19
20  void cxios_set_reduce_axis_to_scalar_operation(reduce_axis_to_scalar_Ptr reduce_axis_to_scalar_hdl, const char * operation, int operation_size)
21  {
22    std::string operation_str;
23    if (!cstr2string(operation, operation_size, operation_str)) return;
24    CTimer::get("XIOS").resume();
25    reduce_axis_to_scalar_hdl->operation.setValue(operation_str);
26    CTimer::get("XIOS").suspend();
27  }
28
29  void cxios_get_reduce_axis_to_scalar_operation(reduce_axis_to_scalar_Ptr reduce_axis_to_scalar_hdl, char * operation, int operation_size)
30  {
31    CTimer::get("XIOS").resume();
32    if (!string_copy(reduce_axis_to_scalar_hdl->operation.getInheritedValue(), operation, operation_size))
33      ERROR("void cxios_get_reduce_axis_to_scalar_operation(reduce_axis_to_scalar_Ptr reduce_axis_to_scalar_hdl, char * operation, int operation_size)", << "Input string is too short");
34    CTimer::get("XIOS").suspend();
35  }
36
37  bool cxios_is_defined_reduce_axis_to_scalar_operation(reduce_axis_to_scalar_Ptr reduce_axis_to_scalar_hdl)
38  {
39     CTimer::get("XIOS").resume();
40     bool isDefined = reduce_axis_to_scalar_hdl->operation.hasInheritedValue();
41     CTimer::get("XIOS").suspend();
42     return isDefined;
43  }
44}
Note: See TracBrowser for help on using the repository browser.