base/modules/psb_z_tools_mod.f90

 fixes for  interface problems uncovered by Cray compiler;
psblas3-type-indexed
Salvatore Filippone 14 years ago
parent 52205a2f63
commit 80690b0f28

@ -70,13 +70,13 @@ Module psb_z_tools_mod
& rowscale,colscale,outfmt,data)
use psb_descriptor_type, only : psb_desc_type, psb_dpk_
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
integer, intent(out) :: info
logical, optional, intent(in) :: rowcnv,colcnv,rowscale,colscale
character(len=5), optional :: outfmt
integer, intent(in), optional :: data
Type(psb_zspmat_type),Intent(in) :: a
Type(psb_zspmat_type),Intent(inout) :: blk
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
integer, intent(in), optional :: data
end Subroutine psb_zsphalo
end interface

Loading…
Cancel
Save