fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-20 12:52:14 +00:00
Code Issues Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
Salvatore Filippone
2011-07-22 12:59:28 +00:00
parent a3036d7d1c
commit c05ed63026
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/psb_comm_mod.f90
+5 -5
View File
@@ -34,7 +34,7 @@ module psb_comm_mod
interface psb_ovrl
subroutine psb_sovrlm(x,desc_a,info,jx,ik,work,update,mode)
use psb_descriptor_type
real(psb_spk_), intent(inout) :: x(:,:)
real(psb_spk_), intent(inout), target :: x(:,:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
real(psb_spk_), intent(inout), optional, target :: work(:)
@@ -50,7 +50,7 @@ module psb_comm_mod
end subroutine psb_sovrlv
subroutine psb_dovrlm(x,desc_a,info,jx,ik,work,update,mode)
use psb_descriptor_type
real(psb_dpk_), intent(inout) :: x(:,:)
real(psb_dpk_), intent(inout), target :: x(:,:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
real(psb_dpk_), intent(inout), optional, target :: work(:)
@@ -66,7 +66,7 @@ module psb_comm_mod
end subroutine psb_dovrlv
subroutine psb_iovrlm(x,desc_a,info,jx,ik,work,update,mode)
use psb_descriptor_type
integer, intent(inout) :: x(:,:)
integer, intent(inout), target :: x(:,:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
integer, intent(inout), optional, target :: work(:)
@@ -82,7 +82,7 @@ module psb_comm_mod
end subroutine psb_iovrlv
subroutine psb_covrlm(x,desc_a,info,jx,ik,work,update,mode)
use psb_descriptor_type
complex(psb_spk_), intent(inout) :: x(:,:)
complex(psb_spk_), intent(inout), target :: x(:,:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
complex(psb_spk_), intent(inout), optional, target :: work(:)
@@ -98,7 +98,7 @@ module psb_comm_mod
end subroutine psb_covrlv
subroutine psb_zovrlm(x,desc_a,info,jx,ik,work,update,mode)
use psb_descriptor_type
complex(psb_dpk_), intent(inout) :: x(:,:)
complex(psb_dpk_), intent(inout), target :: x(:,:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
complex(psb_dpk_), intent(inout), optional, target :: work(:)