Ignore:
Timestamp:
03/30/12 15:52:19 (10 years ago)
Author:
ymipsl
Message:

update fortran interface

YM

File:
1 edited

Legend:

Unmodified
Added
Removed
  • XIOS/trunk/src/interface/c_attr/icfilegroup_attr.cpp

    r335 r336  
    114114   
    115115   
     116  void cxios_set_filegroup_par_access(filegroup_Ptr filegroup_hdl, const char * par_access, int par_access_size) 
     117  { 
     118    std::string par_access_str; 
     119    if(!cstr2string(par_access, par_access_size, par_access_str)) return; 
     120    filegroup_hdl->par_access.setValue(par_access_str); 
     121    filegroup_hdl->sendAttributToServer(filegroup_hdl->par_access); 
     122  } 
     123   
     124  void cxios_get_filegroup_par_access(filegroup_Ptr filegroup_hdl, char * par_access, int par_access_size) 
     125  { 
     126    if(!string_copy(filegroup_hdl->par_access.getValue(),par_access , par_access_size)) 
     127      ERROR("void cxios_get_filegroup_par_access(filegroup_Ptr filegroup_hdl, char * par_access, int par_access_size)", <<"Input string is to short"); 
     128  } 
     129   
     130   
    116131  void cxios_set_filegroup_split_freq(filegroup_Ptr filegroup_hdl, const char * split_freq, int split_freq_size) 
    117132  { 
Note: See TracChangeset for help on using the changeset viewer.