Merged changes from trunk for multilevel.

18 years ago · 28c6aaf358
parent 6dab2c3ab0
commit 28c6aaf358
2 changed files with 2 additions and 2 deletions
--- a/src/serial/psb_dspgtblk.f90
+++ b/src/serial/psb_dspgtblk.f90
@ -381,7 +381,7 @@ contains
  subroutine jad_dspgtblk(irw,a,b,append,iren,lrw)
-    type(psb_dspmat_type), intent(in)     :: a
+    type(psb_dspmat_type), intent(in), target :: a
    integer                               :: irw
    type(psb_dspmat_type), intent(inout)  :: b
    logical, intent(in)                   :: append
--- a/src/serial/psb_zspgtblk.f90
+++ b/src/serial/psb_zspgtblk.f90
@ -382,7 +382,7 @@ contains
  subroutine jad_zspgtblk(irw,a,b,append,iren,lrw)
-    type(psb_zspmat_type), intent(in)     :: a
+    type(psb_zspmat_type), intent(in),target  :: a
    integer                               :: irw
    type(psb_zspmat_type), intent(inout)  :: b
    logical, intent(in)                   :: append