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

Timestamp:

03/30/12 15:52:19 (12 years ago)

Author:

ymipsl

Message:

update fortran interface

YM

File:

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

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

@@ -114 +114 @@
   
   
+  void cxios_set_filegroup_par_access(filegroup_Ptr filegroup_hdl, const char * par_access, int par_access_size)
+  {
+    std::string par_access_str;
+    if(!cstr2string(par_access, par_access_size, par_access_str)) return;
+    filegroup_hdl->par_access.setValue(par_access_str);
+    filegroup_hdl->sendAttributToServer(filegroup_hdl->par_access);
+  }
+  
+  void cxios_get_filegroup_par_access(filegroup_Ptr filegroup_hdl, char * par_access, int par_access_size)
+  {
+    if(!string_copy(filegroup_hdl->par_access.getValue(),par_access , par_access_size))
+      ERROR("void cxios_get_filegroup_par_access(filegroup_Ptr filegroup_hdl, char * par_access, int par_access_size)", <<"Input string is to short");
+  }
+  
+  
   void cxios_set_filegroup_split_freq(filegroup_Ptr filegroup_hdl, const char * split_freq, int split_freq_size)
   {