Additional simplification

stan-dev · Oct 9, 2023 · a054665 · a054665
1 parent e769630
commit a054665
Showing 1 changed file with 2 additions and 9 deletions.
diff --git a/stan/math/prim/fun/grad_pFq.hpp b/stan/math/prim/fun/grad_pFq.hpp
@@ -111,8 +111,8 @@ auto grad_pFq(const TpFq& pfq_val, const Ta& a, const Tb& b, const Tz& z,
   std::tuple<promote_scalar_t<T_Rtn, plain_type_t<Ta>>,
              promote_scalar_t<T_Rtn, plain_type_t<Tb>>, T_Rtn>
       ret_tuple;
-  std::get<0>(ret_tuple).setConstant(a.size(), 0.0);
-  std::get<1>(ret_tuple).setConstant(b.size(), 0.0);
+  std::get<0>(ret_tuple).setConstant(a.size(), -pfq_val);
+  std::get<1>(ret_tuple).setConstant(b.size(), pfq_val);
   std::get<2>(ret_tuple) = 0.0;
 
   if (CalcA || CalcB) {
@@ -152,13 +152,6 @@ auto grad_pFq(const TpFq& pfq_val, const Ta& a, const Tb& b, const Tz& z,
       b_k += 1.0;
       k += 1;
     }
-
-    if (CalcA) {
-      std::get<0>(ret_tuple).array() -= pfq_val;
-    }
-    if (CalcB) {
-      std::get<1>(ret_tuple).array() += pfq_val;
-    }
   }
   if (CalcZ) {
     T_Rtn pfq_p1_val