From 1f5a30d6f000f66abb56c14b9ae317e1b158c749 Mon Sep 17 00:00:00 2001 From: Christoph Kords Date: Thu, 6 Dec 2012 14:04:18 +0000 Subject: [PATCH] corrected typo in random multiplication term --- code/constitutive_nonlocal.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/code/constitutive_nonlocal.f90 b/code/constitutive_nonlocal.f90 index 0da5be7d8..7fb79b728 100644 --- a/code/constitutive_nonlocal.f90 +++ b/code/constitutive_nonlocal.f90 @@ -2242,7 +2242,7 @@ if (constitutive_nonlocal_probabilisticMultiplication(myInstance)) then !$OMP FLUSH(constitutive_nonlocal_sourceProbability) endif if (constitutive_nonlocal_sourceProbability(s,g,ip,el) > 1.0_pReal - nSources(s)) then - rhoDotMultiplication(s,1:4) = sum(rhoSglOriginal(1:ns,1:4),2) * abs(v(s,1:4)) / meshlength + rhoDotMultiplication(s,1:4) = sum(rhoSglOriginal(s,1:4) * abs(v(s,1:4))) / meshlength endif else constitutive_nonlocal_sourceProbability(s,g,ip,el) = 2.0_pReal