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

cleaning output

This commit is contained in:
Martin Diehl 2018-09-05 23:39:54 +02:00
parent 918de24f83
commit 0f084a9844
1 changed files with 0 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/plastic_dislotwin.f90
View File

@ -37,11 +37,8 @@ module plastic_dislotwin
threshold_stress_twin_ID, & threshold_stress_twin_ID, &
resolved_stress_shearband_ID, & resolved_stress_shearband_ID, &
shear_rate_shearband_ID, & shear_rate_shearband_ID, &
sb_eigenvalues_ID, &
sb_eigenvectors_ID, &
stress_trans_fraction_ID, & stress_trans_fraction_ID, &
strain_trans_fraction_ID, & strain_trans_fraction_ID, &
trans_fraction_ID
end enum end enum
type,private :: tParameters type,private :: tParameters
@ -1690,10 +1687,6 @@ function plastic_dislotwin_postResults(Tstar_v,Temperature,ipc,ip,el) result(pos
case (strain_trans_fraction_ID) case (strain_trans_fraction_ID)
postResults(c+1_pInt:c+prm%totalNtrans) = stt%strainTransFraction(1_pInt:prm%totalNtrans,of) postResults(c+1_pInt:c+prm%totalNtrans) = stt%strainTransFraction(1_pInt:prm%totalNtrans,of)
c = c + prm%totalNtrans c = c + prm%totalNtrans
case (trans_fraction_ID) !ToDo: deprecated
postResults(c+1_pInt:c+prm%totalNtrans) = stt%stressTransFraction(1_pInt:prm%totalNtrans,of) &
+ stt%strainTransFraction(1_pInt:prm%totalNtrans,of)
c = c + prm%totalNtrans
end select end select
enddo enddo
end associate end associate