Changeset 794 for XIOS/trunk/src/interface/c/icduration.cpp

Timestamp:

11/19/15 16:55:17 (8 years ago)

Author:

rlacroix

Message:

Fortran interface: Add functions to convert date and duration to string.

File:

• XIOS/trunk/src/interface/c/icduration.cpp (modified) (2 diffs)

XIOS/trunk/src/interface/c/icduration.cpp

@@ +1 @@
+#include "icutil.hpp"
 #include "icdate.hpp"
 #include "calendar_util.hpp"
@@ -4 +5 @@
 extern "C"
 {
+  void cxios_duration_convert_to_string(cxios_duration dur_c, char* str, int str_size)
+  {
+    xios::CDuration dur = { dur_c.year, dur_c.month, dur_c.day,
+                            dur_c.hour, dur_c.minute, dur_c.second,
+                            dur_c.timestep };
+
+    if (!string_copy(dur.toString(), str, str_size))
+      ERROR("void cxios_duration_convert_to_string(cxios_duration dur_c, char* str, int str_size)", << "Input string is too short");
+  }
+
   cxios_duration cxios_duration_add(cxios_duration dur1_c, cxios_duration dur2_c)
   {