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_restartRead, &
crystallite_forward, &
crystallite_initializeRestorationPoints, &
constitutive_initializeRestorationPoints, &
crystallite_windForward, &
crystallite_restore
@ -1184,7 +1184,7 @@ end function crystallite_stress
!--------------------------------------------------------------------------------------------------
!> @brief Backup data for homog cutback.
!--------------------------------------------------------------------------------------------------
subroutine crystallite_initializeRestorationPoints(i,e)
subroutine constitutive_initializeRestorationPoints(i,e)
integer, intent(in) :: &
i, & !< integration point number
@ -1211,7 +1211,7 @@ subroutine crystallite_initializeRestorationPoints(i,e)
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 i = FEsolving_execIP(1),FEsolving_execIP(2);
call crystallite_initializeRestorationPoints(i,e)
call constitutive_initializeRestorationPoints(i,e)
subFrac(i,e) = 0.0_pReal
converged(i,e) = .false. ! pretend failed step ...