From 019159d328c053c4ad2d7c4fedfc65e3bcdcd383 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Sun, 23 May 2021 21:02:35 +0200 Subject: [PATCH] WIP --- src/DAMASK_interface.f90 | 2 +- src/phase_mechanical_eigen_thermalexpansion.f90 | 3 ++- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/src/DAMASK_interface.f90 b/src/DAMASK_interface.f90 index 43398d0ad..e5fbe20ac 100644 --- a/src/DAMASK_interface.f90 +++ b/src/DAMASK_interface.f90 @@ -11,7 +11,7 @@ !-------------------------------------------------------------------------------------------------- #define PETSC_MAJOR 3 #define PETSC_MINOR_MIN 12 -#define PETSC_MINOR_MAX 14 +#define PETSC_MINOR_MAX 15 module DAMASK_interface use, intrinsic :: ISO_fortran_env diff --git a/src/phase_mechanical_eigen_thermalexpansion.f90 b/src/phase_mechanical_eigen_thermalexpansion.f90 index 94d15cfb1..30e2d0f57 100644 --- a/src/phase_mechanical_eigen_thermalexpansion.f90 +++ b/src/phase_mechanical_eigen_thermalexpansion.f90 @@ -72,7 +72,7 @@ module function thermalexpansion_init(kinematics_length) result(myKinematics) prm%A(1:3,1:3,i) = lattice_applyLatticeSymmetry33(prm%A(1:3,1:3,i),& phase%get_asString('lattice')) enddo - + print*, prm%A end associate endif enddo @@ -95,6 +95,7 @@ module subroutine thermalexpansion_LiAndItsTangent(Li, dLi_dTstar, ph,me) real(pReal) :: T, dot_T + T = thermal_T(ph,me) dot_T = thermal_dot_T(ph,me)