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

Dummy commit w/ new comments

This commit is contained in:
achalhp 2023-11-09 08:01:06 +05:30
parent 2935d9687e
commit 1aa66b98ac
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/phase_mechanical_plastic_phenopowerlaw.f90
View File

@ -425,7 +425,7 @@ module subroutine plastic_kinematic_deltaFp(twinJump,deltaFp,ipc, ip, el)
implicit none implicit none
integer :: & integer :: &
ph, en, instance, & !< 'of' is 'en' ph, en, instance, & !< 'en' is size of FFT grid 8*8*8 or 16*16*16.
neighbor_el, & !< element number of neighboring material point neighbor_el, & !< element number of neighboring material point
neighbor_ip, & !< integration point of neighboring material point neighbor_ip, & !< integration point of neighboring material point
np, & !< neighbor phase np, & !< neighbor phase
@ -440,7 +440,7 @@ module subroutine plastic_kinematic_deltaFp(twinJump,deltaFp,ipc, ip, el)
integer, intent(in) :: & integer, intent(in) :: &
ipc, & !< element index ipc, & !< element index
ip, & !< integration point index ip, & !< integration point index
el !< grain index el !< grain index @ for identifying grain boundary
! ! real(pReal), dimension(3,3,param(instance)%totalNslip) :: & ! ! real(pReal), dimension(3,3,param(instance)%totalNslip) :: &
! ! CorrespondanceMatrix ! ! CorrespondanceMatrix
integer, dimension(52) :: & integer, dimension(52) :: &