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

polishing

This commit is contained in:
Martin Diehl 2018-10-03 07:13:30 +02:00
parent 67c55965e9
commit d718521890
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/plastic_phenopowerlaw.f90
View File

@ -551,7 +551,7 @@ subroutine plastic_phenopowerlaw_dotState(Mp,instance,of)
of of
integer(pInt) :: & integer(pInt) :: &
i,k i
real(pReal) :: & real(pReal) :: &
c_SlipSlip,c_TwinSlip,c_TwinTwin, & c_SlipSlip,c_TwinSlip,c_TwinTwin, &
xi_slip_sat_offset xi_slip_sat_offset
@ -643,7 +643,6 @@ subroutine kinetics_slip(prm,stt,of,Mp,gdot_slip_pos,gdot_slip_neg, &
real(pReal), dimension(prm%totalNslip) :: & real(pReal), dimension(prm%totalNslip) :: &
tau_slip_pos, & tau_slip_pos, &
tau_slip_neg tau_slip_neg
integer(pInt) :: i, j integer(pInt) :: i, j
do i = 1_pInt, prm%totalNslip do i = 1_pInt, prm%totalNslip