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

psblas3:

Browse Source 
base/serial/impl/psb_c_coo_impl.f90
 base/serial/impl/psb_c_csc_impl.f90
 base/serial/impl/psb_c_csr_impl.f90
 base/serial/impl/psb_d_coo_impl.f90
 base/serial/impl/psb_d_csc_impl.f90
 base/serial/impl/psb_d_csr_impl.f90
 base/serial/impl/psb_s_coo_impl.f90
 base/serial/impl/psb_s_csc_impl.f90
 base/serial/impl/psb_s_csr_impl.f90
 base/serial/impl/psb_z_coo_impl.f90
 base/serial/impl/psb_z_csc_impl.f90
 base/serial/impl/psb_z_csr_impl.f90

Fix printing when renumbering is involved.
This commit is contained in:
Salvatore Filippone
2016-07-14 17:09:52 +00:00
parent 3ca60328a2
commit fa8a9f37c3
12 changed files with 24 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/serial/impl/psb_c_coo_impl.f90
+2
View File
@@ -451,6 +451,8 @@ subroutine psb_c_coo_print(iout,a,iv,head,ivr,ivc)
nc = a%get_ncols()
nz = a%get_nzeros()
nmx = max(nr,nc,1)
if (present(ivr)) nmx = max(nmx,maxval(abs(ivr)))
if (present(ivc)) nmx = max(nmx,maxval(abs(ivc)))
ni = floor(log10(1.0*nmx)) + 1
if (datatype=='real') then
base/serial/impl/psb_c_csc_impl.f90
+2
View File
@@ -2782,6 +2782,8 @@ subroutine psb_c_csc_print(iout,a,iv,head,ivr,ivc)
nc = a%get_ncols()
nz = a%get_nzeros()
nmx = max(nr,nc,1)
if (present(ivr)) nmx = max(nmx,maxval(abs(ivr)))
if (present(ivc)) nmx = max(nmx,maxval(abs(ivc)))
ni = floor(log10(1.0*nmx)) + 1
if (datatype=='real') then
base/serial/impl/psb_c_csr_impl.f90
+2
View File
@@ -2609,6 +2609,8 @@ subroutine psb_c_csr_print(iout,a,iv,head,ivr,ivc)
nc = a%get_ncols()
nz = a%get_nzeros()
nmx = max(nr,nc,1)
if (present(ivr)) nmx = max(nmx,maxval(abs(ivr)))
if (present(ivc)) nmx = max(nmx,maxval(abs(ivc)))
ni = floor(log10(1.0*nmx)) + 1
if (datatype=='real') then
base/serial/impl/psb_d_coo_impl.f90
+2
View File
@@ -451,6 +451,8 @@ subroutine psb_d_coo_print(iout,a,iv,head,ivr,ivc)
nc = a%get_ncols()
nz = a%get_nzeros()
nmx = max(nr,nc,1)
if (present(ivr)) nmx = max(nmx,maxval(abs(ivr)))
if (present(ivc)) nmx = max(nmx,maxval(abs(ivc)))
ni = floor(log10(1.0*nmx)) + 1
if (datatype=='real') then
base/serial/impl/psb_d_csc_impl.f90
+2
View File
@@ -2782,6 +2782,8 @@ subroutine psb_d_csc_print(iout,a,iv,head,ivr,ivc)
nc = a%get_ncols()
nz = a%get_nzeros()
nmx = max(nr,nc,1)
if (present(ivr)) nmx = max(nmx,maxval(abs(ivr)))
if (present(ivc)) nmx = max(nmx,maxval(abs(ivc)))
ni = floor(log10(1.0*nmx)) + 1
if (datatype=='real') then
base/serial/impl/psb_d_csr_impl.f90
+2
View File
@@ -2609,6 +2609,8 @@ subroutine psb_d_csr_print(iout,a,iv,head,ivr,ivc)
nc = a%get_ncols()
nz = a%get_nzeros()
nmx = max(nr,nc,1)
if (present(ivr)) nmx = max(nmx,maxval(abs(ivr)))
if (present(ivc)) nmx = max(nmx,maxval(abs(ivc)))
ni = floor(log10(1.0*nmx)) + 1
if (datatype=='real') then
base/serial/impl/psb_s_coo_impl.f90
+2
View File
@@ -451,6 +451,8 @@ subroutine psb_s_coo_print(iout,a,iv,head,ivr,ivc)
nc = a%get_ncols()
nz = a%get_nzeros()
nmx = max(nr,nc,1)
if (present(ivr)) nmx = max(nmx,maxval(abs(ivr)))
if (present(ivc)) nmx = max(nmx,maxval(abs(ivc)))
ni = floor(log10(1.0*nmx)) + 1
if (datatype=='real') then
base/serial/impl/psb_s_csc_impl.f90
+2
View File
@@ -2782,6 +2782,8 @@ subroutine psb_s_csc_print(iout,a,iv,head,ivr,ivc)
nc = a%get_ncols()
nz = a%get_nzeros()
nmx = max(nr,nc,1)
if (present(ivr)) nmx = max(nmx,maxval(abs(ivr)))
if (present(ivc)) nmx = max(nmx,maxval(abs(ivc)))
ni = floor(log10(1.0*nmx)) + 1
if (datatype=='real') then
base/serial/impl/psb_s_csr_impl.f90
+2
View File
@@ -2609,6 +2609,8 @@ subroutine psb_s_csr_print(iout,a,iv,head,ivr,ivc)
nc = a%get_ncols()
nz = a%get_nzeros()
nmx = max(nr,nc,1)
if (present(ivr)) nmx = max(nmx,maxval(abs(ivr)))
if (present(ivc)) nmx = max(nmx,maxval(abs(ivc)))
ni = floor(log10(1.0*nmx)) + 1
if (datatype=='real') then
base/serial/impl/psb_z_coo_impl.f90
+2
View File
@@ -451,6 +451,8 @@ subroutine psb_z_coo_print(iout,a,iv,head,ivr,ivc)
nc = a%get_ncols()
nz = a%get_nzeros()
nmx = max(nr,nc,1)
if (present(ivr)) nmx = max(nmx,maxval(abs(ivr)))
if (present(ivc)) nmx = max(nmx,maxval(abs(ivc)))
ni = floor(log10(1.0*nmx)) + 1
if (datatype=='real') then
base/serial/impl/psb_z_csc_impl.f90
+2
View File
@@ -2782,6 +2782,8 @@ subroutine psb_z_csc_print(iout,a,iv,head,ivr,ivc)
nc = a%get_ncols()
nz = a%get_nzeros()
nmx = max(nr,nc,1)
if (present(ivr)) nmx = max(nmx,maxval(abs(ivr)))
if (present(ivc)) nmx = max(nmx,maxval(abs(ivc)))
ni = floor(log10(1.0*nmx)) + 1
if (datatype=='real') then
base/serial/impl/psb_z_csr_impl.f90
+2
View File
@@ -2609,6 +2609,8 @@ subroutine psb_z_csr_print(iout,a,iv,head,ivr,ivc)
nc = a%get_ncols()
nz = a%get_nzeros()
nmx = max(nr,nc,1)
if (present(ivr)) nmx = max(nmx,maxval(abs(ivr)))
if (present(ivc)) nmx = max(nmx,maxval(abs(ivc)))
ni = floor(log10(1.0*nmx)) + 1
if (datatype=='real') then