source: Sophya/trunk/AddOn/TAcq/traidf.cc@ 3845

Last change on this file since 3845 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: 365 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.fits",i);
12 string ss = flnm;
13 cout << i << "-----> Creating file " << flnm << endl;
14 FitsOutFile fo(ss);
15 fo << ia;
16 tm.Split("Write-Done");
17 }
18}
Note: See TracBrowser for help on using the repository browser.