psblas3:

base/serial/impl/psb_c_csc_impl.f90
 base/serial/impl/psb_d_csc_impl.f90
 base/serial/impl/psb_s_csc_impl.f90
 base/serial/impl/psb_z_csc_impl.f90
 opt/psb_d_rsb_mat_mod.F90
 prec/psb_d_diagprec.f90
 test/pargen/runs/ppde.inp

Fixed silly bug in csc_print.

base/serial/impl/psb_c_csc_impl.f90

@@ -2924,32 +2924,32 @@ subroutine psb_c_csc_print(iout,a,iv,eirs,eics,head,ivr,ivc)
   write(frmtv,'(a,i3.3,a,i3.3,a)') '(2(i',ni,',1x),2(es26.18,1x),2(i',ni,',1x))'
   write(iout,*) nr, nc, nz 
   if(present(iv)) then 
-    do i=1, nr
+    do i=1, nc
       do j=a%icp(i),a%icp(i+1)-1 
         write(iout,frmtv) iv(a%ia(j)),iv(i),a%val(j)
       end do
     enddo
   else      
     if (present(ivr).and..not.present(ivc)) then 
-      do i=1, nr
+      do i=1, nc
         do j=a%icp(i),a%icp(i+1)-1 
           write(iout,frmtv) ivr(a%ia(j)),i,a%val(j)
         end do
       enddo
     else if (present(ivr).and.present(ivc)) then 
-      do i=1, nr
+      do i=1, nc
         do j=a%icp(i),a%icp(i+1)-1 
           write(iout,frmtv) ivr(a%ia(j)),ivc(i),a%val(j)
         end do
       enddo
     else if (.not.present(ivr).and.present(ivc)) then 
-      do i=1, nr
+      do i=1, nc
         do j=a%icp(i),a%icp(i+1)-1 
           write(iout,frmtv) (a%ia(j)),ivc(i),a%val(j)
         end do
       enddo
     else if (.not.present(ivr).and..not.present(ivc)) then 
-      do i=1, nr
+      do i=1, nc
         do j=a%icp(i),a%icp(i+1)-1 
           write(iout,frmtv) (a%ia(j)),(i),a%val(j)
         end do

base/serial/impl/psb_d_csc_impl.f90

@@ -2797,32 +2797,32 @@ subroutine psb_d_csc_print(iout,a,iv,eirs,eics,head,ivr,ivc)
   write(frmtv,'(a,i3.3,a,i3.3,a)') '(2(i',ni,',1x),es26.18,1x,2(i',ni,',1x))'
   write(iout,*) nr, nc, nz 
   if(present(iv)) then 
-    do i=1, nr
+    do i=1, nc
       do j=a%icp(i),a%icp(i+1)-1 
         write(iout,frmtv) iv(a%ia(j)),iv(i),a%val(j)
       end do
     enddo
   else      
     if (present(ivr).and..not.present(ivc)) then 
-      do i=1, nr
+      do i=1, nc
         do j=a%icp(i),a%icp(i+1)-1 
           write(iout,frmtv) ivr(a%ia(j)),i,a%val(j)
         end do
       enddo
     else if (present(ivr).and.present(ivc)) then 
-      do i=1, nr
+      do i=1, nc
         do j=a%icp(i),a%icp(i+1)-1 
           write(iout,frmtv) ivr(a%ia(j)),ivc(i),a%val(j)
         end do
       enddo
     else if (.not.present(ivr).and.present(ivc)) then 
-      do i=1, nr
+      do i=1, nc
         do j=a%icp(i),a%icp(i+1)-1 
           write(iout,frmtv) (a%ia(j)),ivc(i),a%val(j)
         end do
       enddo
     else if (.not.present(ivr).and..not.present(ivc)) then 
-      do i=1, nr
+      do i=1, nc
         do j=a%icp(i),a%icp(i+1)-1 
           write(iout,frmtv) (a%ia(j)),(i),a%val(j)
         end do

base/serial/impl/psb_s_csc_impl.f90

@@ -2561,32 +2561,32 @@ subroutine psb_s_csc_print(iout,a,iv,eirs,eics,head,ivr,ivc)
   write(frmtv,'(a,i3.3,a,i3.3,a)') '(2(i',ni,',1x),es26.18,1x,2(i',ni,',1x))'
   write(iout,*) nr, nc, nz 
   if(present(iv)) then 
