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

5
src/plastic_phenopowerlaw.f90
View File

@ -349,7 +349,7 @@ subroutine plastic_phenopowerlaw_init
NipcMyPhase = count(material_phase == p) ! number of IPCs containing my phase NipcMyPhase = count(material_phase == p) ! number of IPCs containing my phase
sizeState = size(['tau_slip ','gamma_slip']) * prm%TotalNslip & sizeState = size(['tau_slip ','gamma_slip']) * prm%TotalNslip &
+ size(['tau_twin ','gamma_twin']) * prm%TotalNtwin & + size(['tau_twin ','gamma_twin']) * prm%TotalNtwin &
+ size(['sum(gamma)', 'sum(f) ']) + size(['sum(gamma)','sum(f) '])
sizeDotState = sizeState sizeDotState = sizeState
plasticState(p)%sizeState = sizeState plasticState(p)%sizeState = sizeState
@ -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