Back to home page

EIC code displayed by LXR

 
 

    


File indexing completed on 2026-04-09 07:49:23

0001 #include "stv.h"
0002 stv::POOL stv::pool = {} ; 
0003 
0004 const char* FOLD = getenv("FOLD"); 
0005 
0006 void test_serialize()
0007 {
0008     stv* a = new stv ; a->t[0][0] = 100. ; 
0009     stv* b = new stv ; b->v[0][0] = 200. ; 
0010     if(stv::pool.level > 0) std::cout << stv::pool.desc() ;  
0011 
0012     NP* arr = stv::pool.serialize<double>() ;  
0013     arr->save(FOLD, stv::NAME ); 
0014 
0015     delete a ; 
0016     delete b ; 
0017 }
0018 
0019 void test_import()
0020 {
0021     NP* arr = NP::Load(FOLD, stv::NAME) ; 
0022     stv::pool.import<double>(arr) ; 
0023     if(stv::pool.level > 0) std::cout << stv::pool.desc() ;  
0024 }
0025 
0026 int main()
0027 {
0028     //stv::pool.level = 2 ; 
0029     test_serialize(); 
0030     test_import(); 
0031     return 0 ; 
0032 }