From 1fe3b2f9b473227c7ff32cfdc10a8f825f66af61 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Thu, 9 Nov 2006 13:42:05 +0000 Subject: [PATCH] Fixed: leftover POINTER argument. --- src/tools/psb_get_overlap.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/tools/psb_get_overlap.f90 b/src/tools/psb_get_overlap.f90 index ab71482b..ca4d1427 100644 --- a/src/tools/psb_get_overlap.f90 +++ b/src/tools/psb_get_overlap.f90 @@ -3,7 +3,7 @@ subroutine psb_get_ovrlap(ovrel,desc,info) use psb_realloc_mod use psb_error_mod implicit none - integer, pointer :: ovrel(:) + integer, allocatable :: ovrel(:) type(psb_desc_type), intent(in) :: desc integer, intent(out) :: info @@ -40,7 +40,7 @@ subroutine psb_get_ovrlap(ovrel,desc,info) else - if (associated(ovrel)) then + if (allocated(ovrel)) then deallocate(ovrel,stat=info) if (info /= 0) then call psb_errpush(4010,name,a_err='Deallocate')