From 712b22b678026864e2da2061d1f50a93e08d8573 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Sat, 13 Jan 2024 06:57:15 +0100 Subject: [PATCH] only needed for older (broken) ifort --- src/homogenization.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/homogenization.f90 b/src/homogenization.f90 index 81ca6cb93..13e6910ab 100644 --- a/src/homogenization.f90 +++ b/src/homogenization.f90 @@ -50,9 +50,9 @@ module homogenization ! General variables for the homogenization at a material point real(pREAL), dimension(:,:,:), allocatable, public :: & homogenization_F !< def grad of IP to be reached at end of FE increment - real(pREAL), dimension(:,:,:), allocatable, public :: & !, protected :: & Issue with ifort + real(pREAL), dimension(:,:,:), allocatable, public, protected :: & homogenization_P !< first P--K stress of IP - real(pREAL), dimension(:,:,:,:,:), allocatable, public :: & !, protected :: & + real(pREAL), dimension(:,:,:,:,:), allocatable, public, protected :: & homogenization_dPdF !< tangent of first P--K stress at IP !--------------------------------------------------------------------------------------------------