less compiler complaints

src/crystallite.f90

@@ -1125,9 +1125,6 @@ subroutine crystallite_results
   use config, only: &
     config_name_phase => phase_name                                                                  ! anticipate logical name
    
-  use material, only: &
-    material_phase_plasticity_type => phase_plasticity
-        
   integer :: p,o
   real(pReal),    allocatable, dimension(:,:,:) :: selected_tensors
   type(rotation), allocatable, dimension(:)     :: selected_rotations
@@ -2588,8 +2585,6 @@ logical function stateJump(ipc,ip,el)
    sourceState, &
    phase_Nsources, &
    phaseAt, phasememberAt
- use mesh, only: &
-   mesh_element
  use constitutive, only: &
    constitutive_collectDeltaState
 

src/damage_local.f90

@@ -61,7 +61,7 @@ subroutine damage_local_init
    config_homogenization
  
 
- integer :: maxNinstance,homog,instance,o,i
+ integer :: maxNinstance,homog,instance,i
  integer :: sizeState
  integer :: NofMyHomog, h
   integer(kind(undefined_ID)) :: &

src/kinematics_cleavage_opening.f90

@@ -71,7 +71,7 @@ subroutine kinematics_cleavage_opening_init()
  integer, allocatable, dimension(:) :: tempInt
  real(pReal), allocatable, dimension(:) :: tempFloat
 
- integer :: maxNinstance,p,instance,kinematics
+ integer :: maxNinstance,p,instance
 
  write(6,'(/,a)')   ' <<<+-  kinematics_'//KINEMATICS_cleavage_opening_LABEL//' init  -+>>>'
 

src/kinematics_slipplane_opening.f90

@@ -57,7 +57,7 @@ subroutine kinematics_slipplane_opening_init()
  use lattice
 
 
- integer :: maxNinstance,p,instance,kinematics
+ integer :: maxNinstance,p,instance
 
  write(6,'(/,a)')   ' <<<+-  kinematics_'//KINEMATICS_slipplane_opening_LABEL//' init  -+>>>'
 

src/thermal_adiabatic.f90

@@ -163,7 +163,6 @@ subroutine thermal_adiabatic_getSourceAndItsTangent(Tdot, dTdot_dT, T, ip, el)
   use material, only: &
     homogenization_Ngrains, &
     material_homogenizationAt, &
-    mappingHomogenization, &
     phaseAt, &
     phasememberAt, &
     thermal_typeInstance, &