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

Fix printout on COO format.

Browse Source
This commit is contained in:
Salvatore Filippone
2007-06-29 06:50:18 +00:00
parent 813ec76c8a
commit 6ce39bed18
2 changed files with 51 additions and 39 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/serial/psb_dcsprt.f90
+26 -20
View File
@@ -70,7 +70,7 @@ subroutine psb_dcsprt(iout,a,iv,eirs,eics,head,ivr,ivc)
else
ics = 0
endif
open(iout)
if (present(head)) then
write(iout,'(a)') '%%MatrixMarket matrix coordinate real general'
write(iout,'(a,a)') '% ',head
@@ -157,30 +157,36 @@ subroutine psb_dcsprt(iout,a,iv,eirs,eics,head,ivr,ivc)
endif
case ('COO')
if (present(ivr).and..not.present(ivc)) then
if(present(iv)) then
write(iout,*) a%m,a%k,a%infoa(psb_nnz_)
do j=1,a%infoa(psb_nnz_)
write(iout,frmtr) ivr(a%ia1(j)),a%ia2(j),a%aspk(j)
enddo
else if (present(ivr).and.present(ivc)) then
write(iout,*) a%m,a%k,a%infoa(psb_nnz_)
do j=1,a%infoa(psb_nnz_)
write(iout,frmtr) ivr(a%ia1(j)),ivc(a%ia2(j)),a%aspk(j)
enddo
else if (.not.present(ivr).and.present(ivc)) then
write(iout,*) a%m,a%k,a%infoa(psb_nnz_)
do j=1,a%infoa(psb_nnz_)
write(iout,frmtr) a%ia1(j),ivc(a%ia2(j)),a%aspk(j)
enddo
else if (.not.present(ivr).and..not.present(ivc)) then
write(iout,*) a%m,a%k,a%infoa(psb_nnz_)
do j=1,a%infoa(psb_nnz_)
write(iout,frmtr) a%ia1(j),a%ia2(j),a%aspk(j)
write(iout,frmtr) iv(a%ia1(j)),iv(a%ia2(j)),a%aspk(j)
enddo
else
if (present(ivr).and..not.present(ivc)) then
write(iout,*) a%m,a%k,a%infoa(psb_nnz_)
do j=1,a%infoa(psb_nnz_)
write(iout,frmtr) ivr(a%ia1(j)),a%ia2(j),a%aspk(j)
enddo
else if (present(ivr).and.present(ivc)) then
write(iout,*) a%m,a%k,a%infoa(psb_nnz_)
do j=1,a%infoa(psb_nnz_)
write(iout,frmtr) ivr(a%ia1(j)),ivc(a%ia2(j)),a%aspk(j)
enddo
else if (.not.present(ivr).and.present(ivc)) then
write(iout,*) a%m,a%k,a%infoa(psb_nnz_)
do j=1,a%infoa(psb_nnz_)
write(iout,frmtr) a%ia1(j),ivc(a%ia2(j)),a%aspk(j)
enddo
else if (.not.present(ivr).and..not.present(ivc)) then
write(iout,*) a%m,a%k,a%infoa(psb_nnz_)
do j=1,a%infoa(psb_nnz_)
write(iout,frmtr) a%ia1(j),a%ia2(j),a%aspk(j)
enddo
endif
endif
case default
write(0,*) 'Feeling lazy today, format not implemented: "',a%fida,'"'
end select
close(iout)
end subroutine psb_dcsprt
base/serial/psb_zcsprt.f90
+25 -19
View File
@@ -157,30 +157,36 @@ subroutine psb_zcsprt(iout,a,iv,eirs,eics,head,ivr,ivc)
endif
case ('COO')
if (present(ivr).and..not.present(ivc)) then
if(present(iv)) then
write(iout,*) a%m,a%k,a%infoa(psb_nnz_)
do j=1,a%infoa(psb_nnz_)
write(iout,frmtr) ivr(a%ia1(j)),a%ia2(j),a%aspk(j)
enddo
else if (present(ivr).and.present(ivc)) then
write(iout,*) a%m,a%k,a%infoa(psb_nnz_)
do j=1,a%infoa(psb_nnz_)
write(iout,frmtr) ivr(a%ia1(j)),ivc(a%ia2(j)),a%aspk(j)
enddo
else if (.not.present(ivr).and.present(ivc)) then
write(iout,*) a%m,a%k,a%infoa(psb_nnz_)
do j=1,a%infoa(psb_nnz_)
write(iout,frmtr) a%ia1(j),ivc(a%ia2(j)),a%aspk(j)
enddo
else if (.not.present(ivr).and..not.present(ivc)) then
write(iout,*) a%m,a%k,a%infoa(psb_nnz_)
do j=1,a%infoa(psb_nnz_)
write(iout,frmtr) a%ia1(j),a%ia2(j),a%aspk(j)
write(iout,frmtr) iv(a%ia1(j)),iv(a%ia2(j)),a%aspk(j)
enddo
else
if (present(ivr).and..not.present(ivc)) then
write(iout,*) a%m,a%k,a%infoa(psb_nnz_)
do j=1,a%infoa(psb_nnz_)
write(iout,frmtr) ivr(a%ia1(j)),a%ia2(j),a%aspk(j)
enddo
else if (present(ivr).and.present(ivc)) then
write(iout,*) a%m,a%k,a%infoa(psb_nnz_)
do j=1,a%infoa(psb_nnz_)
write(iout,frmtr) ivr(a%ia1(j)),ivc(a%ia2(j)),a%aspk(j)
enddo
else if (.not.present(ivr).and.present(ivc)) then
write(iout,*) a%m,a%k,a%infoa(psb_nnz_)
do j=1,a%infoa(psb_nnz_)
write(iout,frmtr) a%ia1(j),ivc(a%ia2(j)),a%aspk(j)
enddo
else if (.not.present(ivr).and..not.present(ivc)) then
write(iout,*) a%m,a%k,a%infoa(psb_nnz_)
do j=1,a%infoa(psb_nnz_)
write(iout,frmtr) a%ia1(j),a%ia2(j),a%aspk(j)
enddo
endif
endif
case default
write(0,*) 'Feeling lazy today, format not implemented: "',a%fida,'"'
end select
close(iout)
end subroutine psb_zcsprt