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

Step for working remap. Needs to rethink map_clone

Browse Source
This commit is contained in:
sfilippone
2026-07-13 13:38:20 +02:00
parent 4315a2b395
commit 1542f06d2a
8 changed files with 145 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/tools/psb_c_map.f90
+24 -4
View File
@@ -56,9 +56,19 @@ subroutine psb_c_map_U2V_a(alpha,x,beta,y,map,info,work)
character(len=20), parameter :: name='psb_map_U2V'
info = psb_success_
if (.not.map%is_asb()) then
write(psb_err_unit,*) trim(name),' Invalid map input: unassembled'
info = 1
if (.not.map%is_asb()) then
block
integer(psb_ipk_) :: meu,npu,mev,npv
type(psb_ctxt_type) :: ct
ct = map%p_desc_u%get_context()
call psb_info(ct,meu,npu)
ct = map%p_desc_v%get_context()
call psb_info(ct,mev,npv)
write(psb_err_unit,*) trim(name),' Invalid map input: unassembled',&
& ':',meu,npu,mev,npv
info = 1
end block
return
end if
@@ -132,7 +142,17 @@ subroutine psb_c_map_U2V_v(alpha,x,beta,y,map,info,work,vtx,vty)
info = psb_success_
if (.not.map%is_asb()) then
write(psb_err_unit,*) trim(name),' Invalid map input: unassembled'
block
integer(psb_ipk_) :: meu,npu,mev,npv
type(psb_ctxt_type) :: ct
ct = map%p_desc_u%get_context()
call psb_info(ct,meu,npu)
ct = map%p_desc_v%get_context()
call psb_info(ct,mev,npv)
write(psb_err_unit,*) trim(name),' Invalid map input: unassembled',&
& ':',meu,npu,mev,npv
end block
info = 1
return
end if
base/tools/psb_c_remap.F90
+1 -1
View File
@@ -120,7 +120,7 @@ subroutine psb_c_remap(np_remap, desc_in, a_in, ipd, isrc, nrsrc, naggr, &
goto 9999
endif
if (rnp >= np) then
write(0,*) ' No remapping on larger proc count now'
write(0,*) ' No remapping on larger proc count now',rnp,np
info = psb_err_internal_error_
call psb_errpush(info,name)
goto 9999
base/tools/psb_d_map.f90
+24 -4
View File
@@ -56,9 +56,19 @@ subroutine psb_d_map_U2V_a(alpha,x,beta,y,map,info,work)
character(len=20), parameter :: name='psb_map_U2V'
info = psb_success_
if (.not.map%is_asb()) then
write(psb_err_unit,*) trim(name),' Invalid map input: unassembled'
info = 1
if (.not.map%is_asb()) then
block
integer(psb_ipk_) :: meu,npu,mev,npv
type(psb_ctxt_type) :: ct
ct = map%p_desc_u%get_context()
call psb_info(ct,meu,npu)
ct = map%p_desc_v%get_context()
call psb_info(ct,mev,npv)
write(psb_err_unit,*) trim(name),' Invalid map input: unassembled',&
& ':',meu,npu,mev,npv
info = 1
end block
return
end if
@@ -132,7 +142,17 @@ subroutine psb_d_map_U2V_v(alpha,x,beta,y,map,info,work,vtx,vty)
info = psb_success_
if (.not.map%is_asb()) then
write(psb_err_unit,*) trim(name),' Invalid map input: unassembled'
block
integer(psb_ipk_) :: meu,npu,mev,npv
type(psb_ctxt_type) :: ct
ct = map%p_desc_u%get_context()
call psb_info(ct,meu,npu)
ct = map%p_desc_v%get_context()
call psb_info(ct,mev,npv)
write(psb_err_unit,*) trim(name),' Invalid map input: unassembled',&
& ':',meu,npu,mev,npv
end block
info = 1
return
end if
base/tools/psb_s_map.f90
+24 -4
View File
@@ -56,9 +56,19 @@ subroutine psb_s_map_U2V_a(alpha,x,beta,y,map,info,work)
character(len=20), parameter :: name='psb_map_U2V'
info = psb_success_
if (.not.map%is_asb()) then
write(psb_err_unit,*) trim(name),' Invalid map input: unassembled'
info = 1
if (.not.map%is_asb()) then
block
integer(psb_ipk_) :: meu,npu,mev,npv
type(psb_ctxt_type) :: ct
ct = map%p_desc_u%get_context()
call psb_info(ct,meu,npu)
ct = map%p_desc_v%get_context()
call psb_info(ct,mev,npv)
write(psb_err_unit,*) trim(name),' Invalid map input: unassembled',&
& ':',meu,npu,mev,npv
info = 1
end block
return
end if
@@ -132,7 +142,17 @@ subroutine psb_s_map_U2V_v(alpha,x,beta,y,map,info,work,vtx,vty)
info = psb_success_
if (.not.map%is_asb()) then
write(psb_err_unit,*) trim(name),' Invalid map input: unassembled'
block
integer(psb_ipk_) :: meu,npu,mev,npv
type(psb_ctxt_type) :: ct
ct = map%p_desc_u%get_context()
call psb_info(ct,meu,npu)
ct = map%p_desc_v%get_context()
call psb_info(ct,mev,npv)
write(psb_err_unit,*) trim(name),' Invalid map input: unassembled',&
& ':',meu,npu,mev,npv
end block
info = 1
return
end if
base/tools/psb_s_remap.F90
+1 -1
View File
@@ -120,7 +120,7 @@ subroutine psb_s_remap(np_remap, desc_in, a_in, ipd, isrc, nrsrc, naggr, &
goto 9999
endif
if (rnp >= np) then
write(0,*) ' No remapping on larger proc count now'
write(0,*) ' No remapping on larger proc count now',rnp,np
info = psb_err_internal_error_
call psb_errpush(info,name)
goto 9999
base/tools/psb_z_map.f90
+24 -4
View File
@@ -56,9 +56,19 @@ subroutine psb_z_map_U2V_a(alpha,x,beta,y,map,info,work)
character(len=20), parameter :: name='psb_map_U2V'
info = psb_success_
if (.not.map%is_asb()) then
write(psb_err_unit,*) trim(name),' Invalid map input: unassembled'
info = 1
if (.not.map%is_asb()) then
block
integer(psb_ipk_) :: meu,npu,mev,npv
type(psb_ctxt_type) :: ct
ct = map%p_desc_u%get_context()
call psb_info(ct,meu,npu)
ct = map%p_desc_v%get_context()
call psb_info(ct,mev,npv)
write(psb_err_unit,*) trim(name),' Invalid map input: unassembled',&
& ':',meu,npu,mev,npv
info = 1
end block
return
end if
@@ -132,7 +142,17 @@ subroutine psb_z_map_U2V_v(alpha,x,beta,y,map,info,work,vtx,vty)
info = psb_success_
if (.not.map%is_asb()) then
write(psb_err_unit,*) trim(name),' Invalid map input: unassembled'
block
integer(psb_ipk_) :: meu,npu,mev,npv
type(psb_ctxt_type) :: ct
ct = map%p_desc_u%get_context()
call psb_info(ct,meu,npu)
ct = map%p_desc_v%get_context()
call psb_info(ct,mev,npv)
write(psb_err_unit,*) trim(name),' Invalid map input: unassembled',&
& ':',meu,npu,mev,npv
end block
info = 1
return
end if
base/tools/psb_z_remap.F90
+1 -1
View File
@@ -120,7 +120,7 @@ subroutine psb_z_remap(np_remap, desc_in, a_in, ipd, isrc, nrsrc, naggr, &
goto 9999
endif
if (rnp >= np) then
write(0,*) ' No remapping on larger proc count now'
write(0,*) ' No remapping on larger proc count now',rnp,np
info = psb_err_internal_error_
call psb_errpush(info,name)
goto 9999