psblas:

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.

base/serial/impl/psb_c_coo_impl.f90

@@ -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

@@ -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

@@ -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

@@ -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

@@ -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

@@ -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

@@ -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

@@ -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

@@ -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

@@ -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

@@ -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

@@ -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