From 1be4426dc5d10907c86aa3c1c6fe2bf415173cda Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Sat, 19 Jan 2019 09:54:37 +0100 Subject: [PATCH] not needed --- src/crystallite.f90 | 15 --------------- 1 file changed, 15 deletions(-) diff --git a/src/crystallite.f90 b/src/crystallite.f90 index 3c2ce0560..3c04813b7 100644 --- a/src/crystallite.f90 +++ b/src/crystallite.f90 @@ -1570,9 +1570,6 @@ subroutine integrateStateFPI() use numerics, only: & nState, & rTol_crystalliteState - use FEsolving, only: & - FEsolving_execElem, & - FEsolving_execIP use mesh, only: & mesh_element, & mesh_NcpElems @@ -2031,9 +2028,6 @@ subroutine integrateStateEuler() debug_levelExtensive, & debug_levelSelective #endif - use FEsolving, only: & - FEsolving_execElem, & - FEsolving_execIP use mesh, only: & mesh_element, & mesh_NcpElems @@ -2241,9 +2235,6 @@ subroutine integrateStateAdaptiveEuler() #endif use numerics, only: & rTol_crystalliteState - use FEsolving, only: & - FEsolving_execElem, & - FEsolving_execIP use mesh, only: & mesh_element, & mesh_NcpElems, & @@ -2565,9 +2556,6 @@ subroutine integrateStateRK4() debug_levelExtensive, & debug_levelSelective #endif - use FEsolving, only: & - FEsolving_execElem, & - FEsolving_execIP use mesh, only: & mesh_element, & mesh_NcpElems @@ -2857,9 +2845,6 @@ subroutine integrateStateRKCK45() #endif use numerics, only: & rTol_crystalliteState - use FEsolving, only: & - FEsolving_execElem, & - FEsolving_execIP use mesh, only: & mesh_element, & mesh_NcpElems, &