fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-16 02:49:03 +00:00
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.
This commit is contained in:
Salvatore Filippone
2011-12-07 10:50:44 +00:00
parent afecc0a1ed
commit fef85eb667
4 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/tools/psb_c_map.f90
+2 -2
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
base/tools/psb_d_map.f90
+2 -2
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
base/tools/psb_s_map.f90
+2 -2
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
base/tools/psb_z_map.f90
+2 -2
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