Fixed stupid bug on state of descriptor.

This commit is contained in:
Salvatore Filippone
2006-12-13 16:47:04 +00:00
parent 1b87443bfa
commit 3bcd2fc736
+1 -1
View File
@@ -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)