mirror of
https://github.com/sfilippone/psblas3.git
synced 2026-10-16 19:02:09 +00:00
Fixed stupid bug on state of descriptor.
This commit is contained in:
@@ -14,7 +14,7 @@ subroutine psb_get_ovrlap(ovrel,desc,info)
|
||||
name='psb_get_overlap'
|
||||
call psb_erractionsave(err_act)
|
||||
|
||||
if (psb_is_ovl_bld(desc)) then
|
||||
if (psb_is_ovl_asb(desc)) then
|
||||
i=0
|
||||
j=1
|
||||
do while(desc%ovrlap_elem(j) /= -1)
|
||||
|
||||
Reference in New Issue
Block a user