From 5ab0923782b64a5e0e0600ed9ccc82f689d8dbf5 Mon Sep 17 00:00:00 2001
From: Wiarda <wiardada@ornl.gov>
Date: Tue, 2 Jun 2020 16:58:50 -0400
Subject: [PATCH] Chase an overstepped bound
---
sammy/src/new/SetUExternalRMatrix_M.f90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/sammy/src/new/SetUExternalRMatrix_M.f90 b/sammy/src/new/SetUExternalRMatrix_M.f90
index 0100824e0..aa9fadb50 100644
--- a/sammy/src/new/SetUExternalRMatrix_M.f90
+++ b/sammy/src/new/SetUExternalRMatrix_M.f90
@@ -22,7 +22,7 @@ subroutine SetUExternalRMatrix_setParameterNumber(this, resData, covData, iflext
class(CovarianceData)::covData
logical(C_BOOL)::initial
integer::nrext, ntotc, nnrext
- integer::Iflext(Nnrext,Ntotc,nrext)
+ integer::Iflext(Nnrext,Ntotc,*)
integer::isp, ich, k
--
GitLab