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

style adjustments 

- two empty lines after variables
- enddo, endif should have space
This commit is contained in:
Martin Diehl 2021-11-10 06:51:57 +01:00
parent 2408b74cac
commit f7dbda31e8
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/phase_mechanical_plastic.f90
View File

@ -261,6 +261,7 @@ module subroutine plastic_LpAndItsTangents(Lp, dLp_dS, dLp_dFi, &
integer :: & integer :: &
i, j i, j
if (phase_plasticity(ph) == PLASTICITY_NONE_ID) then if (phase_plasticity(ph) == PLASTICITY_NONE_ID) then
Lp = 0.0_pReal Lp = 0.0_pReal
dLp_dFi = 0.0_pReal dLp_dFi = 0.0_pReal
@ -319,6 +320,7 @@ module function plastic_dotState(subdt,co,ip,el,ph,en) result(broken)
Mp Mp
logical :: broken logical :: broken
if (phase_plasticity(ph) /= PLASTICITY_NONE_ID) then if (phase_plasticity(ph) /= PLASTICITY_NONE_ID) then
Mp = matmul(matmul(transpose(phase_mechanical_Fi(ph)%data(1:3,1:3,en)),& Mp = matmul(matmul(transpose(phase_mechanical_Fi(ph)%data(1:3,1:3,en)),&
phase_mechanical_Fi(ph)%data(1:3,1:3,en)),phase_mechanical_S(ph)%data(1:3,1:3,en)) phase_mechanical_Fi(ph)%data(1:3,1:3,en)),phase_mechanical_S(ph)%data(1:3,1:3,en))