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

Out from MMIO read in COO.

Browse Source
scr-persistent-collective
Salvatore Filippone 6 years ago
parent cd8ae65c85
commit 2a72ea4744
4 changed files with 0 additions and 18 deletions
Show Stats Download Patch File Download Diff File

6
util/psb_c_mmio_impl.f90
Unescape Escape View File

@ -346,7 +346,6 @@ subroutine cmm_mat_read(a, info, iunit, filename)
call acoo%fix(info)
call a%mv_from(acoo)
call a%cscnv(ircode,type='csr')
else if ((psb_tolower(type) == 'complex').and.(psb_tolower(sym) == 'symmetric')) then
! we are generally working with non-symmetric matrices, so
@ -369,7 +368,6 @@ subroutine cmm_mat_read(a, info, iunit, filename)
call acoo%fix(info)
call a%mv_from(acoo)
call a%cscnv(ircode,type='csr')
else if ((psb_tolower(type) == 'complex').and.(psb_tolower(sym) == 'hermitian')) then
! we are generally working with non-symmetric matrices, so
@ -392,7 +390,6 @@ subroutine cmm_mat_read(a, info, iunit, filename)
call acoo%fix(info)
call a%mv_from(acoo)
call a%cscnv(ircode,type='csr')
else
write(psb_err_unit,*) 'read_matrix: matrix type not yet supported'
@ -522,7 +519,6 @@ subroutine lcmm_mat_read(a, info, iunit, filename)
call acoo%fix(info)
call a%mv_from(acoo)
call a%cscnv(ircode,type='csr')
else if ((psb_tolower(type) == 'complex').and.(psb_tolower(sym) == 'symmetric')) then
! we are generally working with non-symmetric matrices, so
@ -545,7 +541,6 @@ subroutine lcmm_mat_read(a, info, iunit, filename)
call acoo%fix(info)
call a%mv_from(acoo)
call a%cscnv(ircode,type='csr')
else if ((psb_tolower(type) == 'complex').and.(psb_tolower(sym) == 'hermitian')) then
! we are generally working with non-symmetric matrices, so
@ -568,7 +563,6 @@ subroutine lcmm_mat_read(a, info, iunit, filename)
call acoo%fix(info)
call a%mv_from(acoo)
call a%cscnv(ircode,type='csr')
else
write(psb_err_unit,*) 'read_matrix: matrix type not yet supported'

2
util/psb_d_mmio_impl.f90
Unescape Escape View File

@ -386,7 +386,6 @@ subroutine dmm_mat_read(a, info, iunit, filename)
if (info == 0) then
call acoo%fix(info)
call a%mv_from(acoo)
call a%cscnv(ircode,type='csr')
end if
if (infile /= 5) close(infile)
@ -561,7 +560,6 @@ subroutine ldmm_mat_read(a, info, iunit, filename)
if (info == 0) then
call acoo%fix(info)
call a%mv_from(acoo)
call a%cscnv(ircode,type='csr')
end if
if (infile /= 5) close(infile)

4
util/psb_s_mmio_impl.f90
Unescape Escape View File

@ -341,7 +341,6 @@ subroutine smm_mat_read(a, info, iunit, filename)
call acoo%fix(info)
call a%mv_from(acoo)
call a%cscnv(ircode,type='csr')
else if ((psb_tolower(type) == 'real').and.(psb_tolower(sym) == 'symmetric')) then
! we are generally working with non-symmetric matrices, so
@ -363,7 +362,6 @@ subroutine smm_mat_read(a, info, iunit, filename)
call acoo%fix(info)
call a%mv_from(acoo)
call a%cscnv(ircode,type='csr')
else
write(psb_err_unit,*) 'read_matrix: matrix type not yet supported'
@ -494,7 +492,6 @@ subroutine lsmm_mat_read(a, info, iunit, filename)
call acoo%fix(info)
call a%mv_from(acoo)
call a%cscnv(ircode,type='csr')
else if ((psb_tolower(type) == 'real').and.(psb_tolower(sym) == 'symmetric')) then
! we are generally working with non-symmetric matrices, so
@ -516,7 +513,6 @@ subroutine lsmm_mat_read(a, info, iunit, filename)
call acoo%fix(info)
call a%mv_from(acoo)
call a%cscnv(ircode,type='csr')
else
write(psb_err_unit,*) 'read_matrix: matrix type not yet supported'

6
util/psb_z_mmio_impl.f90
Unescape Escape View File

@ -346,7 +346,6 @@ subroutine zmm_mat_read(a, info, iunit, filename)
call acoo%fix(info)
call a%mv_from(acoo)
call a%cscnv(ircode,type='csr')
else if ((psb_tolower(type) == 'complex').and.(psb_tolower(sym) == 'symmetric')) then
! we are generally working with non-symmetric matrices, so
@ -369,7 +368,6 @@ subroutine zmm_mat_read(a, info, iunit, filename)
call acoo%fix(info)
call a%mv_from(acoo)
call a%cscnv(ircode,type='csr')
else if ((psb_tolower(type) == 'complex').and.(psb_tolower(sym) == 'hermitian')) then
! we are generally working with non-symmetric matrices, so
@ -392,7 +390,6 @@ subroutine zmm_mat_read(a, info, iunit, filename)
call acoo%fix(info)
call a%mv_from(acoo)
call a%cscnv(ircode,type='csr')
else
write(psb_err_unit,*) 'read_matrix: matrix type not yet supported'
@ -522,7 +519,6 @@ subroutine lzmm_mat_read(a, info, iunit, filename)
call acoo%fix(info)
call a%mv_from(acoo)
call a%cscnv(ircode,type='csr')
else if ((psb_tolower(type) == 'complex').and.(psb_tolower(sym) == 'symmetric')) then
! we are generally working with non-symmetric matrices, so
@ -545,7 +541,6 @@ subroutine lzmm_mat_read(a, info, iunit, filename)
call acoo%fix(info)
call a%mv_from(acoo)
call a%cscnv(ircode,type='csr')
else if ((psb_tolower(type) == 'complex').and.(psb_tolower(sym) == 'hermitian')) then
! we are generally working with non-symmetric matrices, so
@ -568,7 +563,6 @@ subroutine lzmm_mat_read(a, info, iunit, filename)
call acoo%fix(info)
call a%mv_from(acoo)
call a%cscnv(ircode,type='csr')
else
write(psb_err_unit,*) 'read_matrix: matrix type not yet supported'

Write Preview
Loading…
Cancel
Save