Changeset 703 for XIOS/branchs/xios-1.0/src/interface/c_attr/icfile_attr.cpp

Timestamp:

09/22/15 14:01:30 (9 years ago)

Author:

rlacroix

Message:

XIOS 1.0: Add the Fortran interface for the new "time_counter" file attribute.

I forgot that the change had been made in XIOS 1.0 too...

File:

• XIOS/branchs/xios-1.0/src/interface/c_attr/icfile_attr.cpp (modified) (1 diff)

XIOS/branchs/xios-1.0/src/interface/c_attr/icfile_attr.cpp

@@ -333 +333 @@
   
   
+  void cxios_set_file_time_counter(file_Ptr file_hdl, const char * time_counter, int time_counter_size)
+  {
+    std::string time_counter_str;
+    if(!cstr2string(time_counter, time_counter_size, time_counter_str)) return;
+     CTimer::get("XIOS").resume();
+    file_hdl->time_counter.fromString(time_counter_str);
+    file_hdl->sendAttributToServer(file_hdl->time_counter);
+     CTimer::get("XIOS").suspend();
+  }
+  
+  void cxios_get_file_time_counter(file_Ptr file_hdl, char * time_counter, int time_counter_size)
+  {
+     CTimer::get("XIOS").resume();
+    if(!string_copy(file_hdl->time_counter.getInheritedStringValue(),time_counter , time_counter_size))
+      ERROR("void cxios_get_file_time_counter(file_Ptr file_hdl, char * time_counter, int time_counter_size)", <<"Input string is to short");
+     CTimer::get("XIOS").suspend();
+  }
+  
+  bool cxios_is_defined_file_time_counter(file_Ptr file_hdl )
+  {
+    CTimer::get("XIOS").resume();
+    bool isDefined = file_hdl->time_counter.hasInheritedValue();
+    CTimer::get("XIOS").suspend();
+    return isDefined;
+  }
+  
+  
+  
   void cxios_set_file_type(file_Ptr file_hdl, const char * type, int type_size)
   {