Out from MMIO read in COO.

util/psb_c_mmio_impl.f90

@@ -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'

util/psb_d_mmio_impl.f90

@@ -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)

util/psb_s_mmio_impl.f90

@@ -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'

util/psb_z_mmio_impl.f90

@@ -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'