Changeset 608 for XIOS/branchs/xios-1.0/src/interface/c_attr/icfilegroup_attr.cpp

Timestamp:

06/05/15 15:42:02 (9 years ago)

Author:

rlacroix

Message:

Add the Fortran interface for the "compression_level" attribute.

It had been forgotten in r606.

File:

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

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

@@ -17 +17 @@
   typedef xios::CFileGroup*  filegroup_Ptr;
   
+  void cxios_set_filegroup_compression_level(filegroup_Ptr filegroup_hdl, int compression_level)
+  {
+     CTimer::get("XIOS").resume();
+    filegroup_hdl->compression_level.setValue(compression_level);
+    filegroup_hdl->sendAttributToServer(filegroup_hdl->compression_level);
+     CTimer::get("XIOS").suspend();
+  }
+  
+  void cxios_get_filegroup_compression_level(filegroup_Ptr filegroup_hdl, int* compression_level)
+  {
+    *compression_level = filegroup_hdl->compression_level.getInheritedValue();
+  }
+  
+  bool cxios_is_defined_filegroup_compression_level(filegroup_Ptr filegroup_hdl )
+  {
+    CTimer::get("XIOS").resume();
+    bool isDefined = filegroup_hdl->compression_level.hasInheritedValue();
+    CTimer::get("XIOS").suspend();
+    return isDefined;
+  }
+  
+  
+  
   void cxios_set_filegroup_description(filegroup_Ptr filegroup_hdl, const char * description, int description_size)
   {