Commit 7715c80a authored by Knut's avatar Knut

Merge remote-tracking branch 'origin/master' into output

parents 59a699bb 626ded9b
......@@ -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