missing variables from FESolving

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

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, &

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