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

new name

This commit is contained in:
Martin Diehl 2020-12-22 10:23:46 +01:00
parent 0e0814dbc3
commit fa3d7b8dc7
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

@ -448,7 +448,7 @@ end function constitutive_deltaState
crystallite_restartRead, & crystallite_restartRead, &
crystallite_forward, & crystallite_forward, &
constitutive_initializeRestorationPoints, & constitutive_initializeRestorationPoints, &
crystallite_windForward, & constitutive_windForward, &
crystallite_restore crystallite_restore
contains contains
@ -1216,7 +1216,7 @@ end subroutine constitutive_initializeRestorationPoints
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
!> @brief Wind homog inc forward. !> @brief Wind homog inc forward.
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
subroutine crystallite_windForward(i,e) subroutine constitutive_windForward(i,e)
integer, intent(in) :: & integer, intent(in) :: &
i, & !< integration point number i, & !< integration point number
@ -1242,7 +1242,7 @@ subroutine crystallite_windForward(i,e)
enddo enddo
enddo enddo
end subroutine crystallite_windForward end subroutine constitutive_windForward
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------

2
src/homogenization.f90
View File

@ -231,7 +231,7 @@ subroutine materialpoint_stressAndItsTangent(dt)
steppingNeeded: if (subStep(i,e) > num%subStepMinHomog) then steppingNeeded: if (subStep(i,e) > num%subStepMinHomog) then
! wind forward grain starting point ! wind forward grain starting point
call crystallite_windForward(i,e) call constitutive_windForward(i,e)
if(homogState(material_homogenizationAt(e))%sizeState > 0) & if(homogState(material_homogenizationAt(e))%sizeState > 0) &
homogState(material_homogenizationAt(e))%subState0(:,material_homogenizationMemberAt(i,e)) = & homogState(material_homogenizationAt(e))%subState0(:,material_homogenizationMemberAt(i,e)) = &