psblas3:

base/modules/psb_z_tools_mod.f90 fixes for interface problems uncovered by Cray compiler;
14 years ago · 80690b0f28
parent 52205a2f63
commit 80690b0f28
1 changed files with 7 additions and 7 deletions
--- a/base/modules/psb_z_tools_mod.f90
+++ b/base/modules/psb_z_tools_mod.f90
@ -72,7 +72,7 @@ Module psb_z_tools_mod
      use psb_mat_mod, only : psb_zspmat_type
      Type(psb_zspmat_type),Intent(in)       :: a
      Type(psb_zspmat_type),Intent(inout)    :: blk
-      Type(psb_desc_type),Intent(in)      :: desc_a
+      Type(psb_desc_type),Intent(in), target :: desc_a
      integer, intent(out)                   :: info
      logical, optional, intent(in)          :: rowcnv,colcnv,rowscale,colscale
      character(len=5), optional             :: outfmt