Commit 2a2ee520 authored by Stefan's avatar Stefan
Browse files

Workaround for #628

parent d655ade1
......@@ -1663,7 +1663,7 @@ c-----------------------------------------------------------------------
endif
call bcast(npoints,isize)
if(npoints.gt.lhis*np) then
if(npoints.gt.(lhis-1)*np) then
if(nid.eq.0) write(6,*) 'ABORT: Increase lhis in SIZE!'
call exitt
endif
......
c-----------------------------------------------------------------------
c
c VERSION WITH SIMPLE BISECTION AND GROWTH OF CONN SET, COMBO (klh 07/09)
VERSION WITH SIMPLE BISECTION AND GROWTH OF CONN SET, COMBO (klh 07/09)
c
c genmap.f performs the following operations:
c
......
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