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

*** empty log message ***

Browse Source
This commit is contained in:
Salvatore Filippone
2008-05-12 11:11:18 +00:00
parent afe8e6bdbc
commit f1686fc022
1 changed files with 0 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/psb_spmat_type.f90
-2
View File
@@ -767,7 +767,6 @@ contains
i2 = size(a%ia2)
ia = size(a%aspk)
case default
info = -2
i1 = size(a%ia1)
i2 = size(a%ia2)
ia = size(a%aspk)
@@ -1259,7 +1258,6 @@ contains
i2 = size(a%ia2)
ia = size(a%aspk)
case default
info = -2
i1 = size(a%ia1)
i2 = size(a%ia2)
ia = size(a%aspk)