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
@@ -1142,8 +1133,8 @@ subroutine utilities_updateIPcoords(F)
   real(pReal),   dimension(3) :: step, offset_coords
   real(pReal),   dimension(3,3) :: Favg
  
-!--------------------------------------------------------------------------------------------------
+ !--------------------------------------------------------------------------------------------------
-! integration in Fourier space
+ ! integration in Fourier space
   tensorField_real = 0.0_pReal
   tensorField_real(1:3,1:3,1:grid(1),1:grid(2),1:grid3) = F
   call utilities_FFTtensorForward()
@@ -1155,15 +1146,16 @@ 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
+ ! average F
   if (grid3Offset == 0_pInt) Favg = real(tensorField_fourier(1:3,1:3,1,1,1),pReal)*wgt
   call MPI_Bcast(Favg,9,MPI_DOUBLE,0,PETSC_COMM_WORLD,ierr)
   if(ierr /=0_pInt) call IO_error(894_pInt, ext_msg='update_IPcoords')
  
-!--------------------------------------------------------------------------------------------------
+ !--------------------------------------------------------------------------------------------------
-! add average to fluctuation and put (0,0,0) on (0,0,0)
+ ! add average to fluctuation and put (0,0,0) on (0,0,0)
   step = geomSize/real(grid, pReal)
   if (grid3Offset == 0_pInt) offset_coords = vectorField_real(1:3,1,1,1)
   call MPI_Bcast(offset_coords,3,MPI_DOUBLE,0,PETSC_COMM_WORLD,ierr)