From 6130d8740d76ff1673c214545cf5bf40d0fcb3f6 Mon Sep 17 00:00:00 2001
From: Martin Diehl <m.diehl@mpie.de>
Date: Tue, 26 Jan 2021 22:29:55 +0100
Subject: [PATCH] [skip sc] small polishing to make ifort happy

old ifort on magit1 still has issues
---
 src/phase.f90                                            | 9 ++-------
 src/phase_mechanics.f90                                  | 1 -
 ...phase_mechanics_eigendeformation_thermalexpansion.f90 | 4 ----
 3 files changed, 2 insertions(+), 12 deletions(-)

diff --git a/src/phase.f90 b/src/phase.f90
index 849c5d8c6..8b2532b79 100644
--- a/src/phase.f90
+++ b/src/phase.f90
@@ -15,7 +15,6 @@ module phase
   use discretization
   use parallelization
   use HDF5_utilities
-  use results
   implicit none
   private
 
@@ -335,9 +334,7 @@ module phase
     results, &
     lattice, &
     discretization, &
-    parallelization, &
-    HDF5_utilities, &
-    results
+    HDF5_utilities
 #endif
 
   public :: &
@@ -576,9 +573,7 @@ subroutine crystallite_init()
   class(tNode), pointer :: &
     num_crystallite, &
     debug_crystallite, &                                                                            ! pointer to debug options for crystallite
-    phases, &
-    phase, &
-    mech
+    phases
 
 
   print'(/,a)', ' <<<+-  crystallite init  -+>>>'
diff --git a/src/phase_mechanics.f90 b/src/phase_mechanics.f90
index 3bca63886..91d455279 100644
--- a/src/phase_mechanics.f90
+++ b/src/phase_mechanics.f90
@@ -1027,7 +1027,6 @@ subroutine crystallite_results(group,ph)
   integer,          intent(in) :: ph
 
   integer :: ou
-  real(pReal), allocatable, dimension(:,:,:) :: selected_tensors
   real(pReal), allocatable, dimension(:,:)   :: selected_rotations
   character(len=:), allocatable              :: structureLabel
 
diff --git a/src/phase_mechanics_eigendeformation_thermalexpansion.f90 b/src/phase_mechanics_eigendeformation_thermalexpansion.f90
index 5380330f2..b9483977a 100644
--- a/src/phase_mechanics_eigendeformation_thermalexpansion.f90
+++ b/src/phase_mechanics_eigendeformation_thermalexpansion.f90
@@ -4,9 +4,6 @@
 !> @details to be done
 !--------------------------------------------------------------------------------------------------
 submodule(phase:thermal) thermalexpansion
-  use prec
-  use YAML_types
-  use config
 
   integer, dimension(:), allocatable :: kinematics_thermal_expansion_instance
 
@@ -19,7 +16,6 @@ submodule(phase:thermal) thermalexpansion
 
   type(tParameters), dimension(:), allocatable :: param
 
-
 contains