Changeset 891 for XIOS/trunk/src/generate_fortran_interface.cpp

Timestamp:

07/05/16 15:59:23 (8 years ago)

Author:

mhnguyen

Message:

Adding Fortran interface for reduce_axis_to_scalar

Test
+) On Curie
+) Only compilation

File:

• XIOS/trunk/src/generate_fortran_interface.cpp (modified) (4 diffs)

XIOS/trunk/src/generate_fortran_interface.cpp

@@ -5 +5 @@
 #include "object_template.hpp"
 #include "group_template.hpp"
-//#include "context.hpp"
-//#include "file.hpp"
-//#include "zoom_domain.hpp"
-//#include "zoom_axis.hpp"
-//#include "interpolate_axis.hpp"
-//#include "interpolate_domain.hpp"
 #include "node_type.hpp"
 
@@ -20 +14 @@
   CContext* context=CContext::create("interface");
   CCalendarWrapper calendarWrapper;
+  CScalar scalar;
+  CScalarGroup scalargroup;
   CAxis axis;
   CAxisGroup axisgroup;
@@ -34 +30 @@
   CFileGroup filegroup;
 
+  CInterpolateDomain interpolateDomain;
   CZoomDomain zoomDomain;
+  CGenerateRectilinearDomain genDomain;
+
+  CInterpolateAxis interpolateAxis;
   CZoomAxis zoomAxis;
-
-  CInterpolateAxis interpolateAxis;
-  CInterpolateDomain interpolateDomain;
-
-  CGenerateRectilinearDomain genDomain;
   CInverseAxis inverseAxis;
+
+  CReduceAxisToScalar reduceAxisToScalar;
 
   ostringstream oss;
   ofstream file;
 
+  file.open((path+"scalar_interface_attr.F90").c_str());
+  scalar.generateFortran2003Interface(file);
+  file.close();
+
+  file.open((path+"icscalar_attr.cpp").c_str());
+  scalar.generateCInterface(file);
+  file.close();
+
+  file.open((path+"iscalar_attr.F90").c_str());
+  scalar.generateFortranInterface(file);
+  file.close();
+
+  file.open((path+"scalargroup_interface_attr.F90").c_str());
+  scalargroup.generateFortran2003Interface(file);
+  file.close();
+
+  file.open((path+"icscalargroup_attr.cpp").c_str());
+  scalargroup.generateCInterface(file);
+  file.close();
+
+  file.open((path+"iscalargroup_attr.F90").c_str());
+  scalargroup.generateFortranInterface(file);
+  file.close();
+
   file.open((path+"axis_interface_attr.F90").c_str());
   axis.generateFortran2003Interface(file);
@@ -281 +302 @@
   file.close();
 
+  file.open((path+"reduce_axis_to_scalar_interface_attr.F90").c_str());
+  reduceAxisToScalar.generateFortran2003Interface(file);
+  file.close();
+
+  file.open((path+"icreduce_axis_to_scalar_attr.cpp").c_str());
+  reduceAxisToScalar.generateCInterface(file);
+  file.close();
+
+  file.open((path+"ireduce_axis_to_scalar_attr.F90").c_str());
+  reduceAxisToScalar.generateFortranInterface(file);
+  file.close();
+
   file.open((path+"context_interface_attr.F90").c_str());
   context->generateFortran2003Interface(file);