Fix handling of SYMmetric

psblas-paraggr
Salvatore Filippone 6 years ago
parent 83e2cb444a
commit ffb6a6dd68

@ -770,6 +770,7 @@ contains
b%state = a%state b%state = a%state
b%duplicate = a%duplicate b%duplicate = a%duplicate
b%triangle = a%triangle b%triangle = a%triangle
b%symmetric = a%symmetric
b%unitd = a%unitd b%unitd = a%unitd
b%upper = .not.a%upper b%upper = .not.a%upper
b%sorted = .false. b%sorted = .false.
@ -789,6 +790,7 @@ contains
b%state = a%state b%state = a%state
b%duplicate = a%duplicate b%duplicate = a%duplicate
b%triangle = a%triangle b%triangle = a%triangle
b%symmetric = a%symmetric
b%unitd = a%unitd b%unitd = a%unitd
b%upper = .not.a%upper b%upper = .not.a%upper
b%sorted = .false. b%sorted = .false.
@ -808,6 +810,7 @@ contains
a%state = a%state a%state = a%state
a%duplicate = a%duplicate a%duplicate = a%duplicate
a%triangle = a%triangle a%triangle = a%triangle
a%symmetric = a%symmetric
a%unitd = a%unitd a%unitd = a%unitd
a%upper = .not.a%upper a%upper = .not.a%upper
a%sorted = .false. a%sorted = .false.

Loading…
Cancel
Save