Mercurial > fem-fenics-eugenio

comparison inst/LinearForm.m @ 152:1dbe146bff03

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Update license to gpl v3
author gedeone-octave <marcovass89@hotmail.it>
date Wed, 11 Sep 2013 09:26:22 +0200
parents f2193e825ad7
children 66071811eef8
comparison
equal deleted inserted replaced
151:5fe2a157f4eb 152:1dbe146bff03
1 ## Copyright (C) 2013 Marco Vassallo 1 ## Copyright (C) 2013 Marco Vassallo <gedeone-octave@users.sourceforge.net>
2 ## 2 ##
3 ## This program is free software; you can redistribute it and/or modify it under 3 ## This program is free software; you can redistribute it and/or modify it under
4 ## the terms of the GNU General Public License as published by the Free Software 4 ## the terms of the GNU General Public License as published by the Free Software
5 ## Foundation; either version 2 of the License, or (at your option) any later 5 ## Foundation; either version 3 of the License, or (at your option) any later
6 ## version. 6 ## version.
7 ## 7 ##
8 ## This program is distributed in the hope that it will be useful, but WITHOUT 8 ## This program is distributed in the hope that it will be useful, but WITHOUT
9 ## ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or 9 ## ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
10 ## FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more 10 ## FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
24 function a = LinearForm (name, V, varargin) 24 function a = LinearForm (name, V, varargin)
25 25
26 if nargin < 2 26 if nargin < 2
27 error ("LinearForm: wrong number of input parameters."); 27 error ("LinearForm: wrong number of input parameters.");
28 elseif ! ischar (name) 28 elseif ! ischar (name)
29 error ("LinearForm: second argument is not a valid string"); 29 error ("LinearForm: first argument is not a valid string");
30 endif 30 endif
31 31
32 program = sprintf ("%s_LinearForm(V", name); 32 program = sprintf ("%s_LinearForm(V", name);
33 for k = 1:length (varargin) 33 for k = 1:length (varargin)
34 eval(['f_' num2str(k) '=varargin{k};']); 34 eval(['f_' num2str(k) '=varargin{k};']);