From 9ab6147de84072225a2247a31b2551d1ecece46a Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Thu, 6 Jun 2019 23:00:06 +0200 Subject: [PATCH] bugfix: wrong number of IPs --- src/discretization.f90 | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/src/discretization.f90 b/src/discretization.f90 index f55fe0fcb..a8f1c8fb7 100644 --- a/src/discretization.f90 +++ b/src/discretization.f90 @@ -3,7 +3,6 @@ !-------------------------------------------------------------------------------------------------- module discretization - use, intrinsic :: iso_c_binding use prec use results @@ -44,7 +43,7 @@ subroutine discretization_init(homogenizationAt,microstructureAt,IPcoords0,NodeC write(6,'(/,a)') ' <<<+- discretization init -+>>>' discretization_nElem = size(microstructureAt,1) - discretization_nIP = size(IPcoords0,2) + discretization_nIP = size(IPcoords0,2)/discretization_nElem discretization_homogenizationAt = homogenizationAt discretization_microstructureAt = microstructureAt