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

psblas:

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 print when IV present.
This commit is contained in:
Salvatore Filippone
2016-07-14 21:07:46 +00:00
parent fa8a9f37c3
commit 684ea50e7f
12 changed files with 12 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/serial/impl/psb_c_coo_impl.f90
+1
View File
@@ -451,6 +451,7 @@ 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(iv)) nmx = max(nmx,maxval(abs(iv)))
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
base/serial/impl/psb_c_csc_impl.f90
+1
View File
@@ -2782,6 +2782,7 @@ 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(iv)) nmx = max(nmx,maxval(abs(iv)))
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
base/serial/impl/psb_c_csr_impl.f90
+1
View File
@@ -2609,6 +2609,7 @@ 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(iv)) nmx = max(nmx,maxval(abs(iv)))
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
base/serial/impl/psb_d_coo_impl.f90
+1
View File
@@ -451,6 +451,7 @@ 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(iv)) nmx = max(nmx,maxval(abs(iv)))
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
base/serial/impl/psb_d_csc_impl.f90
+1
View File
@@ -2782,6 +2782,7 @@ 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(iv)) nmx = max(nmx,maxval(abs(iv)))
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
base/serial/impl/psb_d_csr_impl.f90
+1
View File
@@ -2609,6 +2609,7 @@ 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(iv)) nmx = max(nmx,maxval(abs(iv)))
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
base/serial/impl/psb_s_coo_impl.f90
+1
View File
@@ -451,6 +451,7 @@ 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(iv)) nmx = max(nmx,maxval(abs(iv)))
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
base/serial/impl/psb_s_csc_impl.f90
+1
View File
@@ -2782,6 +2782,7 @@ 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(iv)) nmx = max(nmx,maxval(abs(iv)))
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
base/serial/impl/psb_s_csr_impl.f90
+1
View File
@@ -2609,6 +2609,7 @@ 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(iv)) nmx = max(nmx,maxval(abs(iv)))
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
base/serial/impl/psb_z_coo_impl.f90
+1
View File
@@ -451,6 +451,7 @@ 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(iv)) nmx = max(nmx,maxval(abs(iv)))
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
base/serial/impl/psb_z_csc_impl.f90
+1
View File
@@ -2782,6 +2782,7 @@ 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(iv)) nmx = max(nmx,maxval(abs(iv)))
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
base/serial/impl/psb_z_csr_impl.f90
+1
View File
@@ -2609,6 +2609,7 @@ 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(iv)) nmx = max(nmx,maxval(abs(iv)))
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