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

sorting

This commit is contained in:
Martin Diehl 2018-10-18 22:20:26 +02:00
parent f71e067f5e
commit 49c7a6c524
1 changed files with 10 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/plastic_dislotwin.f90
View File

@ -402,13 +402,14 @@ subroutine plastic_dislotwin_init(fileUnit)
prm%twinsize = math_expand(prm%twinsize,prm%Ntwin)
prm%r = math_expand(prm%r,prm%Ntwin)
else
allocate(prm%twinsize(0))
allocate(prm%burgers_twin(0))
allocate(prm%r(0))
endif
!--------------------------------------------------------------------------------------------------
! transformation related parameters
prm%Ntrans = config_phase(p)%getInts('ntrans', defaultVal=emptyIntArray)
prm%totalNtrans = sum(prm%Ntrans)
if (prm%totalNtrans > 0_pInt) then
@ -478,9 +479,6 @@ subroutine plastic_dislotwin_init(fileUnit)
prm%qShearBand = config_phase(p)%getFloat('q_shearband')
endif
!if (Ndot0PerTwinFamily(f,p) < 0.0_pReal) &
! call IO_error(211_pInt,el=p,ext_msg='ndot0_twin ('//PLASTICITY_DISLOTWIN_label//')')