Ignore:
Timestamp:
03/19/24 14:23:16 (4 months ago)
Author:
jderouillat
Message:

Add XIOS3 fortran interfaces (resources management, chunking, compression)

File:
1 edited

Legend:

Unmodified
Added
Removed

  • XIOS3/trunk/src/interface/c_attr/iccontext_attr.cpp

    r1941 r2616  
    4040 
    4141 
     42  void cxios_set_context_default_gatherer(context_Ptr context_hdl, const char * default_gatherer, int default_gatherer_size) 
     43  { 
     44    std::string default_gatherer_str; 
     45    if (!cstr2string(default_gatherer, default_gatherer_size, default_gatherer_str)) return; 
     46    CTimer::get("XIOS").resume(); 
     47    context_hdl->default_gatherer.setValue(default_gatherer_str); 
     48    CTimer::get("XIOS").suspend(); 
     49  } 
     50 
     51  void cxios_get_context_default_gatherer(context_Ptr context_hdl, char * default_gatherer, int default_gatherer_size) 
     52  { 
     53    CTimer::get("XIOS").resume(); 
     54    if (!string_copy(context_hdl->default_gatherer.getInheritedValue(), default_gatherer, default_gatherer_size)) 
     55      ERROR("void cxios_get_context_default_gatherer(context_Ptr context_hdl, char * default_gatherer, int default_gatherer_size)", << "Input string is too short"); 
     56    CTimer::get("XIOS").suspend(); 
     57  } 
     58 
     59  bool cxios_is_defined_context_default_gatherer(context_Ptr context_hdl) 
     60  { 
     61     CTimer::get("XIOS").resume(); 
     62     bool isDefined = context_hdl->default_gatherer.hasInheritedValue(); 
     63     CTimer::get("XIOS").suspend(); 
     64     return isDefined; 
     65  } 
     66 
     67 
     68  void cxios_set_context_default_pool(context_Ptr context_hdl, const char * default_pool, int default_pool_size) 
     69  { 
     70    std::string default_pool_str; 
     71    if (!cstr2string(default_pool, default_pool_size, default_pool_str)) return; 
     72    CTimer::get("XIOS").resume(); 
     73    context_hdl->default_pool.setValue(default_pool_str); 
     74    CTimer::get("XIOS").suspend(); 
     75  } 
     76 
     77  void cxios_get_context_default_pool(context_Ptr context_hdl, char * default_pool, int default_pool_size) 
     78  { 
     79    CTimer::get("XIOS").resume(); 
     80    if (!string_copy(context_hdl->default_pool.getInheritedValue(), default_pool, default_pool_size)) 
     81      ERROR("void cxios_get_context_default_pool(context_Ptr context_hdl, char * default_pool, int default_pool_size)", << "Input string is too short"); 
     82    CTimer::get("XIOS").suspend(); 
     83  } 
     84 
     85  bool cxios_is_defined_context_default_pool(context_Ptr context_hdl) 
     86  { 
     87     CTimer::get("XIOS").resume(); 
     88     bool isDefined = context_hdl->default_pool.hasInheritedValue(); 
     89     CTimer::get("XIOS").suspend(); 
     90     return isDefined; 
     91  } 
     92 
     93 
     94  void cxios_set_context_default_pool_gatherer(context_Ptr context_hdl, const char * default_pool_gatherer, int default_pool_gatherer_size) 
     95  { 
     96    std::string default_pool_gatherer_str; 
     97    if (!cstr2string(default_pool_gatherer, default_pool_gatherer_size, default_pool_gatherer_str)) return; 
     98    CTimer::get("XIOS").resume(); 
     99    context_hdl->default_pool_gatherer.setValue(default_pool_gatherer_str); 
     100    CTimer::get("XIOS").suspend(); 
     101  } 
     102 
     103  void cxios_get_context_default_pool_gatherer(context_Ptr context_hdl, char * default_pool_gatherer, int default_pool_gatherer_size) 
     104  { 
     105    CTimer::get("XIOS").resume(); 
     106    if (!string_copy(context_hdl->default_pool_gatherer.getInheritedValue(), default_pool_gatherer, default_pool_gatherer_size)) 
     107      ERROR("void cxios_get_context_default_pool_gatherer(context_Ptr context_hdl, char * default_pool_gatherer, int default_pool_gatherer_size)", << "Input string is too short"); 
     108    CTimer::get("XIOS").suspend(); 
     109  } 
     110 
     111  bool cxios_is_defined_context_default_pool_gatherer(context_Ptr context_hdl) 
     112  { 
     113     CTimer::get("XIOS").resume(); 
     114     bool isDefined = context_hdl->default_pool_gatherer.hasInheritedValue(); 
     115     CTimer::get("XIOS").suspend(); 
     116     return isDefined; 
     117  } 
     118 
     119 
     120  void cxios_set_context_default_pool_reader(context_Ptr context_hdl, const char * default_pool_reader, int default_pool_reader_size) 
     121  { 
     122    std::string default_pool_reader_str; 
     123    if (!cstr2string(default_pool_reader, default_pool_reader_size, default_pool_reader_str)) return; 
     124    CTimer::get("XIOS").resume(); 
     125    context_hdl->default_pool_reader.setValue(default_pool_reader_str); 
     126    CTimer::get("XIOS").suspend(); 
     127  } 
     128 
     129  void cxios_get_context_default_pool_reader(context_Ptr context_hdl, char * default_pool_reader, int default_pool_reader_size) 
     130  { 
     131    CTimer::get("XIOS").resume(); 
     132    if (!string_copy(context_hdl->default_pool_reader.getInheritedValue(), default_pool_reader, default_pool_reader_size)) 
     133      ERROR("void cxios_get_context_default_pool_reader(context_Ptr context_hdl, char * default_pool_reader, int default_pool_reader_size)", << "Input string is too short"); 
     134    CTimer::get("XIOS").suspend(); 
     135  } 
     136 
     137  bool cxios_is_defined_context_default_pool_reader(context_Ptr context_hdl) 
     138  { 
     139     CTimer::get("XIOS").resume(); 
     140     bool isDefined = context_hdl->default_pool_reader.hasInheritedValue(); 
     141     CTimer::get("XIOS").suspend(); 
     142     return isDefined; 
     143  } 
     144 
     145 
     146  void cxios_set_context_default_pool_writer(context_Ptr context_hdl, const char * default_pool_writer, int default_pool_writer_size) 
     147  { 
     148    std::string default_pool_writer_str; 
     149    if (!cstr2string(default_pool_writer, default_pool_writer_size, default_pool_writer_str)) return; 
     150    CTimer::get("XIOS").resume(); 
     151    context_hdl->default_pool_writer.setValue(default_pool_writer_str); 
     152    CTimer::get("XIOS").suspend(); 
     153  } 
     154 
     155  void cxios_get_context_default_pool_writer(context_Ptr context_hdl, char * default_pool_writer, int default_pool_writer_size) 
     156  { 
     157    CTimer::get("XIOS").resume(); 
     158    if (!string_copy(context_hdl->default_pool_writer.getInheritedValue(), default_pool_writer, default_pool_writer_size)) 
     159      ERROR("void cxios_get_context_default_pool_writer(context_Ptr context_hdl, char * default_pool_writer, int default_pool_writer_size)", << "Input string is too short"); 
     160    CTimer::get("XIOS").suspend(); 
     161  } 
     162 
     163  bool cxios_is_defined_context_default_pool_writer(context_Ptr context_hdl) 
     164  { 
     165     CTimer::get("XIOS").resume(); 
     166     bool isDefined = context_hdl->default_pool_writer.hasInheritedValue(); 
     167     CTimer::get("XIOS").suspend(); 
     168     return isDefined; 
     169  } 
     170 
     171 
     172  void cxios_set_context_default_reader(context_Ptr context_hdl, const char * default_reader, int default_reader_size) 
     173  { 
     174    std::string default_reader_str; 
     175    if (!cstr2string(default_reader, default_reader_size, default_reader_str)) return; 
     176    CTimer::get("XIOS").resume(); 
     177    context_hdl->default_reader.setValue(default_reader_str); 
     178    CTimer::get("XIOS").suspend(); 
     179  } 
     180 
     181  void cxios_get_context_default_reader(context_Ptr context_hdl, char * default_reader, int default_reader_size) 
     182  { 
     183    CTimer::get("XIOS").resume(); 
     184    if (!string_copy(context_hdl->default_reader.getInheritedValue(), default_reader, default_reader_size)) 
     185      ERROR("void cxios_get_context_default_reader(context_Ptr context_hdl, char * default_reader, int default_reader_size)", << "Input string is too short"); 
     186    CTimer::get("XIOS").suspend(); 
     187  } 
     188 
     189  bool cxios_is_defined_context_default_reader(context_Ptr context_hdl) 
     190  { 
     191     CTimer::get("XIOS").resume(); 
     192     bool isDefined = context_hdl->default_reader.hasInheritedValue(); 
     193     CTimer::get("XIOS").suspend(); 
     194     return isDefined; 
     195  } 
     196 
     197 
     198  void cxios_set_context_default_using_server2(context_Ptr context_hdl, bool default_using_server2) 
     199  { 
     200    CTimer::get("XIOS").resume(); 
     201    context_hdl->default_using_server2.setValue(default_using_server2); 
     202    CTimer::get("XIOS").suspend(); 
     203  } 
     204 
     205  void cxios_get_context_default_using_server2(context_Ptr context_hdl, bool* default_using_server2) 
     206  { 
     207    CTimer::get("XIOS").resume(); 
     208    *default_using_server2 = context_hdl->default_using_server2.getInheritedValue(); 
     209    CTimer::get("XIOS").suspend(); 
     210  } 
     211 
     212  bool cxios_is_defined_context_default_using_server2(context_Ptr context_hdl) 
     213  { 
     214     CTimer::get("XIOS").resume(); 
     215     bool isDefined = context_hdl->default_using_server2.hasInheritedValue(); 
     216     CTimer::get("XIOS").suspend(); 
     217     return isDefined; 
     218  } 
     219 
     220 
     221  void cxios_set_context_default_writer(context_Ptr context_hdl, const char * default_writer, int default_writer_size) 
     222  { 
     223    std::string default_writer_str; 
     224    if (!cstr2string(default_writer, default_writer_size, default_writer_str)) return; 
     225    CTimer::get("XIOS").resume(); 
     226    context_hdl->default_writer.setValue(default_writer_str); 
     227    CTimer::get("XIOS").suspend(); 
     228  } 
     229 
     230  void cxios_get_context_default_writer(context_Ptr context_hdl, char * default_writer, int default_writer_size) 
     231  { 
     232    CTimer::get("XIOS").resume(); 
     233    if (!string_copy(context_hdl->default_writer.getInheritedValue(), default_writer, default_writer_size)) 
     234      ERROR("void cxios_get_context_default_writer(context_Ptr context_hdl, char * default_writer, int default_writer_size)", << "Input string is too short"); 
     235    CTimer::get("XIOS").suspend(); 
     236  } 
     237 
     238  bool cxios_is_defined_context_default_writer(context_Ptr context_hdl) 
     239  { 
     240     CTimer::get("XIOS").resume(); 
     241     bool isDefined = context_hdl->default_writer.hasInheritedValue(); 
     242     CTimer::get("XIOS").suspend(); 
     243     return isDefined; 
     244  } 
     245 
     246 
    42247  void cxios_set_context_output_dir(context_Ptr context_hdl, const char * output_dir, int output_dir_size) 
    43248  { 
Note: See TracChangeset for help on using the changeset viewer.