fdurastante
/
psblas3
mirror of https://github.com/sfilippone/psblas3.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

psblas3:

Browse Source 
base/tools/psb_c_map.f90
 base/tools/psb_d_map.f90
 base/tools/psb_s_map.f90
 base/tools/psb_z_map.f90

Fixed clone reference.
psblas3-type-indexed
Salvatore Filippone 13 years ago
parent afecc0a1ed
commit fef85eb667
4 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File

4
base/tools/psb_c_map.f90
Unescape Escape View File

@ -419,8 +419,8 @@ function psb_c_linmap(map_kind,desc_X, desc_Y, map_X2Y, map_Y2X,iaggr,naggr) &
info = 1
end select
if (info == psb_success_) call psb_clone(map_X2Y,this%map_X2Y,info)
if (info == psb_success_) call psb_clone(map_Y2X,this%map_Y2X,info)
if (info == psb_success_) call map_X2Y%clone(this%map_X2Y,info)
if (info == psb_success_) call map_Y2X%clone(this%map_Y2X,info)
if (info == psb_success_) then
call this%set_kind(map_kind)
end if

4
base/tools/psb_d_map.f90
Unescape Escape View File

@ -419,8 +419,8 @@ function psb_d_linmap(map_kind,desc_X, desc_Y, map_X2Y, map_Y2X,iaggr,naggr) &
info = 1
end select
if (info == psb_success_) call psb_clone(map_X2Y,this%map_X2Y,info)
if (info == psb_success_) call psb_clone(map_Y2X,this%map_Y2X,info)
if (info == psb_success_) call map_X2Y%clone(this%map_X2Y,info)
if (info == psb_success_) call map_Y2X%clone(this%map_Y2X,info)
if (info == psb_success_) then
call this%set_kind(map_kind)
end if

4
base/tools/psb_s_map.f90
Unescape Escape View File

@ -419,8 +419,8 @@ function psb_s_linmap(map_kind,desc_X, desc_Y, map_X2Y, map_Y2X,iaggr,naggr) &
info = 1
end select
if (info == psb_success_) call psb_clone(map_X2Y,this%map_X2Y,info)
if (info == psb_success_) call psb_clone(map_Y2X,this%map_Y2X,info)
if (info == psb_success_) call map_X2Y%clone(this%map_X2Y,info)
if (info == psb_success_) call map_Y2X%clone(this%map_Y2X,info)
if (info == psb_success_) then
call this%set_kind(map_kind)
end if

4
base/tools/psb_z_map.f90
Unescape Escape View File

@ -419,8 +419,8 @@ function psb_z_linmap(map_kind,desc_X, desc_Y, map_X2Y, map_Y2X,iaggr,naggr) &
info = 1
end select
if (info == psb_success_) call psb_clone(map_X2Y,this%map_X2Y,info)
if (info == psb_success_) call psb_clone(map_Y2X,this%map_Y2X,info)
if (info == psb_success_) call map_X2Y%clone(this%map_X2Y,info)
if (info == psb_success_) call map_Y2X%clone(this%map_Y2X,info)
if (info == psb_success_) then
call this%set_kind(map_kind)
end if

Write Preview
Loading…
Cancel
Save