fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-24 14:51:49 +00:00
Code Issues Packages Projects Releases Wiki Activity

Minor fixes to silence Intel compiler warnings.

Browse Source
This commit is contained in:
sfilippone
2026-09-17 11:37:16 +02:00
parent 6e4ae2eacd
commit bf40c96646
12 changed files with 130 additions and 83 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/tools/psb_c_remap.F90
+13 -17
View File
@@ -222,8 +222,6 @@ subroutine psb_c_remap(np_remap, desc_in, a_in, ipd, isrc, nrsrc, naggr, &
nzp = nzp + nzsrc(ip)
end do
call acoo_rcv%set_nzeros(nzp)
!!$ write(0,*) rme,' Collected: ',&
!!$ & acoo_rcv%get_nrows(),acoo_rcv%get_ncols(),acoo_rcv%get_nzeros()
!
! New descriptor
@@ -237,9 +235,6 @@ subroutine psb_c_remap(np_remap, desc_in, a_in, ipd, isrc, nrsrc, naggr, &
call psb_cdasb(desc_out,info)
call psb_spasb(a_out,desc_out,info)
!!$ write(0,*) rme,' Regenerated: ',&
!!$ & desc_out%get_local_rows(), desc_out%get_local_cols(),&
!!$ & a_out%get_nrows(),a_out%get_ncols(),a_out%get_nzeros()
naggr(me+1) = desc_out%get_local_rows()
else
naggr(me+1) = 0
@@ -257,16 +252,17 @@ subroutine psb_c_remap(np_remap, desc_in, a_in, ipd, isrc, nrsrc, naggr, &
return
end subroutine psb_c_remap
subroutine psb_c_remap2(map_in, desc_new, map_out, flag, info)
use psb_base_mod, psb_protect_name => psb_c_remap2
implicit none
!....parameters...
type(psb_desc_type), intent(inout) :: desc_new
type(psb_clinmap_type), intent(inout) :: map_in
type(psb_clinmap_type), intent(out) :: map_out
integer(psb_ipk_), intent(in) :: flag
integer(psb_ipk_), intent(out) :: info
end subroutine psb_c_remap2
!!$subroutine psb_c_remap2(map_in, desc_new, map_out, flag, info)
!!$
!!$ use psb_base_mod, psb_protect_name => psb_c_remap2
!!$
!!$ implicit none
!!$ !....parameters...
!!$ type(psb_desc_type), intent(inout) :: desc_new
!!$ type(psb_clinmap_type), intent(inout) :: map_in
!!$ type(psb_clinmap_type), intent(out) :: map_out
!!$ integer(psb_ipk_), intent(in) :: flag
!!$ integer(psb_ipk_), intent(out) :: info
!!$
!!$end subroutine psb_c_remap2
base/tools/psb_d_remap.F90
+13 -17
View File
@@ -222,8 +222,6 @@ subroutine psb_d_remap(np_remap, desc_in, a_in, ipd, isrc, nrsrc, naggr, &
nzp = nzp + nzsrc(ip)
end do
call acoo_rcv%set_nzeros(nzp)
!!$ write(0,*) rme,' Collected: ',&
!!$ & acoo_rcv%get_nrows(),acoo_rcv%get_ncols(),acoo_rcv%get_nzeros()
!
! New descriptor
@@ -237,9 +235,6 @@ subroutine psb_d_remap(np_remap, desc_in, a_in, ipd, isrc, nrsrc, naggr, &
call psb_cdasb(desc_out,info)
call psb_spasb(a_out,desc_out,info)
!!$ write(0,*) rme,' Regenerated: ',&
!!$ & desc_out%get_local_rows(), desc_out%get_local_cols(),&
!!$ & a_out%get_nrows(),a_out%get_ncols(),a_out%get_nzeros()
naggr(me+1) = desc_out%get_local_rows()
else
naggr(me+1) = 0
@@ -257,16 +252,17 @@ subroutine psb_d_remap(np_remap, desc_in, a_in, ipd, isrc, nrsrc, naggr, &
return
end subroutine psb_d_remap
subroutine psb_d_remap2(map_in, desc_new, map_out, flag, info)
use psb_base_mod, psb_protect_name => psb_d_remap2
implicit none
!....parameters...
type(psb_desc_type), intent(inout) :: desc_new
type(psb_dlinmap_type), intent(inout) :: map_in
type(psb_dlinmap_type), intent(out) :: map_out
integer(psb_ipk_), intent(in) :: flag
integer(psb_ipk_), intent(out) :: info
end subroutine psb_d_remap2
!!$subroutine psb_d_remap2(map_in, desc_new, map_out, flag, info)
!!$
!!$ use psb_base_mod, psb_protect_name => psb_d_remap2
!!$
!!$ implicit none
!!$ !....parameters...
!!$ type(psb_desc_type), intent(inout) :: desc_new
!!$ type(psb_dlinmap_type), intent(inout) :: map_in
!!$ type(psb_dlinmap_type), intent(out) :: map_out
!!$ integer(psb_ipk_), intent(in) :: flag
!!$ integer(psb_ipk_), intent(out) :: info
!!$
!!$end subroutine psb_d_remap2
base/tools/psb_s_remap.F90
+13 -17
View File
@@ -222,8 +222,6 @@ subroutine psb_s_remap(np_remap, desc_in, a_in, ipd, isrc, nrsrc, naggr, &
nzp = nzp + nzsrc(ip)
end do
call acoo_rcv%set_nzeros(nzp)
!!$ write(0,*) rme,' Collected: ',&
!!$ & acoo_rcv%get_nrows(),acoo_rcv%get_ncols(),acoo_rcv%get_nzeros()
!
! New descriptor
@@ -237,9 +235,6 @@ subroutine psb_s_remap(np_remap, desc_in, a_in, ipd, isrc, nrsrc, naggr, &
call psb_cdasb(desc_out,info)
call psb_spasb(a_out,desc_out,info)
!!$ write(0,*) rme,' Regenerated: ',&
!!$ & desc_out%get_local_rows(), desc_out%get_local_cols(),&
!!$ & a_out%get_nrows(),a_out%get_ncols(),a_out%get_nzeros()
naggr(me+1) = desc_out%get_local_rows()
else
naggr(me+1) = 0
@@ -257,16 +252,17 @@ subroutine psb_s_remap(np_remap, desc_in, a_in, ipd, isrc, nrsrc, naggr, &
return
end subroutine psb_s_remap
subroutine psb_s_remap2(map_in, desc_new, map_out, flag, info)
use psb_base_mod, psb_protect_name => psb_s_remap2
implicit none
!....parameters...
type(psb_desc_type), intent(inout) :: desc_new
type(psb_slinmap_type), intent(inout) :: map_in
type(psb_slinmap_type), intent(out) :: map_out
integer(psb_ipk_), intent(in) :: flag
integer(psb_ipk_), intent(out) :: info
end subroutine psb_s_remap2
!!$subroutine psb_s_remap2(map_in, desc_new, map_out, flag, info)
!!$
!!$ use psb_base_mod, psb_protect_name => psb_s_remap2
!!$
!!$ implicit none
!!$ !....parameters...
!!$ type(psb_desc_type), intent(inout) :: desc_new
!!$ type(psb_slinmap_type), intent(inout) :: map_in
!!$ type(psb_slinmap_type), intent(out) :: map_out
!!$ integer(psb_ipk_), intent(in) :: flag
!!$ integer(psb_ipk_), intent(out) :: info
!!$
!!$end subroutine psb_s_remap2
base/tools/psb_z_remap.F90
+13 -17
View File
@@ -222,8 +222,6 @@ subroutine psb_z_remap(np_remap, desc_in, a_in, ipd, isrc, nrsrc, naggr, &
nzp = nzp + nzsrc(ip)
end do
call acoo_rcv%set_nzeros(nzp)
!!$ write(0,*) rme,' Collected: ',&
!!$ & acoo_rcv%get_nrows(),acoo_rcv%get_ncols(),acoo_rcv%get_nzeros()
!
! New descriptor
@@ -237,9 +235,6 @@ subroutine psb_z_remap(np_remap, desc_in, a_in, ipd, isrc, nrsrc, naggr, &
call psb_cdasb(desc_out,info)
call psb_spasb(a_out,desc_out,info)
!!$ write(0,*) rme,' Regenerated: ',&
!!$ & desc_out%get_local_rows(), desc_out%get_local_cols(),&
!!$ & a_out%get_nrows(),a_out%get_ncols(),a_out%get_nzeros()
naggr(me+1) = desc_out%get_local_rows()
else
naggr(me+1) = 0
@@ -257,16 +252,17 @@ subroutine psb_z_remap(np_remap, desc_in, a_in, ipd, isrc, nrsrc, naggr, &
return
end subroutine psb_z_remap
subroutine psb_z_remap2(map_in, desc_new, map_out, flag, info)
use psb_base_mod, psb_protect_name => psb_z_remap2
implicit none
!....parameters...
type(psb_desc_type), intent(inout) :: desc_new
type(psb_zlinmap_type), intent(inout) :: map_in
type(psb_zlinmap_type), intent(out) :: map_out
integer(psb_ipk_), intent(in) :: flag
integer(psb_ipk_), intent(out) :: info
end subroutine psb_z_remap2
!!$subroutine psb_z_remap2(map_in, desc_new, map_out, flag, info)
!!$
!!$ use psb_base_mod, psb_protect_name => psb_z_remap2
!!$
!!$ implicit none
!!$ !....parameters...
!!$ type(psb_desc_type), intent(inout) :: desc_new
!!$ type(psb_zlinmap_type), intent(inout) :: map_in
!!$ type(psb_zlinmap_type), intent(out) :: map_out
!!$ integer(psb_ipk_), intent(in) :: flag
!!$ integer(psb_ipk_), intent(out) :: info
!!$
!!$end subroutine psb_z_remap2