[Getfem-commits] (no subject)

[Yves Renard]

branch: master
commit b8af863b4475bc9597bba0f205cb7fca290f4e37
Author: Yves Renard <address@hidden>
Date:   Thu Jun 7 16:30:28 2018 +0200

    fix a bug in transpose
---
 doc/sphinx/source/biblio.rst                    | 2 +-
 src/getfem_generic_assembly_compile_and_exec.cc | 3 ++-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/doc/sphinx/source/biblio.rst b/doc/sphinx/source/biblio.rst
index 49dc656..82b2adc 100644
--- a/doc/sphinx/source/biblio.rst
+++ b/doc/sphinx/source/biblio.rst
@@ -127,7 +127,7 @@ References
    *Bifurcations in Piecewise-Smooth Steady-State Problems: Abstract Study and 
Application to Plane Contact Problems with Friction*. Computational Mechanics, 
56:1:39-62, 2015.
 
 .. [Li-Re2015hal] T. |ligursky| and Y. Renard.
-   *A Method of Piecewise-Smooth Numerical Branching*. Submitted (2015). 
<`hal-01113564 <https://hal.archives-ouvertes.fr/hal-01113564>`_>
+   *A Method of Piecewise-Smooth Numerical Branching*. Z. Angew. Math. Mech., 
97:7:815--827, 2017.
 
 .. [Mi-Zh2002] P. Ming and Z. Shi,
    *Optimal L2 error bounds for MITC3 type element*. Numer. Math. 91, 77-91, 
2002.
diff --git a/src/getfem_generic_assembly_compile_and_exec.cc 
b/src/getfem_generic_assembly_compile_and_exec.cc
index 6afb52d..23544d0 100644
--- a/src/getfem_generic_assembly_compile_and_exec.cc
+++ b/src/getfem_generic_assembly_compile_and_exec.cc
@@ -5815,7 +5815,8 @@ namespace getfem {
        case GA_QUOTE:
          if (pnode->tensor_proper_size() > 1) {
           size_type n1 = child0->tensor_proper_size(0);
-          size_type n2 = child0->tensor_proper_size(1);
+          size_type n2 = (child0->tensor_order() > 1) ?
+            child0->tensor_proper_size(1) : 1;
           size_type nn = 1;
           for (size_type i = 2; i < child0->tensor_order(); ++i)
             nn *= child0->tensor_proper_size(i);