From ffb6a6dd68e12eb0d08003b693338ce7e84e40d4 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Mon, 22 Jul 2019 17:16:10 +0100 Subject: [PATCH] Fix handling of SYMmetric --- base/modules/serial/psb_base_mat_mod.f90 | 3 +++ 1 file changed, 3 insertions(+) diff --git a/base/modules/serial/psb_base_mat_mod.f90 b/base/modules/serial/psb_base_mat_mod.f90 index 9d6eb75c..cf87a4e7 100644 --- a/base/modules/serial/psb_base_mat_mod.f90 +++ b/base/modules/serial/psb_base_mat_mod.f90 @@ -770,6 +770,7 @@ contains b%state = a%state b%duplicate = a%duplicate b%triangle = a%triangle + b%symmetric = a%symmetric b%unitd = a%unitd b%upper = .not.a%upper b%sorted = .false. @@ -789,6 +790,7 @@ contains b%state = a%state b%duplicate = a%duplicate b%triangle = a%triangle + b%symmetric = a%symmetric b%unitd = a%unitd b%upper = .not.a%upper b%sorted = .false. @@ -808,6 +810,7 @@ contains a%state = a%state a%duplicate = a%duplicate a%triangle = a%triangle + a%symmetric = a%symmetric a%unitd = a%unitd a%upper = .not.a%upper a%sorted = .false.