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

corrected calculation of twin stiffness matrix

This commit is contained in:
Franz Roters 2013-01-21 08:17:43 +00:00
parent 4af855c755
commit c195f316e1
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
code/constitutive_dislotwin.f90
View File

@ -648,7 +648,7 @@ do i = 1_pInt,maxNinstance
lattice_Qtwin(o,s,index_otherFamily+j,myStructure) lattice_Qtwin(o,s,index_otherFamily+j,myStructure)
enddo ; enddo ; enddo ; enddo enddo ; enddo ; enddo ; enddo
enddo ; enddo ; enddo ; enddo enddo ; enddo ; enddo ; enddo
constitutive_dislotwin_Ctwin_66(:,:,k,i) = math_Mandel3333to66(constitutive_dislotwin_Ctwin_3333(:,:,:,:,k,i)) constitutive_dislotwin_Ctwin_66(:,:,index_myFamily+j,i) = math_Mandel3333to66(constitutive_dislotwin_Ctwin_3333(:,:,:,:,index_myFamily+j,i))
!* Interaction matrices !* Interaction matrices