From 63142711369dae15ba94ed2761d69d39492726b2 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Tue, 15 Apr 2014 09:49:50 +0000 Subject: [PATCH] polishing, HDF5 related changes --- code/DAMASK_spectral_utilities.f90 | 2 -- code/homogenization.f90 | 4 +--- 2 files changed, 1 insertion(+), 5 deletions(-) diff --git a/code/DAMASK_spectral_utilities.f90 b/code/DAMASK_spectral_utilities.f90 index 35d490c62..1d09e491c 100644 --- a/code/DAMASK_spectral_utilities.f90 +++ b/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 diff --git a/code/homogenization.f90 b/code/homogenization.f90 index 3f2a9f705..0421db7b4 100644 --- a/code/homogenization.f90 +++ b/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 !--------------------------------------------------------------------------------------------------