Changeset 352 for XIOS/trunk/src/generate_interface_impl.hpp

Timestamp:

07/09/12 11:33:05 (12 years ago)

Author:

ymipsl

Message:

 

File:

• XIOS/trunk/src/generate_interface_impl.hpp (modified) (2 diffs)

XIOS/trunk/src/generate_interface_impl.hpp

@@ -6 +6 @@
 #include "type_util.hpp"
 #include "indent.hpp"
+#include "array.hpp"
 
 namespace xios
 { 
-
+  template<> string CInterface::getStrFortranType<int>(void) {return string("INTEGER") ;}
+  template<> string CInterface::getStrFortranType<bool>(void) {return string("LOGICAL") ;}
+  template<> string CInterface::getStrFortranType<double>(void) {return string("REAL") ;}
+  template<> string CInterface::getStrFortranType<float>(void) {return string("REAL") ;}
+  
+  template<> string CInterface::getStrFortranKind<int>(void) {return string("") ;}
+  template<> string CInterface::getStrFortranKind<bool>(void) {return string("") ;}
+  template<> string CInterface::getStrFortranKind<double>(void) {return string("(KIND=8)") ;}
+  template<> string CInterface::getStrFortranKind<float>(void) {return string("(KIND=4)") ;}
+  
+  template<> string CInterface::getStrFortranKindC<int>(void) {return string("(KIND=C_INT)") ;}
+  template<> string CInterface::getStrFortranKindC<bool>(void) {return string("(KIND=C_BOOL)") ;}
+  template<> string CInterface::getStrFortranKindC<double>(void) {return string("(KIND=C_DOUBLE)") ;}
+  template<> string CInterface::getStrFortranKindC<float>(void) {return string("(KIND=C_FLOAT)") ;}
+  
+  template<> bool CInterface::matchingTypeCFortran<int>(void) { return true ; } 
+  template<> bool CInterface::matchingTypeCFortran<bool>(void) { return false ;} 
+  template<> bool CInterface::matchingTypeCFortran<double>(void) { return true; }
+  template<> bool CInterface::matchingTypeCFortran<float>(void) { return true; }
+  
 
 // /////////////////////////////////////////////////
@@ -15 +35 @@
 // /////////////////////////////////////////////////
 
+  
   template <class T>
   void CInterface::AttributeCInterface(ostream& oss, const string& className,const string& name)