Fixed: leftover POINTER argument.

psblas3-type-indexed
Salvatore Filippone 18 years ago
parent f08180911e
commit 1fe3b2f9b4

@ -3,7 +3,7 @@ subroutine psb_get_ovrlap(ovrel,desc,info)
use psb_realloc_mod use psb_realloc_mod
use psb_error_mod use psb_error_mod
implicit none implicit none
integer, pointer :: ovrel(:) integer, allocatable :: ovrel(:)
type(psb_desc_type), intent(in) :: desc type(psb_desc_type), intent(in) :: desc
integer, intent(out) :: info integer, intent(out) :: info
@ -40,7 +40,7 @@ subroutine psb_get_ovrlap(ovrel,desc,info)
else else
if (associated(ovrel)) then if (allocated(ovrel)) then
deallocate(ovrel,stat=info) deallocate(ovrel,stat=info)
if (info /= 0) then if (info /= 0) then
call psb_errpush(4010,name,a_err='Deallocate') call psb_errpush(4010,name,a_err='Deallocate')

Loading…
Cancel
Save