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

bufgix for last commit, Franz please rather check this

This commit is contained in:
Martin Diehl 2014-08-08 12:16:51 +00:00
parent 1a0e0f4fa2
commit dafccad7f5
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
code/constitutive_dislokmc.f90
View File

@ -1031,9 +1031,9 @@ function constitutive_dislokmc_homogenizedC(ipc,ip,el)
!* Homogenized elasticity matrix
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_Ctwin66(1:6,1:6,ph)
enddo
constitutive_dislokmc_homogenizedC = constitutive_dislokmc_homogenizedC &
+ plasticState(ph)%state(3_pInt*ns+i, of)*constitutive_dislokmc_Ctwin66(1:6,1:6,i,instance)
enddo
end function constitutive_dislokmc_homogenizedC

4
code/constitutive_dislotwin.f90
View File

@ -1056,8 +1056,8 @@ function constitutive_dislotwin_homogenizedC(ipc,ip,el)
!* Homogenized elasticity matrix
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_Ctwin66(1:6,1:6,ph)
constitutive_dislotwin_homogenizedC = constitutive_dislotwin_homogenizedC &
+ plasticState(ph)%state(3_pInt*ns+i, of)*constitutive_dislotwin_Ctwin66(1:6,1:6,i,instance)
enddo
end function constitutive_dislotwin_homogenizedC