unused variable

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

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