Fix cblas error for models without solver states in combination with …

…forward sensitivities
AMICI-dev · May 23, 2023 · c3c8296 · c3c8296
1 parent 4d767e7
commit c3c8296
Showing 1 changed file with 10 additions and 8 deletions.
diff --git a/src/model.cpp b/src/model.cpp
@@ -1069,15 +1069,17 @@ void Model::getObservableSensitivity(
     // dydx A[ny,nx_solver] * sx B[nx_solver,nplist] = sy C[ny,nplist]
     //        M  K                 K  N                     M  N
     //        lda                  ldb                      ldc
-    setNaNtoZero(derived_state_.dydx_);
-    setNaNtoZero(derived_state_.sx_);
-    amici_dgemm(
-        BLASLayout::colMajor, BLASTranspose::noTrans, BLASTranspose::noTrans,
-        ny, nplist(), nx_solver, 1.0, derived_state_.dydx_.data(), ny,
-        derived_state_.sx_.data(), nx_solver, 1.0, derived_state_.dydp_.data(),
-        ny
-    );
 
+    if (nx_solver) {
+        setNaNtoZero(derived_state_.dydx_);
+        setNaNtoZero(derived_state_.sx_);
+        amici_dgemm(
+            BLASLayout::colMajor, BLASTranspose::noTrans,
+            BLASTranspose::noTrans, ny, nplist(), nx_solver, 1.0,
+            derived_state_.dydx_.data(), ny, derived_state_.sx_.data(),
+            nx_solver, 1.0, derived_state_.dydp_.data(), ny
+        );
+    }
     writeSlice(derived_state_.dydp_, sy);
 
     if (always_check_finite_)