LongRealSvd::LongRealSvd(const RMatrix& A) : attr_U(A.numberOfRows(), MIN(A.numberOfRows(), A.numberOfColumns())), attr_V(A.numberOfColumns(), MIN(A.numberOfRows(), A.numberOfColumns())), attr_sigma(MIN(A.numberOfColumns(), A.numberOfRows())) { (*this) ; svd(A); }
RMatrix::RMatrix(const RMatrix &A) :ARMatrix(A.numberOfRows(), A.numberOfColumns()) { _pelm = (LongRealPointer) new LongReal [attr_numberOfRows*attr_numberOfColumns]; (*this) = A; }