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

Timestamp:

11/12/15 16:33:14 (8 years ago)

Author:

mhnguyen

Message:

Generating Fortran interface for zoom_axis and zoom_domain

Test
+) On Curie
+) All results are correct

File:

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

XIOS/trunk/src/generate_fortran_interface.cpp

@@ -7 +7 @@
 #include "context.hpp"
 #include "file.hpp"
+#include "zoom_domain.hpp"
+#include "zoom_axis.hpp"
 
 int main (int argc, char ** argv, char ** UNUSED (env))
@@ -29 +31 @@
   CFileGroup filegroup;
 
+  CZoomDomain zoomDomain;
+  CZoomAxis zoomAxis;
+
   ostringstream oss;
   ofstream file;
@@ -195 +200 @@
   file.close();
 
+  file.open((path+"zoom_domain_interface_attr.F90").c_str());
+  zoomDomain.generateFortran2003Interface(file);
+  file.close();
+
+  file.open((path+"iczoom_domain_attr.cpp").c_str());
+  zoomDomain.generateCInterface(file);
+  file.close();
+
+  file.open((path+"izoom_domain_attr.F90").c_str());
+  zoomDomain.generateFortranInterface(file);
+  file.close();
+
+  file.open((path+"zoom_axis_interface_attr.F90").c_str());
+  zoomAxis.generateFortran2003Interface(file);
+  file.close();
+
+  file.open((path+"iczoom_axis_attr.cpp").c_str());
+  zoomAxis.generateCInterface(file);
+  file.close();
+
+  file.open((path+"izoom_axis_attr.F90").c_str());
+  zoomAxis.generateFortranInterface(file);
+  file.close();
 
   file.open((path+"context_interface_attr.F90").c_str());
@@ -208 +236 @@
   file.close();
 
+
+
 }