223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

bugfix: wrong number of IPs

This commit is contained in:
Martin Diehl 2019-06-06 23:00:06 +02:00
parent cfc1dcf04b
commit 9ab6147de8
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/discretization.f90
View File

@ -3,7 +3,6 @@
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
module discretization module discretization
use, intrinsic :: iso_c_binding
use prec use prec
use results use results
@ -44,7 +43,7 @@ subroutine discretization_init(homogenizationAt,microstructureAt,IPcoords0,NodeC
write(6,'(/,a)') ' <<<+- discretization init -+>>>' write(6,'(/,a)') ' <<<+- discretization init -+>>>'
discretization_nElem = size(microstructureAt,1) discretization_nElem = size(microstructureAt,1)
discretization_nIP = size(IPcoords0,2) discretization_nIP = size(IPcoords0,2)/discretization_nElem
discretization_homogenizationAt = homogenizationAt discretization_homogenizationAt = homogenizationAt
discretization_microstructureAt = microstructureAt discretization_microstructureAt = microstructureAt