From f5f397cb70a17c09b5a3273efbd5c140ec229e80 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Fri, 31 Jan 2020 06:52:11 +0100 Subject: [PATCH] better readable --- src/thermal_adiabatic.f90 | 18 ++++++++---------- 1 file changed, 8 insertions(+), 10 deletions(-) diff --git a/src/thermal_adiabatic.f90 b/src/thermal_adiabatic.f90 index c6c18a60e..5fa6b3281 100644 --- a/src/thermal_adiabatic.f90 +++ b/src/thermal_adiabatic.f90 @@ -202,14 +202,13 @@ function thermal_adiabatic_getSpecificHeat(ip,el) thermal_adiabatic_getSpecificHeat = 0.0_pReal - do grain = 1, homogenization_Ngrains(material_homogenizationAt(el)) - thermal_adiabatic_getSpecificHeat = thermal_adiabatic_getSpecificHeat + & - lattice_specificHeat(material_phaseAt(grain,el)) + thermal_adiabatic_getSpecificHeat = thermal_adiabatic_getSpecificHeat & + + lattice_specificHeat(material_phaseAt(grain,el)) enddo - thermal_adiabatic_getSpecificHeat = & - thermal_adiabatic_getSpecificHeat/real(homogenization_Ngrains(material_homogenizationAt(el)),pReal) + thermal_adiabatic_getSpecificHeat = thermal_adiabatic_getSpecificHeat & + / real(homogenization_Ngrains(material_homogenizationAt(el)),pReal) end function thermal_adiabatic_getSpecificHeat @@ -229,14 +228,13 @@ function thermal_adiabatic_getMassDensity(ip,el) thermal_adiabatic_getMassDensity = 0.0_pReal - do grain = 1, homogenization_Ngrains(material_homogenizationAt(el)) - thermal_adiabatic_getMassDensity = thermal_adiabatic_getMassDensity + & - lattice_massDensity(material_phaseAt(grain,el)) + thermal_adiabatic_getMassDensity = thermal_adiabatic_getMassDensity & + + lattice_massDensity(material_phaseAt(grain,el)) enddo - thermal_adiabatic_getMassDensity = & - thermal_adiabatic_getMassDensity/real(homogenization_Ngrains(material_homogenizationAt(el)),pReal) + thermal_adiabatic_getMassDensity = thermal_adiabatic_getMassDensity & + / real(homogenization_Ngrains(material_homogenizationAt(el)),pReal) end function thermal_adiabatic_getMassDensity