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)