mirror of
https://github.com/sfilippone/psblas3.git
synced 2026-10-16 10:52:08 +00:00
Workaround strange Intel behaviour
This commit is contained in:
@@ -413,12 +413,15 @@ contains
|
||||
|
||||
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
|
||||
integer(psb_ipk_) :: info
|
||||
|
||||
deallocate(graph_vect,stat=info)
|
||||
integer(psb_ipk_), intent(out) :: iret
|
||||
|
||||
deallocate(graph_vect,stat=iret)
|
||||
return
|
||||
end subroutine free_part
|
||||
|
||||
|
||||
Reference in New Issue
Block a user