Changeset 1112 in Sophya for trunk/SophyaProg/Tests/tsttminv.cc
- Timestamp:
- Jul 28, 2000, 6:34:00 PM (25 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SophyaProg/Tests/tsttminv.cc
r1008 r1112 138 138 Vind = 0; 139 139 if(nalea>0) for(i=0;i<nalea;i++) drand01(); 140 A = Sequence(RandomSequence(RandomSequence::Flat,0.,1.));140 A = RandomSequence(RandomSequence::Flat,0.,1.); 141 141 if(nbig>0) for(i=0;i<nbig;i++) { 142 142 k=(uint_8)(drand01()*N*N); if(k>=N*N) k--; … … 147 147 #if defined(COMPLEX) 148 148 Vind = 0; 149 B = Sequence(RandomSequence(RandomSequence::Flat,0.,1.));149 B = RandomSequence(RandomSequence::Flat,0.,1.); 150 150 if(nbig>0) for(i=0;i<nbig;i++) { 151 151 k=(uint_8)(drand01()*N*N); if(k>=N*N) k--;
Note:
See TracChangeset
for help on using the changeset viewer.