223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

missing variables from FESolving

This commit is contained in:
Martin Diehl 2016-01-18 16:52:18 +00:00
parent 072fa58027
commit 143266dbd4
3 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
code/DAMASK_abaqus_exp.f
View File

@ -88,7 +88,8 @@ subroutine vumat(nBlock, nDir, nshr, nStateV, nFieldV, nProps, lAnneal, &
!$ use numerics, only: & !$ use numerics, only: &
!$ DAMASK_NumThreadsInt !$ DAMASK_NumThreadsInt
use FEsolving, only: & use FEsolving, only: &
symmetricSolver symmetricSolver, &
terminallyIll
use math, only: & use math, only: &
invnrmMandel invnrmMandel
use debug, only: & use debug, only: &
@ -110,8 +111,7 @@ subroutine vumat(nBlock, nDir, nshr, nStateV, nFieldV, nProps, lAnneal, &
cycleCounter, & cycleCounter, &
theTime, & theTime, &
outdatedByNewInc, & outdatedByNewInc, &
outdatedFFN1, & outdatedFFN1
terminallyIll
use homogenization, only: & use homogenization, only: &
materialpoint_sizeResults, & materialpoint_sizeResults, &
materialpoint_results materialpoint_results

4
code/DAMASK_abaqus_std.f
View File

@ -87,6 +87,8 @@ subroutine UMAT(STRESS,STATEV,DDSDDE,SSE,SPD,SCD,&
!$ DAMASK_NumThreadsInt, & !$ DAMASK_NumThreadsInt, &
usePingPong usePingPong
use FEsolving, only: & use FEsolving, only: &
calcMode, &
terminallyIll, &
symmetricSolver symmetricSolver
use math, only: & use math, only: &
invnrmMandel invnrmMandel
@ -111,13 +113,11 @@ subroutine UMAT(STRESS,STATEV,DDSDDE,SSE,SPD,SCD,&
CPFEM_BACKUPJACOBIAN, & CPFEM_BACKUPJACOBIAN, &
cycleCounter, & cycleCounter, &
theInc, & theInc, &
calcMode, &
theTime, & theTime, &
theDelta, & theDelta, &
lastIncConverged, & lastIncConverged, &
outdatedByNewInc, & outdatedByNewInc, &
outdatedFFN1, & outdatedFFN1, &
terminallyIll, &
lastStep lastStep
use homogenization, only: & use homogenization, only: &
materialpoint_sizeResults, & materialpoint_sizeResults, &

4
code/DAMASK_marc.f90
View File

@ -135,6 +135,8 @@ subroutine hypela2(d,g,e,de,s,t,dt,ngens,m,nn,kcus,matus,ndi,nshear,disp, &
numerics_unitlength, & numerics_unitlength, &
usePingPong usePingPong
use FEsolving, only: & use FEsolving, only: &
calcMode, &
terminallyIll, &
symmetricSolver symmetricSolver
use math, only: & use math, only: &
math_transpose33,& 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, & CPFEM_BACKUPJACOBIAN, &
cycleCounter, & cycleCounter, &
theInc, & theInc, &
calcMode, &
theTime, & theTime, &
theDelta, & theDelta, &
lastIncConverged, & lastIncConverged, &
outdatedByNewInc, & outdatedByNewInc, &
outdatedFFN1, & outdatedFFN1, &
terminallyIll, &
lastLovl lastLovl
implicit none implicit none