From 949bfffaabb41839c7be2718c2e1f7de152fa92a Mon Sep 17 00:00:00 2001 From: shion Shimizu Date: Sun, 9 Nov 2025 00:49:11 +0900 Subject: [PATCH] Fixing bug in Stiffness matrix - minor changes --- .../StiffnessMatrix/src/StiffnessMatrix_Method@Methods.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/submodules/StiffnessMatrix/src/StiffnessMatrix_Method@Methods.F90 b/src/submodules/StiffnessMatrix/src/StiffnessMatrix_Method@Methods.F90 index e61619ce..8e675cde 100644 --- a/src/submodules/StiffnessMatrix/src/StiffnessMatrix_Method@Methods.F90 +++ b/src/submodules/StiffnessMatrix/src/StiffnessMatrix_Method@Methods.F90 @@ -473,7 +473,7 @@ BMat1(test%nsd * test%nns, test%nsd * test%nsd), & BMat2(trial%nsd * trial%nns, trial%nsd * trial%nsd) INTEGER(I4B) :: nips, nns1, nns2, ii, jj, ips, nsd -INTEGER(I4B), ALLOCATABLE :: indx(:, :) +INTEGER(I4B) :: indx(3, 3) nns1 = SIZE(test%N, 1) nns2 = SIZE(trial%N, 1)