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

fixed wrong? homogenizedC calculation

This commit is contained in:
Martin Diehl 2014-08-08 11:13:04 +00:00
parent ea66511160
commit 1a0e0f4fa2
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
code/constitutive_dislokmc.f90
View File

@ -1032,7 +1032,7 @@ function constitutive_dislokmc_homogenizedC(ipc,ip,el)
constitutive_dislokmc_homogenizedC = (1.0_pReal-sumf)*lattice_C66(1:6,1:6,ph)
do i=1_pInt,nt
constitutive_dislokmc_homogenizedC = &
constitutive_dislokmc_homogenizedC + plasticState(ph)%state(3_pInt*ns+i, of)*lattice_C66(1:6,1:6,ph)
constitutive_dislokmc_homogenizedC + plasticState(ph)%state(3_pInt*ns+i, of)*lattice_Ctwin66(1:6,1:6,ph)
enddo
end function constitutive_dislokmc_homogenizedC

2
code/constitutive_dislotwin.f90
View File

@ -1057,7 +1057,7 @@ function constitutive_dislotwin_homogenizedC(ipc,ip,el)
constitutive_dislotwin_homogenizedC = (1.0_pReal-sumf)*lattice_C66(1:6,1:6,ph)
do i=1_pInt,nt
constitutive_dislotwin_homogenizedC = &
constitutive_dislotwin_homogenizedC + plasticState(ph)%state(3_pInt*ns+i, of)*lattice_C66(1:6,1:6,ph)
constitutive_dislotwin_homogenizedC + plasticState(ph)%state(3_pInt*ns+i, of)*lattice_Ctwin66(1:6,1:6,ph)
enddo
end function constitutive_dislotwin_homogenizedC