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

Out from MMIO read in COO.

Browse Source
This commit is contained in:
Salvatore Filippone
2019-01-18 09:04:21 +00:00
parent cd8ae65c85
commit 2a72ea4744
4 changed files with 0 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files
util/psb_c_mmio_impl.f90
-6
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'
util/psb_d_mmio_impl.f90
-2
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)
util/psb_s_mmio_impl.f90
-4
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'
util/psb_z_mmio_impl.f90
-6
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'