fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-19 04:12:09 +00:00
Code Issues Packages Projects Releases Wiki Activity

psblas2-dev/base:

Browse Source 
modules/psb_spmat_type.f90
 serial/psb_dipcoo2csc.f90
 serial/psb_zipcoo2csc.f90

Fixed handling of trim for CSC (needed for UMFPACK).
This commit is contained in:
Salvatore Filippone
2008-05-08 09:06:15 +00:00
parent 05983fc8c2
commit afe8e6bdbc
3 changed files with 32 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/psb_spmat_type.f90
+10
View File
@@ -751,6 +751,11 @@ contains
ia = nza
i1 = nza
i2 = a%m + 1
case('csc')
nza = a%ia2(a%k+1)-1
ia = nza
i1 = nza
i2 = a%k + 1
case('coo','coi')
nza = a%infoa(psb_nnz_)
i1 = nza
@@ -1238,6 +1243,11 @@ contains
ia = nza
i1 = nza
i2 = a%m + 1
case('csc')
nza = a%ia2(a%k+1)-1
ia = nza
i1 = nza
i2 = a%k + 1
case('coo','coi')
nza = a%infoa(psb_nnz_)
i1 = nza