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

cleaning

This commit is contained in:
Martin Diehl 2021-11-18 14:43:05 +01:00
parent eee455c0d3
commit 29771feaae
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/phase_mechanical_elastic.f90
View File

@ -106,7 +106,7 @@ module function elastic_C66(ph,en) result(C66)
associate(prm => param(ph)) associate(prm => param(ph))
C66 = get_C66(ph,en) C66 = get_C66(ph,en)
C66 = math_sym3333to66(math_Voigt66to3333(C66)) ! Literature data is in Voigt notation C66 = math_sym3333to66(math_Voigt66to3333(C66)) ! Literature data is in Voigt notation
end associate end associate
@ -126,7 +126,7 @@ module function elastic_mu(ph,en) result(mu)
mu mu
mu = lattice_equivalent_mu(get_C66(ph,en),'voigt') mu = lattice_equivalent_mu(get_C66(ph,en),'voigt')
end function elastic_mu end function elastic_mu
@ -142,7 +142,7 @@ module function elastic_nu(ph,en) result(nu)
nu nu
nu = lattice_equivalent_nu(get_C66(ph,en),'voigt') nu = lattice_equivalent_nu(get_C66(ph,en),'voigt')
end function elastic_nu end function elastic_nu