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

included fix in constitutive_post_results to handle case of constitutive_Nresults==0

This commit is contained in:
Franz Roters 2007-05-22 06:36:52 +00:00
parent 6f3f5ee23c
commit 0efe7756bc
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
trunk/constitutive.f90
View File

@ -1022,6 +1022,9 @@ real(pReal), dimension(constitutive_Nresults(ipc,ip,el)) :: constitutive_post_
!* Get the material-ID from the triplet(ipc,ip,el) !* Get the material-ID from the triplet(ipc,ip,el)
matID = constitutive_matID(ipc,ip,el) matID = constitutive_matID(ipc,ip,el)
if(constitutive_Nresults(ipc,ip,el)==0) return
do i=1,material_Nslip(matID) do i=1,material_Nslip(matID)
constitutive_post_results(i) = state(i) constitutive_post_results(i) = state(i)
tau_slip=dot_product(Tstar_v,constitutive_Sslip_v(:,i,material_CrystalStructure(matID))) tau_slip=dot_product(Tstar_v,constitutive_Sslip_v(:,i,material_CrystalStructure(matID)))