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

psblas3:

Browse Source 
base/modules/psb_z_tools_mod.f90

 fixes for  interface problems uncovered by Cray compiler;
This commit is contained in:
Salvatore Filippone
2011-07-22 16:03:55 +00:00
parent 52205a2f63
commit 80690b0f28
1 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/psb_z_tools_mod.f90
+7 -7
View File
@@ -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