correct scaling for fluctuations

src/spectral_utilities.f90

@@ -150,15 +150,9 @@ contains
 !> Initializes FFTW.
 !--------------------------------------------------------------------------------------------------
 subroutine utilities_init()
-#if defined(__GFORTRAN__) || __INTEL_COMPILER >= 1800
- use, intrinsic :: iso_fortran_env, only: &
-   compiler_version, &
-   compiler_options
-#endif
  use IO, only: &
    IO_error, &
    IO_warning, &
-   IO_timeStamp, &
    IO_open_file
  use numerics, only: &
    spectral_derivative, &
@@ -203,8 +197,6 @@ subroutine utilities_init()
  write(6,'(/,a)') ' <<<+-  spectral_utilities init  -+>>>'
  write(6,'(/,a)') ' Eisenlohr et al., International Journal of Plasticity, 46:37–53, 2013'
  write(6,'(a,/)') ' https://doi.org/10.1016/j.ijplas.2012.09.012'
- write(6,'(a15,a)') ' Current time: ',IO_timeStamp()
-#include "compilation_info.f90"
 
 !--------------------------------------------------------------------------------------------------
 ! set debugging parameters
@@ -1111,7 +1103,6 @@ pure function utilities_getFreqDerivative(k_s)
                                cmplx(cos(2.0_pReal*PI*real(k_s(3),pReal)/real(grid(3),pReal)) - 1.0_pReal, &
                                      sin(2.0_pReal*PI*real(k_s(3),pReal)/real(grid(3),pReal)), pReal)/ &
                                cmplx(4.0_pReal*geomSize(3)/real(grid(3),pReal), 0.0_pReal, pReal)      
-
   end select
 
 end function utilities_getFreqDerivative
@@ -1155,6 +1146,7 @@ subroutine utilities_updateIPcoords(F)
                                        sum(conjg(-xi1st(1:3,i,j,k))*xi1st(1:3,i,j,k))
   enddo; enddo; enddo
   call fftw_mpi_execute_dft_c2r(planVectorBack,vectorField_fourier,vectorField_real)
+  vectorField_real = vectorField_real * wgt
  
  !--------------------------------------------------------------------------------------------------
  ! average F