From ae5ea87ab1a199b39dfef205fa5d2b0a38011583 Mon Sep 17 00:00:00 2001
From: Martin Diehl <mail@martin-diehl.net>
Date: Fri, 8 Mar 2019 23:23:07 +0100
Subject: [PATCH] cleaning

---
 src/FEM_utilities.f90      | 12 ++----------
 src/mesh_grid.f90          |  1 -
 src/spectral_utilities.f90 |  3 +--
 3 files changed, 3 insertions(+), 13 deletions(-)

diff --git a/src/FEM_utilities.f90 b/src/FEM_utilities.f90
index 2087054bd..82ca4c869 100644
--- a/src/FEM_utilities.f90
+++ b/src/FEM_utilities.f90
@@ -127,14 +127,6 @@ contains
 !> @brief allocates all neccessary fields, sets debug flags
 !--------------------------------------------------------------------------------------------------
 subroutine utilities_init()
- use, intrinsic :: iso_fortran_env                                                                  ! to get compiler_version and compiler_options (at least for gfortran >4.6 at the moment)
- use DAMASK_interface, only: &
-  getSolverJobName
- use IO, only: &
-   IO_error, &
-   IO_warning, &
-   IO_timeStamp, &
-   IO_open_file
  use numerics, only: &                        
    structOrder, &
    integrationOrder, &
@@ -167,8 +159,6 @@ subroutine utilities_init()
  PetscErrorCode                     :: ierr
 
  write(6,'(/,a)')   ' <<<+-  DAMASK_FEM_utilities init  -+>>>'
- write(6,'(a15,a)') ' Current time: ',IO_timeStamp()
-#include "compilation_info.f90"
  
 !--------------------------------------------------------------------------------------------------
 ! set debugging parameters
@@ -287,6 +277,7 @@ subroutine utilities_constitutiveResponse(timeinc,P_av,forwardData)
 
 end subroutine utilities_constitutiveResponse
 
+
 !--------------------------------------------------------------------------------------------------
 !> @brief Create index sets of boundary dofs (in local and global numbering)
 !--------------------------------------------------------------------------------------------------
@@ -377,6 +368,7 @@ subroutine utilities_indexBoundaryDofs(dm_local,nFaceSets,numFields,local2global
  
 end subroutine utilities_indexBoundaryDofs
 
+
 !--------------------------------------------------------------------------------------------------
 !> @brief Project BC values to local vector
 !--------------------------------------------------------------------------------------------------
diff --git a/src/mesh_grid.f90 b/src/mesh_grid.f90
index 6235e4c1d..84acba931 100644
--- a/src/mesh_grid.f90
+++ b/src/mesh_grid.f90
@@ -175,7 +175,6 @@ subroutine mesh_init(ip,el)
 
  use DAMASK_interface
  use IO, only: &
-   IO_open_file, &
    IO_error
  use debug, only: &
    debug_e, &
diff --git a/src/spectral_utilities.f90 b/src/spectral_utilities.f90
index b9d41b406..972083d59 100644
--- a/src/spectral_utilities.f90
+++ b/src/spectral_utilities.f90
@@ -152,8 +152,7 @@ contains
 subroutine utilities_init()
  use IO, only: &
    IO_error, &
-   IO_warning, &
-   IO_open_file
+   IO_warning
  use numerics, only: &
    spectral_derivative, &
    fftw_planner_flag, &