Changeset 313 for XIOS/trunk/src/fortran/icutil.hpp

Timestamp:

02/18/12 22:43:24 (12 years ago)

Author:

ymipsl

Message:

Fortran attribut interface are now automaticaly generated.
Add get attribut fonctionnality from fortran.

YM

File:

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

XIOS/trunk/src/fortran/icutil.hpp

@@ -8 +8 @@
 
 #include <string>
-
+#include <string.h>
 // ///////////////////////// Définitions/Déclarations /////////////////////// //
 
@@ -29 +29 @@
 }
 
+inline bool string_copy(const string& str, char* cstr,int cstr_size)
+{
+  
+  if (str.size()>cstr_size) return false ;
+  else
+  {
+    std::memset (cstr,' ',cstr_size);
+    str.copy(cstr,cstr_size) ;
+    return true ;
+  }
+}
+  template<class T>
+  inline  bool array_copy(ARRAY(T,1) array_in, T* array_out, size_t extent1)
+  {
+    if (array_in->num_elements() != extent1) return false ;
+    std::copy(array_in->data(), array_in->data() + array_in->num_elements(), array_out);
+    return true ;
+  }
+
+  template<class T>
+  inline  bool array_copy(ARRAY(T,2) array_in, T* array_out, size_t extent1, size_t extent2)
+  {
+    if (array_in->num_elements() != extent1*extent2) return false ;
+    std::copy(array_in->data(), array_in->data() + array_in->num_elements(), array_out);
+    return true ;
+  }
+
+  template<class T>
+  inline  bool array_copy(ARRAY(T,3) array_in, T* array_out, size_t extent1, size_t extent2, size_t extent3)
+  {
+    if (array_in->num_elements() != extent1*extent2*extent3) return false ;
+    std::copy(array_in->data(), array_in->data() + array_in->num_elements(), array_out);
+    return true ;
+  }        
+
+
 #endif // __ICUTIL_HPP__