Mercurial > fem-fenics-eugenio

comparison inst/import_ufl_LinearForm.m @ 136:c445cdf36fb1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix new naming convention for the generation of the problem from .ufl file.
author gedeone-octave <marcovass89@hotmail.it>
date Fri, 06 Sep 2013 13:42:20 +0200
parents 547763139e1a
children f2193e825ad7
comparison
equal deleted inserted replaced
135:547763139e1a 136:c445cdf36fb1
13 ## You should have received a copy of the GNU General Public License along with 13 ## You should have received a copy of the GNU General Public License along with
14 ## this program; if not, see <http://www.gnu.org/licenses/>. 14 ## this program; if not, see <http://www.gnu.org/licenses/>.
15 15
16 16
17 ## -*- texinfo -*- 17 ## -*- texinfo -*-
18 ## @deftypefn {Function File} {} = fem_ffc (myproblem.ufl) 18 ## @deftypefn {Function File} {} = import_ufl_LinearForm (myproblem)
19 ## This function take as input the name of the .ufl file where 19 ## This function takes as input the name of the .ufl file where
20 ## the Variational Problem is defined. 20 ## the LinearForm is defined and import it inside Octave
21 ## @example 21 ## @seealso{import_ufl_Problem, FunctionSpace, BilinearForm, LinearForm}
22 ##
23 ## @end example
24 ## @seealso{}
25 ## @end deftypefn 22 ## @end deftypefn
26 23
27 function fem_create_lhs (var_prob) 24 function import_ufl_LinearForm (var_prob)
28 25
29 if nargin != 1 26 if nargin != 1
30 error ("fem_create_lhs: wrong number of input parameters."); 27 error ("import_ufl_LinearForm: wrong number of input parameters.");
31 elseif ! ischar (var_prob) 28 elseif ! ischar (var_prob)
32 error ("fem_create_lhs: first argument is not a valid string"); 29 error ("import_ufl_LinearForm: first argument is not a valid string");
33 endif 30 endif
34 31
35 n = length (mfilename ("fullpath")) - length (mfilename()); 32 n = length (mfilename ("fullpath")) - length (mfilename());
36 path = strtrunc(mfilename ("fullpath"), n); 33 path = strtrunc(mfilename ("fullpath"), n);
37 34