|
|
@ -413,12 +413,15 @@ contains
|
|
|
|
|
|
|
|
|
|
|
|
end subroutine build_mtpart
|
|
|
|
end subroutine build_mtpart
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
!
|
|
|
|
subroutine free_part(info)
|
|
|
|
! WARNING: called IRET otherwise Intel compiler complains,
|
|
|
|
|
|
|
|
! methinks it's a compiler bug, will need to report.
|
|
|
|
|
|
|
|
!
|
|
|
|
|
|
|
|
subroutine free_part(iret)
|
|
|
|
implicit none
|
|
|
|
implicit none
|
|
|
|
integer(psb_ipk_) :: info
|
|
|
|
integer(psb_ipk_), intent(out) :: iret
|
|
|
|
|
|
|
|
|
|
|
|
deallocate(graph_vect,stat=info)
|
|
|
|
deallocate(graph_vect,stat=iret)
|
|
|
|
return
|
|
|
|
return
|
|
|
|
end subroutine free_part
|
|
|
|
end subroutine free_part
|
|
|
|
|
|
|
|
|
|
|
|