typo, using value of p_slip for q

This commit is contained in:
Martin Diehl 2018-10-05 17:47:46 +02:00
parent edb94b8bc9
commit 0cddf36106
1 changed files with 1 additions and 1 deletions

View File

@ -348,7 +348,7 @@ subroutine plastic_dislotwin_init(fileUnit)
prm%p = config_phase(p)%getFloats('p_slip')
prm%p = math_expand(prm%p,prm%Nslip)
prm%q = config_phase(p)%getFloats('q_slip')
prm%q = math_expand(prm%p,prm%Nslip)
prm%q = math_expand(prm%q,prm%Nslip)
prm%CEdgeDipMinDistance = config_phase(p)%getFloat('cedgedipmindistance')
else