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

don't know what happend to the copyright note

This commit is contained in:
Martin Diehl 2018-09-05 23:41:35 +02:00
parent 0f084a9844
commit 8b3d30fdd4
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/plastic_dislotwin.f90
View File

@ -1,4 +1,8 @@
!--------------------------------------------------------------------------------------------------
!> @author Martin Diehl, Max-Planck-Institut für Eisenforschung GmbH
!> @author Su Leen Wong, Max-Planck-Institut für Eisenforschung GmbH
!> @author Nan Jia, Max-Planck-Institut für Eisenforschung GmbH
!> @author Franz Roters, Max-Planck-Institut für Eisenforschung GmbH
!> @author Philip Eisenlohr, Max-Planck-Institut für Eisenforschung GmbH
!> @brief material subroutine incoprorating dislocation and twinning physics
!> @details to be done
@ -38,7 +42,7 @@ module plastic_dislotwin
resolved_stress_shearband_ID, &
shear_rate_shearband_ID, &
stress_trans_fraction_ID, &
strain_trans_fraction_ID, &
strain_trans_fraction_ID
end enum
type,private :: tParameters
@ -131,8 +135,7 @@ module plastic_dislotwin
type, private :: tDislotwinState
real(pReal), pointer, dimension(:,:) :: &
real(pReal), pointer, dimension(:,:) :: &
rhoEdge, &
rhoEdgeDip, &
accshear_slip, &
@ -290,6 +293,7 @@ subroutine plastic_dislotwin_init(fileUnit)
allocate(plastic_dislotwin_sizePostResult(maxval(phase_Noutput),Ninstances),source=0_pInt)
allocate(plastic_dislotwin_output(maxval(phase_Noutput),Ninstances))
plastic_dislotwin_output = ''
allocate(param(Ninstances))
allocate(state(Ninstances))
allocate(dotState(Ninstances))
@ -502,9 +506,6 @@ subroutine plastic_dislotwin_init(fileUnit)
case ('strain_trans_fraction')
outputID = strain_trans_fraction_ID
outputSize = prm%totalNtrans
case ('trans_fraction','total_trans_fraction')
outputID = trans_fraction_ID
outputSize = prm%totalNtrans
end select
@ -939,6 +940,7 @@ function plastic_dislotwin_homogenizedC(ipc,ip,el)
end associate
end function plastic_dislotwin_homogenizedC
!--------------------------------------------------------------------------------------------------
!> @brief calculates derived quantities from state
!--------------------------------------------------------------------------------------------------