polishing, HDF5 related changes

code/DAMASK_spectral_utilities.f90

@@ -492,8 +492,6 @@ subroutine utilities_inverseLaplace()
  write(6,'(/,a)') ' ... doing inverse laplace .................................................'
  flush(6)
  
-!--------------------------------------------------------------------------------------------------
-! do the actual spectral method calculation (mechanical equilibrium)
  do k = 1_pInt, grid(3)
   k_s(3) = k - 1_pInt
   if(k > grid(3)/2_pInt + 1_pInt) k_s(3) = k_s(3) - grid(3)                                        ! running from 0,1,...,N/2,N/2+1,-N/2,-N/2+1,...,-1

code/homogenization.f90

@@ -78,8 +78,7 @@ subroutine homogenization_init()
  use hdf5, only: &
    HID_T
  use IO, only : &
-   HDF5_mappingHomogenization, &
-   HDF5_closeJobFile
+   HDF5_mappingHomogenization
 #endif
  use, intrinsic :: iso_fortran_env                                                                  ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment)
  use math, only: &
@@ -221,7 +220,6 @@ subroutine homogenization_init()
  enddo elementLooping
 #ifdef HDF
  call  HDF5_mappingHomogenization(mapping)
- call  HDF5_closeJobFile()
 #endif
 
 !--------------------------------------------------------------------------------------------------