source: Sophya/trunk/AddOn/TAcq/traidp.cc@ 3928

Last change on this file since 3928 was 3538, checked in by ansari, 17 years ago

This commit was generated by cvs2svn to compensate for changes in r3537,
which included commits to RCS files with non-trunk default branches.
File size: 363 bytes
Line 
1int SZ = 25000;
2int N = 10;
3
4{
5 Timer tm("traid.cc");
6 TArray<int_4> ia(SZ,0,0);
7 ia = RegularSequence();
8 tm.Split("ia-OK");
9 char flnm[128];
10 for(int i=0; i<N; i++) {
11 sprintf(flnm, "traid%d.ppf",i);
12 string ss = flnm;
13 cout << i << "-----> Creating file " << flnm << endl;
14 POutPersist po(ss);
15 po << ia;
16 tm.Split("Write-Done");
17 }
18}
Note: See TracBrowser for help on using the repository browser.