fdurastante
/
psblas3
mirror of https://github.com/sfilippone/psblas3.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

psblas3:

Browse Source 
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.
psblas3-type-indexed
Salvatore Filippone 14 years ago
parent 3440db4404
commit 9f8f5bdd70
7 changed files with 69 additions and 68 deletions
Show Stats Download Patch File Download Diff File

10
base/serial/impl/psb_c_csc_impl.f90
Unescape Escape View File

@ -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(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 write(iout,*) nr, nc, nz
if(present(iv)) then if(present(iv)) then
do i=1, nr do i=1, nc
do j=a%icp(i),a%icp(i+1)-1 do j=a%icp(i),a%icp(i+1)-1
write(iout,frmtv) iv(a%ia(j)),iv(i),a%val(j) write(iout,frmtv) iv(a%ia(j)),iv(i),a%val(j)
end do end do
enddo enddo
else else
if (present(ivr).and..not.present(ivc)) then 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 do j=a%icp(i),a%icp(i+1)-1
write(iout,frmtv) ivr(a%ia(j)),i,a%val(j) write(iout,frmtv) ivr(a%ia(j)),i,a%val(j)
end do end do
enddo enddo
else if (present(ivr).and.present(ivc)) then 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 do j=a%icp(i),a%icp(i+1)-1
write(iout,frmtv) ivr(a%ia(j)),ivc(i),a%val(j) write(iout,frmtv) ivr(a%ia(j)),ivc(i),a%val(j)
end do end do
enddo enddo
else if (.not.present(ivr).and.present(ivc)) then 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 do j=a%icp(i),a%icp(i+1)-1
write(iout,frmtv) (a%ia(j)),ivc(i),a%val(j) write(iout,frmtv) (a%ia(j)),ivc(i),a%val(j)
end do end do
enddo enddo
else if (.not.present(ivr).and..not.present(ivc)) then 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 do j=a%icp(i),a%icp(i+1)-1
write(iout,frmtv) (a%ia(j)),(i),a%val(j) write(iout,frmtv) (a%ia(j)),(i),a%val(j)
end do end do

10
base/serial/impl/psb_d_csc_impl.f90
Unescape Escape View File

@ -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(frmtv,'(a,i3.3,a,i3.3,a)') '(2(i',ni,',1x),es26.18,1x,2(i',ni,',1x))'
write(iout,*) nr, nc, nz write(iout,*) nr, nc, nz
if(present(iv)) then if(present(iv)) then
do i=1, nr do i=1, nc
do j=a%icp(i),a%icp(i+1)-1 do j=a%icp(i),a%icp(i+1)-1
write(iout,frmtv) iv(a%ia(j)),iv(i),a%val(j) write(iout,frmtv) iv(a%ia(j)),iv(i),a%val(j)
end do end do
enddo enddo
else else
if (present(ivr).and..not.present(ivc)) then 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 do j=a%icp(i),a%icp(i+1)-1
write(iout,frmtv) ivr(a%ia(j)),i,a%val(j) write(iout,frmtv) ivr(a%ia(j)),i,a%val(j)
end do end do
enddo enddo
else if (present(ivr).and.present(ivc)) then 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 do j=a%icp(i),a%icp(i+1)-1
write(iout,frmtv) ivr(a%ia(j)),ivc(i),a%val(j) write(iout,frmtv) ivr(a%ia(j)),ivc(i),a%val(j)
end do end do
enddo enddo
else if (.not.present(ivr).and.present(ivc)) then 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 do j=a%icp(i),a%icp(i+1)-1
write(iout,frmtv) (a%ia(j)),ivc(i),a%val(j) write(iout,frmtv) (a%ia(j)),ivc(i),a%val(j)
end do end do
enddo enddo
else if (.not.present(ivr).and..not.present(ivc)) then 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 do j=a%icp(i),a%icp(i+1)-1
write(iout,frmtv) (a%ia(j)),(i),a%val(j) write(iout,frmtv) (a%ia(j)),(i),a%val(j)
end do end do

10
base/serial/impl/psb_s_csc_impl.f90
Unescape Escape View File

@ -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(frmtv,'(a,i3.3,a,i3.3,a)') '(2(i',ni,',1x),es26.18,1x,2(i',ni,',1x))'
write(iout,*) nr, nc, nz write(iout,*) nr, nc, nz
if(present(iv)) then if(present(iv)) then
do i=1, nr do i=1, nc
do j=a%icp(i),a%icp(i+1)-1 do j=a%icp(i),a%icp(i+1)-1
write(iout,frmtv) iv(a%ia(j)),iv(i),a%val(j) write(iout,frmtv) iv(a%ia(j)),iv(i),a%val(j)
end do end do
enddo enddo
else else
if (present(ivr).and..not.present(ivc)) then 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 do j=a%icp(i),a%icp(i+1)-1
write(iout,frmtv) ivr(a%ia(j)),i,a%val(j) write(iout,frmtv) ivr(a%ia(j)),i,a%val(j)
end do end do
enddo enddo
else if (present(ivr).and.present(ivc)) then 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 do j=a%icp(i),a%icp(i+1)-1
write(iout,frmtv) ivr(a%ia(j)),ivc(i),a%val(j) write(iout,frmtv) ivr(a%ia(j)),ivc(i),a%val(j)
end do end do
enddo enddo
else if (.not.present(ivr).and.present(ivc)) then 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 do j=a%icp(i),a%icp(i+1)-1
write(iout,frmtv) (a%ia(j)),ivc(i),a%val(j) write(iout,frmtv) (a%ia(j)),ivc(i),a%val(j)
end do end do
enddo enddo
else if (.not.present(ivr).and..not.present(ivc)) then 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 do j=a%icp(i),a%icp(i+1)-1
write(iout,frmtv) (a%ia(j)),(i),a%val(j) write(iout,frmtv) (a%ia(j)),(i),a%val(j)
end do end do

10
base/serial/impl/psb_z_csc_impl.f90
Unescape Escape View File

@ -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(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 write(iout,*) nr, nc, nz
if(present(iv)) then if(present(iv)) then
do i=1, nr do i=1, nc
do j=a%icp(i),a%icp(i+1)-1 do j=a%icp(i),a%icp(i+1)-1
write(iout,frmtv) iv(a%ia(j)),iv(i),a%val(j) write(iout,frmtv) iv(a%ia(j)),iv(i),a%val(j)
end do end do
enddo enddo
else else
if (present(ivr).and..not.present(ivc)) then 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 do j=a%icp(i),a%icp(i+1)-1
write(iout,frmtv) ivr(a%ia(j)),i,a%val(j) write(iout,frmtv) ivr(a%ia(j)),i,a%val(j)
end do end do
enddo enddo
else if (present(ivr).and.present(ivc)) then 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 do j=a%icp(i),a%icp(i+1)-1
write(iout,frmtv) ivr(a%ia(j)),ivc(i),a%val(j) write(iout,frmtv) ivr(a%ia(j)),ivc(i),a%val(j)
end do end do
enddo enddo
else if (.not.present(ivr).and.present(ivc)) then 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 do j=a%icp(i),a%icp(i+1)-1
write(iout,frmtv) (a%ia(j)),ivc(i),a%val(j) write(iout,frmtv) (a%ia(j)),ivc(i),a%val(j)
end do end do
enddo enddo
else if (.not.present(ivr).and..not.present(ivc)) then 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 do j=a%icp(i),a%icp(i+1)-1
write(iout,frmtv) (a%ia(j)),(i),a%val(j) write(iout,frmtv) (a%ia(j)),(i),a%val(j)
end do end do

3
prec/psb_d_diagprec.f90
Unescape Escape View File

@ -73,7 +73,8 @@ contains
else else
allocate(ww(size(x)),stat=info) allocate(ww(size(x)),stat=info)
if (info /= psb_success_) then 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 goto 9999
end if end if
end if end if

2
test/pargen/runs/ppde.inp
Unescape Escape View File

@ -2,7 +2,7 @@
BICGSTAB Iterative method BICGSTAB CGS BICG BICGSTABL RGMRES BICGSTAB Iterative method BICGSTAB CGS BICG BICGSTABL RGMRES
BJAC Preconditioner NONE DIAG BJAC BJAC Preconditioner NONE DIAG BJAC
CSR Storage format for matrix A: CSR COO JAD 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 2 Stopping criterion
0200 MAXIT 0200 MAXIT
-1 ITRACE -1 ITRACE

Write Preview
Loading…
Cancel
Save