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

Timestamp:

11/12/15 16:33:25 (9 years ago)

Author:

mhnguyen

Message:

Generating interface for transformations

+) Update Fortran interface for other transformations
+) Remove some redundant files
+) Update test to new interface

Test
+) On Curie
+) test_client and test_complete are correct

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 "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"
 
 int main (int argc, char ** argv, char ** UNUSED (env))
@@ -34 +37 @@
   CZoomAxis zoomAxis;
 
+  CInterpolateAxis interpolateAxis;
+  CInterpolateDomain interpolateDomain;
+
+  CGenerateRectilinearDomain genDomain;
+  CInverseAxis inverseAxis;
+
   ostringstream oss;
   ofstream file;
@@ -224 +233 @@
   file.close();
 
+  file.open((path+"interpolate_axis_interface_attr.F90").c_str());
+  interpolateAxis.generateFortran2003Interface(file);
+  file.close();
+
+  file.open((path+"icinterpolate_axis_attr.cpp").c_str());
+  interpolateAxis.generateCInterface(file);
+  file.close();
+
+  file.open((path+"iinterpolate_axis_attr.F90").c_str());
+  interpolateAxis.generateFortranInterface(file);
+  file.close();
+
+  file.open((path+"interpolate_domain_interface_attr.F90").c_str());
+  interpolateDomain.generateFortran2003Interface(file);
+  file.close();
+
+  file.open((path+"icinterpolate_domain_attr.cpp").c_str());
+  interpolateDomain.generateCInterface(file);
+  file.close();
+
+  file.open((path+"iinterpolate_domain_attr.F90").c_str());
+  interpolateDomain.generateFortranInterface(file);
+  file.close();
+
+  file.open((path+"generate_rectilinear_domain_interface_attr.F90").c_str());
+  genDomain.generateFortran2003Interface(file);
+  file.close();
+
+  file.open((path+"icgenerate_rectilinear_domain_attr.cpp").c_str());
+  genDomain.generateCInterface(file);
+  file.close();
+
+  file.open((path+"igenerate_rectilinear_domain_attr.F90").c_str());
+  genDomain.generateFortranInterface(file);
+  file.close();
+
+  file.open((path+"inverse_axis_interface_attr.F90").c_str());
+  inverseAxis.generateFortran2003Interface(file);
+  file.close();
+
+  file.open((path+"icinverse_axis_attr.cpp").c_str());
+  inverseAxis.generateCInterface(file);
+  file.close();
+
+  file.open((path+"iinverse_axis_attr.F90").c_str());
+  inverseAxis.generateFortranInterface(file);
+  file.close();
+
   file.open((path+"context_interface_attr.F90").c_str());
   context->generateFortran2003Interface(file);
@@ -235 +292 @@
   context->generateFortranInterface(file);
   file.close();
-
-
-
 }