corrected error in deMandeling of jacoby matrix

2007-05-22 06:34:58 +00:00 · 2007-05-22 06:34:58 +00:00 · 6f3f5ee23c
parent 09c47f15e3
commit 6f3f5ee23c
1 changed files with 1 additions and 1 deletions
--- a/trunk/mpie_cpfem_marc.f90
+++ b/trunk/mpie_cpfem_marc.f90
@ -178,7 +178,7 @@
 cp_en = mesh_FEasCP('elem', n(1))
 s(1:ngens)=invnrmMandel(1:ngens)*CPFEM_stress_all(1:ngens, nn, cp_en)
 d(1:ngens,1:ngens)=CPFEM_jaco_old(1:ngens,1:ngens, nn, cp_en)
- forall(i=1:ngens) d(1:ngens,i)=d(1:ngens,1)*invnrmMandel(1:ngens)
+ forall(i=1:ngens) d(1:ngens,i)=d(1:ngens,i)*invnrmMandel(1:ngens)
 return
 
 END SUBROUTINE