diff --git a/base/modules/psb_spmat_type.f90 b/base/modules/psb_spmat_type.f90 index 69b50f46..f4d475f1 100644 --- a/base/modules/psb_spmat_type.f90 +++ b/base/modules/psb_spmat_type.f90 @@ -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)