#include "machdefs.h" #include #include #include "nbrandom.h" #include "tarrinit.h" #include "tarray.h" #include "tvector.h" #include "timing.h" #include "intflapack.h" int main(int narg, char* arg[]) { SophyaInit(); InitTim(); // Initializing the CPU timer int n = 5; int i,j,k; if (narg > 1) n = atoi(arg[1]); cout << "rztest_lapack - Size=" << n << endl; try { TArray a(n,n); for(i=0; i x(1,n), b(1,n); r_4 sum ; for(i=0; i Testing TArray <---- " << endl; TArray ia(6,4); TArray ib(2,3); Sequence seq(10., 2.); ia = seq; ib = 5; cout << " ----- matrix IA = \n " << ia << endl; cout << " ----- matrix IB = \n " << ib << endl; uint_4 pos[5]; uint_4 sz[5]; pos[0] = 3; pos[1] = 1; sz[0] = 3; sz[1] = 2; TArray ic = ia.SubArray(2, sz, pos); cout << " ----- matrix IC IA(3,2,3,1) = \n " << ic << endl; ic = 0; cout << " ----- matrix IA = \n " << ia << endl; } catch (PThrowable exc) { cerr << " catched Exception " << exc.Msg() << endl; } catch (...) { cerr << " catched unknown (...) exception " << endl; } cout << " --------------- END of Programme -------------- " << endl; }