initialize correctly

2019-06-07 06:07:00 +02:00 · 2019-06-07 06:07:00 +02:00 · d07cdf85de
parent 9aeb1a9da1
commit d07cdf85de
1 changed files with 2 additions and 1 deletions
--- a/src/mesh_FEM.f90
+++ b/src/mesh_FEM.f90
@ -250,7 +250,8 @@ subroutine mesh_init()
 theMesh%microstructureAt  = mesh_element(4,:)
 
   call discretization_init(mesh_element(3,:),mesh_element(4,:),&
-                           reshape([0.0_pReal,0.0_pReal],[1,1]),reshape([0.0_pReal,0.0_pReal],[1,1]))
+                           reshape(mesh_ipCoordinates,[3,mesh_maxNips*mesh_NcpElems]), &
+                           mesh_node0)
 
 end subroutine mesh_init