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

[skip ci] strings will be converted to lowercase

This commit is contained in:
Martin Diehl 2018-10-05 17:54:24 +02:00
parent 0cddf36106
commit 3a39c2d68c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/plastic_dislotwin.f90
View File

@ -327,7 +327,7 @@ subroutine plastic_dislotwin_init(fileUnit)
if (size(prm%burgers_slip) /= size(prm%Nslip)) call IO_error(150_pInt,ext_msg='slipburgers') if (size(prm%burgers_slip) /= size(prm%Nslip)) call IO_error(150_pInt,ext_msg='slipburgers')
prm%burgers_slip = math_expand(prm%burgers_slip,prm%Nslip) prm%burgers_slip = math_expand(prm%burgers_slip,prm%Nslip)
prm%B = config_phase(p)%getFloats('B',defaultVal=[(0.0_pReal, i=1,size(prm%Nslip))]) prm%B = config_phase(p)%getFloats('b',defaultVal=[(0.0_pReal, i=1,size(prm%Nslip))])
prm%B = math_expand(prm%B,prm%Nslip) prm%B = math_expand(prm%B,prm%Nslip)
prm%Qedge = config_phase(p)%getFloats('qedge') prm%Qedge = config_phase(p)%getFloats('qedge')