Changeset 779 for XIOS/trunk/src/interface/c_attr/icfilegroup_attr.cpp

Timestamp:

11/04/15 15:50:20 (9 years ago)

Author:

rlacroix

Message:

Update the Fortran API.

It had been forgotten in recent changes.

File:

• XIOS/trunk/src/interface/c_attr/icfilegroup_attr.cpp (modified) (1 diff)

XIOS/trunk/src/interface/c_attr/icfilegroup_attr.cpp

@@ -353 +353 @@
 
 
+  void cxios_set_filegroup_record_offset(filegroup_Ptr filegroup_hdl, int record_offset)
+  {
+    CTimer::get("XIOS").resume();
+    filegroup_hdl->record_offset.setValue(record_offset);
+    CTimer::get("XIOS").suspend();
+  }
+
+  void cxios_get_filegroup_record_offset(filegroup_Ptr filegroup_hdl, int* record_offset)
+  {
+    CTimer::get("XIOS").resume();
+    *record_offset = filegroup_hdl->record_offset.getInheritedValue();
+    CTimer::get("XIOS").suspend();
+  }
+
+  bool cxios_is_defined_filegroup_record_offset(filegroup_Ptr filegroup_hdl)
+  {
+     CTimer::get("XIOS").resume();
+     bool isDefined = filegroup_hdl->record_offset.hasInheritedValue();
+     CTimer::get("XIOS").suspend();
+     return isDefined;
+  }
+
+
   void cxios_set_filegroup_split_freq(filegroup_Ptr filegroup_hdl, cxios_duration split_freq_c)
   {