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;
 }