Commit 626ded9b authored by Knut's avatar Knut

adaptive coordinates: initialize arrays for fachor treatment

parent 55c91f2e
......@@ -175,8 +175,10 @@ STDERR 'adaptive_coordinates()'
if (rc /= 0) stop 'coordinates: Error allocating memory (zposo)'
allocate(work2(I3DFIELD),stat=rc) !
if (rc /= 0) stop 'coordinates: Error allocating memory (work2)'
work2 = _ZERO_
allocate(work3(I3DFIELD),stat=rc) !
if (rc /= 0) stop 'coordinates: Error allocating memory (work3)'
work3 = _ZERO_
allocate(be(0:kmax),stat=rc) ! working space
if (rc /= 0) STOP 'coordinates: Error allocating (be)'
allocate(NNloc(0:kmax),stat=rc) ! working space
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment