From f0b5b9fd593d672a9ab2cb97fcdb4bd71a7408e9 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Sat, 2 Feb 2019 10:34:16 +0100 Subject: [PATCH] unused variable --- src/homogenization.f90 | 3 +-- src/material.f90 | 6 ++---- 2 files changed, 3 insertions(+), 6 deletions(-) diff --git a/src/homogenization.f90 b/src/homogenization.f90 index 20ce008fd..1c02d1088 100644 --- a/src/homogenization.f90 +++ b/src/homogenization.f90 @@ -73,8 +73,7 @@ subroutine homogenization_init use mesh, only: & mesh_maxNips, & mesh_NcpElems, & - mesh_element, & - FE_geomtype + mesh_element use constitutive, only: & constitutive_plasticity_maxSizePostResults, & constitutive_source_maxSizePostResults diff --git a/src/material.f90 b/src/material.f90 index 3ae6c16a4..dbf5433c6 100644 --- a/src/material.f90 +++ b/src/material.f90 @@ -306,8 +306,7 @@ subroutine material_init() use mesh, only: & mesh_homogenizationAt, & mesh_NipsPerElem, & - mesh_NcpElems, & - FE_geomtype + mesh_NcpElems implicit none integer(pInt), parameter :: FILEUNIT = 210_pInt @@ -989,8 +988,7 @@ subroutine material_populateGrains mesh_homogenizationAt, & mesh_microstructureAt, & mesh_NcpElems, & - mesh_ipVolume, & - FE_geomtype + mesh_ipVolume use config, only: & config_homogenization, & config_microstructure, &