From 143266dbd49fbd738127f9679a57f00a42a92e4c Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Mon, 18 Jan 2016 16:52:18 +0000 Subject: [PATCH] missing variables from FESolving --- code/DAMASK_abaqus_exp.f | 6 +++--- code/DAMASK_abaqus_std.f | 4 ++-- code/DAMASK_marc.f90 | 4 ++-- 3 files changed, 7 insertions(+), 7 deletions(-) diff --git a/code/DAMASK_abaqus_exp.f b/code/DAMASK_abaqus_exp.f index d6d99a470..f499bfd45 100644 --- a/code/DAMASK_abaqus_exp.f +++ b/code/DAMASK_abaqus_exp.f @@ -88,7 +88,8 @@ subroutine vumat(nBlock, nDir, nshr, nStateV, nFieldV, nProps, lAnneal, & !$ use numerics, only: & !$ DAMASK_NumThreadsInt use FEsolving, only: & - symmetricSolver + symmetricSolver, & + terminallyIll use math, only: & invnrmMandel use debug, only: & @@ -110,8 +111,7 @@ subroutine vumat(nBlock, nDir, nshr, nStateV, nFieldV, nProps, lAnneal, & cycleCounter, & theTime, & outdatedByNewInc, & - outdatedFFN1, & - terminallyIll + outdatedFFN1 use homogenization, only: & materialpoint_sizeResults, & materialpoint_results diff --git a/code/DAMASK_abaqus_std.f b/code/DAMASK_abaqus_std.f index 274d7a04e..7091c2fbb 100644 --- a/code/DAMASK_abaqus_std.f +++ b/code/DAMASK_abaqus_std.f @@ -87,6 +87,8 @@ subroutine UMAT(STRESS,STATEV,DDSDDE,SSE,SPD,SCD,& !$ DAMASK_NumThreadsInt, & usePingPong use FEsolving, only: & + calcMode, & + terminallyIll, & symmetricSolver use math, only: & invnrmMandel @@ -111,13 +113,11 @@ subroutine UMAT(STRESS,STATEV,DDSDDE,SSE,SPD,SCD,& CPFEM_BACKUPJACOBIAN, & cycleCounter, & theInc, & - calcMode, & theTime, & theDelta, & lastIncConverged, & outdatedByNewInc, & outdatedFFN1, & - terminallyIll, & lastStep use homogenization, only: & materialpoint_sizeResults, & diff --git a/code/DAMASK_marc.f90 b/code/DAMASK_marc.f90 index 4d0935ec3..4aa36e0bb 100644 --- a/code/DAMASK_marc.f90 +++ b/code/DAMASK_marc.f90 @@ -135,6 +135,8 @@ subroutine hypela2(d,g,e,de,s,t,dt,ngens,m,nn,kcus,matus,ndi,nshear,disp, & numerics_unitlength, & usePingPong use FEsolving, only: & + calcMode, & + terminallyIll, & symmetricSolver use math, only: & math_transpose33,& @@ -166,13 +168,11 @@ subroutine hypela2(d,g,e,de,s,t,dt,ngens,m,nn,kcus,matus,ndi,nshear,disp, & CPFEM_BACKUPJACOBIAN, & cycleCounter, & theInc, & - calcMode, & theTime, & theDelta, & lastIncConverged, & outdatedByNewInc, & outdatedFFN1, & - terminallyIll, & lastLovl implicit none