From 939e38e498e8a5c7c76658cc58ae3f5b6c5ebc1a Mon Sep 17 00:00:00 2001
From: jchristopherson <jchristopherson@hotmail.com>
Date: Wed, 2 Oct 2024 15:27:16 -0500
Subject: [PATCH] Update

---
 src/fstats_experimental_design.f90 | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/fstats_experimental_design.f90 b/src/fstats_experimental_design.f90
index ad07d58..1f92aad 100644
--- a/src/fstats_experimental_design.f90
+++ b/src/fstats_experimental_design.f90
@@ -212,6 +212,8 @@ pure function doe_evaluate_model(nway, beta, x, map) result(rst)
         !! in the model (true).  If not supplied, all parameters will be assumed
         !! to be part of the model as if the array were filled with all true
         !! values.
+    real(real64), allocatable, dimension(:) :: rst
+        !! The resulting M-element array.
 
     ! Local Variables