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/icfilegroup_attr.cpp

    r1626 r2616  
    239239 
    240240 
     241  void cxios_set_filegroup_gatherer(filegroup_Ptr filegroup_hdl, const char * gatherer, int gatherer_size) 
     242  { 
     243    std::string gatherer_str; 
     244    if (!cstr2string(gatherer, gatherer_size, gatherer_str)) return; 
     245    CTimer::get("XIOS").resume(); 
     246    filegroup_hdl->gatherer.setValue(gatherer_str); 
     247    CTimer::get("XIOS").suspend(); 
     248  } 
     249 
     250  void cxios_get_filegroup_gatherer(filegroup_Ptr filegroup_hdl, char * gatherer, int gatherer_size) 
     251  { 
     252    CTimer::get("XIOS").resume(); 
     253    if (!string_copy(filegroup_hdl->gatherer.getInheritedValue(), gatherer, gatherer_size)) 
     254      ERROR("void cxios_get_filegroup_gatherer(filegroup_Ptr filegroup_hdl, char * gatherer, int gatherer_size)", << "Input string is too short"); 
     255    CTimer::get("XIOS").suspend(); 
     256  } 
     257 
     258  bool cxios_is_defined_filegroup_gatherer(filegroup_Ptr filegroup_hdl) 
     259  { 
     260     CTimer::get("XIOS").resume(); 
     261     bool isDefined = filegroup_hdl->gatherer.hasInheritedValue(); 
     262     CTimer::get("XIOS").suspend(); 
     263     return isDefined; 
     264  } 
     265 
     266 
    241267  void cxios_set_filegroup_group_ref(filegroup_Ptr filegroup_hdl, const char * group_ref, int group_ref_size) 
    242268  { 
    … …  
    453479 
    454480 
     481  void cxios_set_filegroup_pool_gatherer(filegroup_Ptr filegroup_hdl, const char * pool_gatherer, int pool_gatherer_size) 
     482  { 
     483    std::string pool_gatherer_str; 
     484    if (!cstr2string(pool_gatherer, pool_gatherer_size, pool_gatherer_str)) return; 
     485    CTimer::get("XIOS").resume(); 
     486    filegroup_hdl->pool_gatherer.setValue(pool_gatherer_str); 
     487    CTimer::get("XIOS").suspend(); 
     488  } 
     489 
     490  void cxios_get_filegroup_pool_gatherer(filegroup_Ptr filegroup_hdl, char * pool_gatherer, int pool_gatherer_size) 
     491  { 
     492    CTimer::get("XIOS").resume(); 
     493    if (!string_copy(filegroup_hdl->pool_gatherer.getInheritedValue(), pool_gatherer, pool_gatherer_size)) 
     494      ERROR("void cxios_get_filegroup_pool_gatherer(filegroup_Ptr filegroup_hdl, char * pool_gatherer, int pool_gatherer_size)", << "Input string is too short"); 
     495    CTimer::get("XIOS").suspend(); 
     496  } 
     497 
     498  bool cxios_is_defined_filegroup_pool_gatherer(filegroup_Ptr filegroup_hdl) 
     499  { 
     500     CTimer::get("XIOS").resume(); 
     501     bool isDefined = filegroup_hdl->pool_gatherer.hasInheritedValue(); 
     502     CTimer::get("XIOS").suspend(); 
     503     return isDefined; 
     504  } 
     505 
     506 
     507  void cxios_set_filegroup_pool_reader(filegroup_Ptr filegroup_hdl, const char * pool_reader, int pool_reader_size) 
     508  { 
     509    std::string pool_reader_str; 
     510    if (!cstr2string(pool_reader, pool_reader_size, pool_reader_str)) return; 
     511    CTimer::get("XIOS").resume(); 
     512    filegroup_hdl->pool_reader.setValue(pool_reader_str); 
     513    CTimer::get("XIOS").suspend(); 
     514  } 
     515 
     516  void cxios_get_filegroup_pool_reader(filegroup_Ptr filegroup_hdl, char * pool_reader, int pool_reader_size) 
     517  { 
     518    CTimer::get("XIOS").resume(); 
     519    if (!string_copy(filegroup_hdl->pool_reader.getInheritedValue(), pool_reader, pool_reader_size)) 
     520      ERROR("void cxios_get_filegroup_pool_reader(filegroup_Ptr filegroup_hdl, char * pool_reader, int pool_reader_size)", << "Input string is too short"); 
     521    CTimer::get("XIOS").suspend(); 
     522  } 
     523 
     524  bool cxios_is_defined_filegroup_pool_reader(filegroup_Ptr filegroup_hdl) 
     525  { 
     526     CTimer::get("XIOS").resume(); 
     527     bool isDefined = filegroup_hdl->pool_reader.hasInheritedValue(); 
     528     CTimer::get("XIOS").suspend(); 
     529     return isDefined; 
     530  } 
     531 
     532 
     533  void cxios_set_filegroup_pool_writer(filegroup_Ptr filegroup_hdl, const char * pool_writer, int pool_writer_size) 
     534  { 
     535    std::string pool_writer_str; 
     536    if (!cstr2string(pool_writer, pool_writer_size, pool_writer_str)) return; 
     537    CTimer::get("XIOS").resume(); 
     538    filegroup_hdl->pool_writer.setValue(pool_writer_str); 
     539    CTimer::get("XIOS").suspend(); 
     540  } 
     541 
     542  void cxios_get_filegroup_pool_writer(filegroup_Ptr filegroup_hdl, char * pool_writer, int pool_writer_size) 
     543  { 
     544    CTimer::get("XIOS").resume(); 
     545    if (!string_copy(filegroup_hdl->pool_writer.getInheritedValue(), pool_writer, pool_writer_size)) 
     546      ERROR("void cxios_get_filegroup_pool_writer(filegroup_Ptr filegroup_hdl, char * pool_writer, int pool_writer_size)", << "Input string is too short"); 
     547    CTimer::get("XIOS").suspend(); 
     548  } 
     549 
     550  bool cxios_is_defined_filegroup_pool_writer(filegroup_Ptr filegroup_hdl) 
     551  { 
     552     CTimer::get("XIOS").resume(); 
     553     bool isDefined = filegroup_hdl->pool_writer.hasInheritedValue(); 
     554     CTimer::get("XIOS").suspend(); 
     555     return isDefined; 
     556  } 
     557 
     558 
    455559  void cxios_set_filegroup_read_metadata_par(filegroup_Ptr filegroup_hdl, bool read_metadata_par) 
    456560  { 
    … …  
    471575     CTimer::get("XIOS").resume(); 
    472576     bool isDefined = filegroup_hdl->read_metadata_par.hasInheritedValue(); 
     577     CTimer::get("XIOS").suspend(); 
     578     return isDefined; 
     579  } 
     580 
     581 
     582  void cxios_set_filegroup_reader(filegroup_Ptr filegroup_hdl, const char * reader, int reader_size) 
     583  { 
     584    std::string reader_str; 
     585    if (!cstr2string(reader, reader_size, reader_str)) return; 
     586    CTimer::get("XIOS").resume(); 
     587    filegroup_hdl->reader.setValue(reader_str); 
     588    CTimer::get("XIOS").suspend(); 
     589  } 
     590 
     591  void cxios_get_filegroup_reader(filegroup_Ptr filegroup_hdl, char * reader, int reader_size) 
     592  { 
     593    CTimer::get("XIOS").resume(); 
     594    if (!string_copy(filegroup_hdl->reader.getInheritedValue(), reader, reader_size)) 
     595      ERROR("void cxios_get_filegroup_reader(filegroup_Ptr filegroup_hdl, char * reader, int reader_size)", << "Input string is too short"); 
     596    CTimer::get("XIOS").suspend(); 
     597  } 
     598 
     599  bool cxios_is_defined_filegroup_reader(filegroup_Ptr filegroup_hdl) 
     600  { 
     601     CTimer::get("XIOS").resume(); 
     602     bool isDefined = filegroup_hdl->reader.hasInheritedValue(); 
    473603     CTimer::get("XIOS").suspend(); 
    474604     return isDefined; 
    … …  
    9111041 
    9121042 
     1043  void cxios_set_filegroup_using_server2(filegroup_Ptr filegroup_hdl, bool using_server2) 
     1044  { 
     1045    CTimer::get("XIOS").resume(); 
     1046    filegroup_hdl->using_server2.setValue(using_server2); 
     1047    CTimer::get("XIOS").suspend(); 
     1048  } 
     1049 
     1050  void cxios_get_filegroup_using_server2(filegroup_Ptr filegroup_hdl, bool* using_server2) 
     1051  { 
     1052    CTimer::get("XIOS").resume(); 
     1053    *using_server2 = filegroup_hdl->using_server2.getInheritedValue(); 
     1054    CTimer::get("XIOS").suspend(); 
     1055  } 
     1056 
     1057  bool cxios_is_defined_filegroup_using_server2(filegroup_Ptr filegroup_hdl) 
     1058  { 
     1059     CTimer::get("XIOS").resume(); 
     1060     bool isDefined = filegroup_hdl->using_server2.hasInheritedValue(); 
     1061     CTimer::get("XIOS").suspend(); 
     1062     return isDefined; 
     1063  } 
     1064 
     1065 
    9131066  void cxios_set_filegroup_uuid_format(filegroup_Ptr filegroup_hdl, const char * uuid_format, int uuid_format_size) 
    9141067  { 
    … …  
    9611114     return isDefined; 
    9621115  } 
     1116 
     1117 
     1118  void cxios_set_filegroup_writer(filegroup_Ptr filegroup_hdl, const char * writer, int writer_size) 
     1119  { 
     1120    std::string writer_str; 
     1121    if (!cstr2string(writer, writer_size, writer_str)) return; 
     1122    CTimer::get("XIOS").resume(); 
     1123    filegroup_hdl->writer.setValue(writer_str); 
     1124    CTimer::get("XIOS").suspend(); 
     1125  } 
     1126 
     1127  void cxios_get_filegroup_writer(filegroup_Ptr filegroup_hdl, char * writer, int writer_size) 
     1128  { 
     1129    CTimer::get("XIOS").resume(); 
     1130    if (!string_copy(filegroup_hdl->writer.getInheritedValue(), writer, writer_size)) 
     1131      ERROR("void cxios_get_filegroup_writer(filegroup_Ptr filegroup_hdl, char * writer, int writer_size)", << "Input string is too short"); 
     1132    CTimer::get("XIOS").suspend(); 
     1133  } 
     1134 
     1135  bool cxios_is_defined_filegroup_writer(filegroup_Ptr filegroup_hdl) 
     1136  { 
     1137     CTimer::get("XIOS").resume(); 
     1138     bool isDefined = filegroup_hdl->writer.hasInheritedValue(); 
     1139     CTimer::get("XIOS").suspend(); 
     1140     return isDefined; 
     1141  } 
    9631142} 
Note: See TracChangeset for help on using the changeset viewer.