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

Timestamp:

10/24/16 16:16:51 (7 years ago)

Author:

mhnguyen

Message:

Fortran interfaces:

+) Adding Fortran interfaces of transformation

Test
+) Only complilation on Curie

File:

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

XIOS/trunk/src/generate_fortran_interface.cpp

@@ -34 +34 @@
   CGenerateRectilinearDomain genDomain;
   CComputeConnectivityDomain compConDomain;
+  CExpandDomain expandDomain;
 
   CInterpolateAxis interpolateAxis;
   CZoomAxis zoomAxis;
   CInverseAxis inverseAxis;
+  CReduceDomainToAxis reduceDomainToAxis;
+  CExtractDomainToAxis extractDomainToAxis;
 
   CReduceAxisToScalar reduceAxisToScalar;
+  CExtractAxisToScalar extractAxisToScalar;
+  CReduceDomainToScalar reduceDomainToScalar;
 
   ostringstream oss;
@@ -231 +236 @@
   file.close();
 
+  /*!
+    Domain transformations
+  */
   file.open((path+"zoom_domain_interface_attr.F90").c_str());
   zoomDomain.generateFortran2003Interface(file);
@@ -243 +251 @@
   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+"compute_connectivity_domain_interface_attr.F90").c_str());
+  compConDomain.generateFortran2003Interface(file);
+  file.close();
+
+  file.open((path+"iccompute_connectivity_domain_attr.cpp").c_str());
+  compConDomain.generateCInterface(file);
+  file.close();
+
+  file.open((path+"icompute_connectivity_domain_attr.F90").c_str());
+  compConDomain.generateFortranInterface(file);
+  file.close();
+
+  file.open((path+"expand_domain_interface_attr.F90").c_str());
+  expandDomain.generateFortran2003Interface(file);
+  file.close();
+
+  file.open((path+"icexpand_domain_attr.cpp").c_str());
+  expandDomain.generateCInterface(file);
+  file.close();
+
+  file.open((path+"iexpand_domain_attr.F90").c_str());
+  expandDomain.generateFortranInterface(file);
+  file.close();
+  
+  /*!
+    Axis transformations
+  */
   file.open((path+"zoom_axis_interface_attr.F90").c_str());
   zoomAxis.generateFortran2003Interface(file);
@@ -267 +326 @@
   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+"compute_connectivity_domain_interface_attr.F90").c_str());
-  compConDomain.generateFortran2003Interface(file);
-  file.close();
-
-  file.open((path+"iccompute_connectivity_domain_attr.cpp").c_str());
-  compConDomain.generateCInterface(file);
-  file.close();
-
-  file.open((path+"icompute_connectivity_domain_attr.F90").c_str());
-  compConDomain.generateFortranInterface(file);
-  file.close();
-
-
-
-
   file.open((path+"inverse_axis_interface_attr.F90").c_str());
   inverseAxis.generateFortran2003Interface(file);
@@ -318 +338 @@
   file.close();
 
+  file.open((path+"reduce_domain_to_axis_interface_attr.F90").c_str());
+  reduceDomainToAxis.generateFortran2003Interface(file);
+  file.close();
+
+  file.open((path+"icreduce_domain_to_axis_attr.cpp").c_str());
+  reduceDomainToAxis.generateCInterface(file);
+  file.close();
+
+  file.open((path+"ireduce_domain_to_axis_attr.F90").c_str());
+  reduceDomainToAxis.generateFortranInterface(file);
+  file.close();
+  
+  file.open((path+"extract_domain_to_axis_interface_attr.F90").c_str());
+  extractDomainToAxis.generateFortran2003Interface(file);
+  file.close();
+
+  file.open((path+"icextract_domain_to_axis_attr.cpp").c_str());
+  extractDomainToAxis.generateCInterface(file);
+  file.close();
+
+  file.open((path+"iextract_domain_to_axis_attr.F90").c_str());
+  extractDomainToAxis.generateFortranInterface(file);
+  file.close();
+
+
+  /*!
+    Scalar transformations
+  */
   file.open((path+"reduce_axis_to_scalar_interface_attr.F90").c_str());
   reduceAxisToScalar.generateFortran2003Interface(file);
@@ -330 +378 @@
   file.close();
 
+  file.open((path+"extract_axis_to_scalar_interface_attr.F90").c_str());
+  extractAxisToScalar.generateFortran2003Interface(file);
+  file.close();
+
+  file.open((path+"icextract_axis_to_scalar_attr.cpp").c_str());
+  extractAxisToScalar.generateCInterface(file);
+  file.close();
+
+  file.open((path+"iextract_axis_to_scalar_attr.F90").c_str());
+  extractAxisToScalar.generateFortranInterface(file);
+  file.close();
+
+  file.open((path+"reduce_domain_to_scalar_interface_attr.F90").c_str());
+  reduceDomainToScalar.generateFortran2003Interface(file);
+  file.close();
+
+  file.open((path+"icreduce_domain_to_scalar_attr.cpp").c_str());
+  reduceDomainToScalar.generateCInterface(file);
+  file.close();
+
+  file.open((path+"ireduce_domain_to_scalar_attr.F90").c_str());
+  reduceDomainToScalar.generateFortranInterface(file);
+  file.close();
+
   file.open((path+"context_interface_attr.F90").c_str());
   context->generateFortran2003Interface(file);