Changeset 00439c7 in tol

Timestamp:

May 9, 2013, 1:40:11 PM (13 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

1941-docker-image-to-test, devel, master

Children:

23f035c

Parents:

8d7ceaf

Message:

New method void BlasRDense (int nrow, int ncol, const double* ptr);

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@5798 be4846ae-f051-483a-831f-b64e7d08527f

Location:

tol/btol/vmatrix_type

Files:

• tol_bvmat.h (modified) (1 diff)
• vmat.cpp (modified) (1 diff)

tol/btol/vmatrix_type/tol_bvmat.h

@@ -279 +279 @@
   void BlasRDense  (int nrow, int ncol);
   void BlasRDense  (int nrow, int ncol, double value);
+  void BlasRDense  (int nrow, int ncol, const double* ptr);
   void ChlmRSparse (int nrow, int ncol, int nzmax);
   void ChlmRTriplet(int nrow, int ncol, int nzmax);

tol/btol/vmatrix_type/vmat.cpp

@@ -966 +966 @@
     }
   }
+  CheckDefined("BlasRDense");
+}  
+
+////////////////////////////////////////////////////////////////////////////////
+  void BVMat::BlasRDense(int nrow, int ncol, const double* ptr)
+////////////////////////////////////////////////////////////////////////////////
+{
+  BlasRDense(nrow, ncol);
+  if(!s_.blasRdense_) { return; }
+  double* x = (double*)s_.blasRdense_->x;
+  memcpy(x, ptr, nrow*ncol*sizeof(double));
   CheckDefined("BlasRDense");
 }