-    do i=1, nr
+    do i=1, nc
       do j=a%icp(i),a%icp(i+1)-1 
         write(iout,frmtv) iv(a%ia(j)),iv(i),a%val(j)
       end do
     enddo
   else      
     if (present(ivr).and..not.present(ivc)) then 
-      do i=1, nr
+      do i=1, nc
         do j=a%icp(i),a%icp(i+1)-1 
           write(iout,frmtv) ivr(a%ia(j)),i,a%val(j)
         end do
       enddo
     else if (present(ivr).and.present(ivc)) then 
-      do i=1, nr
+      do i=1, nc
         do j=a%icp(i),a%icp(i+1)-1 
           write(iout,frmtv) ivr(a%ia(j)),ivc(i),a%val(j)
         end do
       enddo
     else if (.not.present(ivr).and.present(ivc)) then 
-      do i=1, nr
+      do i=1, nc
         do j=a%icp(i),a%icp(i+1)-1 
           write(iout,frmtv) (a%ia(j)),ivc(i),a%val(j)
         end do
       enddo
     else if (.not.present(ivr).and..not.present(ivc)) then 
-      do i=1, nr
+      do i=1, nc
         do j=a%icp(i),a%icp(i+1)-1 
           write(iout,frmtv) (a%ia(j)),(i),a%val(j)
         end do

base/serial/impl/psb_z_csc_impl.f90

@@ -2924,32 +2924,32 @@ subroutine psb_z_csc_print(iout,a,iv,eirs,eics,head,ivr,ivc)
   write(frmtv,'(a,i3.3,a,i3.3,a)') '(2(i',ni,',1x),2(es26.18,1x),2(i',ni,',1x))'
   write(iout,*) nr, nc, nz 
   if(present(iv)) then 
-    do i=1, nr
+    do i=1, nc
       do j=a%icp(i),a%icp(i+1)-1 
         write(iout,frmtv) iv(a%ia(j)),iv(i),a%val(j)
       end do
     enddo
   else      
     if (present(ivr).and..not.present(ivc)) then 
-      do i=1, nr
+      do i=1, nc
         do j=a%icp(i),a%icp(i+1)-1 
           write(iout,frmtv) ivr(a%ia(j)),i,a%val(j)
         end do
       enddo
     else if (present(ivr).and.present(ivc)) then 
-      do i=1, nr
+      do i=1, nc
         do j=a%icp(i),a%icp(i+1)-1 
           write(iout,frmtv) ivr(a%ia(j)),ivc(i),a%val(j)
         end do
       enddo
     else if (.not.present(ivr).and.present(ivc)) then 
-      do i=1, nr
+      do i=1, nc
         do j=a%icp(i),a%icp(i+1)-1 
           write(iout,frmtv) (a%ia(j)),ivc(i),a%val(j)
         end do
       enddo
     else if (.not.present(ivr).and..not.present(ivc)) then 
-      do i=1, nr
+      do i=1, nc
         do j=a%icp(i),a%icp(i+1)-1 
           write(iout,frmtv) (a%ia(j)),(i),a%val(j)
         end do

prec/psb_d_diagprec.f90

@@ -73,7 +73,8 @@ contains
     else
       allocate(ww(size(x)),stat=info)
       if (info /= psb_success_) then 
-        call psb_errpush(psb_err_alloc_request_,name,i_err=(/size(x),0,0,0,0/),a_err='real(psb_dpk_)')
+        call psb_errpush(psb_err_alloc_request_,name,&
+             & i_err=(/size(x),0,0,0,0/),a_err='real(psb_dpk_)')
         goto 9999      
       end if
     end if

test/pargen/runs/ppde.inp

@@ -2,7 +2,7 @@
 BICGSTAB                 Iterative method BICGSTAB CGS  BICG BICGSTABL RGMRES
 BJAC                   Preconditioner NONE  DIAG  BJAC 
 CSR                    Storage format for matrix A:  CSR COO JAD 
-020                    Domain size (acutal system is this**3)
+001                    Domain size (acutal system is this**3)
 2                      Stopping criterion
 0200                  MAXIT
 -1                     ITRACE