From aace5d25a8f52dd61212f86c7ae3ca103673a673 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Wed, 21 Jul 2021 23:19:41 +0200 Subject: [PATCH] initialization needed --- src/phase_mechanical_elastic.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/phase_mechanical_elastic.f90 b/src/phase_mechanical_elastic.f90 index 154ad4640..6703c0717 100644 --- a/src/phase_mechanical_elastic.f90 +++ b/src/phase_mechanical_elastic.f90 @@ -2,7 +2,7 @@ submodule(phase:mechanical) elastic type :: tParameters real(pReal), dimension(6,6) :: & - C66 !< Elastic constants in Voigt notation + C66 = 0.0_pReal !< Elastic constants in Voigt notation real(pReal) :: & mu, & nu