From b4456e76b3efd61176e7c21e19240136cc45d88e Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Sat, 11 Apr 2015 09:25:15 +0000 Subject: [PATCH] introduced two small bugs --- code/mesh.f90 | 2 +- code/plastic_nonlocal.f90 | 1 + 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/code/mesh.f90 b/code/mesh.f90 index f887d5ac1..7e60ff625 100644 --- a/code/mesh.f90 +++ b/code/mesh.f90 @@ -567,7 +567,7 @@ subroutine mesh_init(ip,el) gridMPI = gridGlobal alloc_local = fftw_mpi_local_size_3d(gridMPI(3), gridMPI(2), gridMPI(1)/2 +1, & MPI_COMM_WORLD, local_K, local_K_offset) - gridLocal = [gridGlobal(1:2) int(local_K,pInt)] + gridLocal = [gridGlobal(1:2),int(local_K,pInt)] gridOffset = int(local_K_offset,pInt) geomSizeGlobal = mesh_spectral_getSize(fileUnit) diff --git a/code/plastic_nonlocal.f90 b/code/plastic_nonlocal.f90 index c1b94b70b..69d94c52e 100644 --- a/code/plastic_nonlocal.f90 +++ b/code/plastic_nonlocal.f90 @@ -287,6 +287,7 @@ use mesh, only: mesh_NcpElems, & mesh_maxNips, & mesh_maxNipNeighbors use material, only: phase_plasticity, & + homogenization_maxNgrains, & phase_plasticityInstance, & phase_Noutput, & PLASTICITY_NONLOCAL_label, &