*** empty log message ***

base/modules/psb_comm_mod.f90

@@ -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(:)