bugfix in cublas diagmultr

2025-10-20 17:27:43 +02:00 · 2025-10-20 17:27:43 +02:00 · 72b8ce30e2
commit 72b8ce30e2
parent 521d8a192a
1 changed files with 1 additions and 1 deletions
--- a/mat.cc
+++ b/mat.cc
@ -2031,7 +2031,7 @@ void NRMat<double>::diagmultr(const NRVec<double> &rhs) {
 		for(register int i=0; i<mm; i++){ cblas_dscal(nn, rhs[i], &(*this)(0, i), mm); }
 #ifdef CUDALA
 	}else{
-		for(register int i=0; i<mm; i++){ cublasDscal(mm, rhs[i], v + i, mm); }
+		for(register int i=0; i<mm; i++){ cublasDscal(nn, rhs[i], v + i, mm); }
 	}
 #endif
 }