Mercurial > fem-fenics-eugenio

comparison src/assemble.cc @ 108:5cbc7341ded5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added the possibility to assemble form of rank 0.
author gedeone-octave <marcovass89@hotmail.it>
date Thu, 22 Aug 2013 18:58:55 +0200
parents dc9987325fea
children 77eefe47f7ab
comparison
equal deleted inserted replaced
107:0e83f8ce9083 108:5cbc7341ded5
133 for (std::size_t i = 0; i < A.size (); ++i) 133 for (std::size_t i = 0; i < A.size (); ++i)
134 myb.xelem (i) = A[i]; 134 myb.xelem (i) = A[i];
135 135
136 retval(0) = myb; 136 retval(0) = myb;
137 } 137 }
138 else if (a.rank () == 0)
139 {
140 double b = dolfin::assemble (a);
141 retval(0) = octave_value (b);
142 }
138 143
139 else 144 else
140 error ("assemble: unknown size"); 145 error ("assemble: unknown size");
141 } 146 }
142 } 147 }