Method AssembleTranspose

SRC/matrix/Matrix.cpp:1673–1706

int
Matrix::AssembleTranspose(const Matrix &V, int init_row, int init_col, double fact) 
{
  int pos_Rows, pos_Cols;
  int res = 0;
  
  int VnumRows = V.numRows;
  int VnumCols = V.numCols;
  
  int final_row = init_row + VnumCols - 1;
  int final_col = init_col + VnumRows - 1;
  
  if ((init_row >= 0) && (final_row < numRows) && (init_col >= 0) && (final_col < numCols))
  {
     for (int i=0; i<VnumRows; i++) 
     {
        pos_Cols = init_col + i;
        for (int j=0; j<VnumCols; j++) 
        {
           pos_Rows = init_row + j;
      
	   (*this)(pos_Rows,pos_Cols) += V(i,j)*fact;
        }
     }
  }  
  else 
  {
     opserr << "WARNING: Matrix::AssembleTranspose(const Matrix &V, int init_row, int init_col, double fact): ";
     opserr << "position outside bounds \n";
     res = -1;
  }

  return res;
}


int