bufgix for last commit, Franz please rather check this
This commit is contained in:
parent
1a0e0f4fa2
commit
dafccad7f5
|
@ -1031,8 +1031,8 @@ function constitutive_dislokmc_homogenizedC(ipc,ip,el)
|
||||||
!* Homogenized elasticity matrix
|
!* Homogenized elasticity matrix
|
||||||
constitutive_dislokmc_homogenizedC = (1.0_pReal-sumf)*lattice_C66(1:6,1:6,ph)
|
constitutive_dislokmc_homogenizedC = (1.0_pReal-sumf)*lattice_C66(1:6,1:6,ph)
|
||||||
do i=1_pInt,nt
|
do i=1_pInt,nt
|
||||||
constitutive_dislokmc_homogenizedC = &
|
constitutive_dislokmc_homogenizedC = constitutive_dislokmc_homogenizedC &
|
||||||
constitutive_dislokmc_homogenizedC + plasticState(ph)%state(3_pInt*ns+i, of)*lattice_Ctwin66(1:6,1:6,ph)
|
+ plasticState(ph)%state(3_pInt*ns+i, of)*constitutive_dislokmc_Ctwin66(1:6,1:6,i,instance)
|
||||||
enddo
|
enddo
|
||||||
|
|
||||||
end function constitutive_dislokmc_homogenizedC
|
end function constitutive_dislokmc_homogenizedC
|
||||||
|
|
|
@ -1056,8 +1056,8 @@ function constitutive_dislotwin_homogenizedC(ipc,ip,el)
|
||||||
!* Homogenized elasticity matrix
|
!* Homogenized elasticity matrix
|
||||||
constitutive_dislotwin_homogenizedC = (1.0_pReal-sumf)*lattice_C66(1:6,1:6,ph)
|
constitutive_dislotwin_homogenizedC = (1.0_pReal-sumf)*lattice_C66(1:6,1:6,ph)
|
||||||
do i=1_pInt,nt
|
do i=1_pInt,nt
|
||||||
constitutive_dislotwin_homogenizedC = &
|
constitutive_dislotwin_homogenizedC = constitutive_dislotwin_homogenizedC &
|
||||||
constitutive_dislotwin_homogenizedC + plasticState(ph)%state(3_pInt*ns+i, of)*lattice_Ctwin66(1:6,1:6,ph)
|
+ plasticState(ph)%state(3_pInt*ns+i, of)*constitutive_dislotwin_Ctwin66(1:6,1:6,i,instance)
|
||||||
enddo
|
enddo
|
||||||
|
|
||||||
end function constitutive_dislotwin_homogenizedC
|
end function constitutive_dislotwin_homogenizedC
|
||||||
|
|
Loading…
Reference in New Issue