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

better matching name

This commit is contained in:
Martin Diehl 2020-12-21 23:33:32 +01:00
parent 7075940102
commit 2434712d7e
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/constitutive.f90
View File

@ -453,7 +453,7 @@ end function constitutive_deltaState
crystallite_restartWrite, & crystallite_restartWrite, &
crystallite_restartRead, & crystallite_restartRead, &
crystallite_forward, & crystallite_forward, &
crystallite_initializeRestorationPoints, & constitutive_initializeRestorationPoints, &
crystallite_windForward, & crystallite_windForward, &
crystallite_restore crystallite_restore
@ -1184,7 +1184,7 @@ end function crystallite_stress
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
!> @brief Backup data for homog cutback. !> @brief Backup data for homog cutback.
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
subroutine crystallite_initializeRestorationPoints(i,e) subroutine constitutive_initializeRestorationPoints(i,e)
integer, intent(in) :: & integer, intent(in) :: &
i, & !< integration point number i, & !< integration point number
@ -1211,7 +1211,7 @@ subroutine crystallite_initializeRestorationPoints(i,e)
enddo enddo
enddo enddo
end subroutine crystallite_initializeRestorationPoints end subroutine constitutive_initializeRestorationPoints
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------

2
src/homogenization.f90
View File

@ -196,7 +196,7 @@ subroutine materialpoint_stressAndItsTangent(dt)
do e = FEsolving_execElem(1),FEsolving_execElem(2) do e = FEsolving_execElem(1),FEsolving_execElem(2)
do i = FEsolving_execIP(1),FEsolving_execIP(2); do i = FEsolving_execIP(1),FEsolving_execIP(2);
call crystallite_initializeRestorationPoints(i,e) call constitutive_initializeRestorationPoints(i,e)
subFrac(i,e) = 0.0_pReal subFrac(i,e) = 0.0_pReal
converged(i,e) = .false. ! pretend failed step ... converged(i,e) = .false. ! pretend failed step ...