223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

determine number of grains as texture_Ngrains(mesh_element(4,cp_en)) instead of constitutive_Ngrains (which is not used anymore) in CPFEM_stressIP

This commit is contained in:
Franz Roters 2007-04-25 13:58:10 +00:00
parent 1747c0cc98
commit 033a6a03b3
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
trunk/CPFEM.f90
View File

@ -169,7 +169,7 @@
if (updateJaco) CPFEM_jaco_old(:,:,CPFEM_in,cp_en) = 0.0_pReal ! average consistent tangent if (updateJaco) CPFEM_jaco_old(:,:,CPFEM_in,cp_en) = 0.0_pReal ! average consistent tangent
! -------------- grain loop ----------------- ! -------------- grain loop -----------------
do grain = 1,constitutive_Ngrains(CPFEM_in,cp_en) do grain = 1,texture_Ngrains(mesh_element(4,cp_en))
! ------------------------------------------- ! -------------------------------------------
i = 0_pInt ! cutback counter i = 0_pInt ! cutback counter