cleaning

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
 !--------------------------------------------------------------------------------------------------

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

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