Mercurial > fem-fenics-eugenio
diff inst/import_ufl_BilinearForm.m @ 268:61830a4f9ab9
Improve formatting
author | Eugenio Gianniti <eugenio.gianniti@mail.polimi.it> |
---|---|
date | Thu, 14 Aug 2014 12:26:55 +0200 |
parents | 072aee55bb75 |
children | 897e312cb440 |
line wrap: on
line diff
--- a/inst/import_ufl_BilinearForm.m Tue Aug 12 15:42:50 2014 +0200 +++ b/inst/import_ufl_BilinearForm.m Thu Aug 14 12:26:55 2014 +0200 @@ -13,6 +13,7 @@ ## You should have received a copy of the GNU General Public License along with ## this program; if not, see <http://www.gnu.org/licenses/>. + ## -*- texinfo -*- ## @deftypefn {Function File} {} = import_ufl_BilinearForm (@var{myproblem}) ## Import a BilinearForm from a ufl file. @@ -30,29 +31,29 @@ function import_ufl_BilinearForm (var_prob) if (is_master_node ()) - if nargin != 1 + if (nargin != 1) error ("import_ufl_BilinearForm: wrong number of input parameters."); - elseif ! ischar (var_prob) + elseif (! ischar (var_prob)) error ("import_ufl_BilinearForm: first argument is not a valid string"); endif if (check_hash (var_prob) || ! check_oct_files (var_prob, "BilinearForm")) - n = length (mfilename ("fullpath")) - length (mfilename()); - path = strtrunc(mfilename ("fullpath"), n); + n = length (mfilename ("fullpath")) - length (mfilename ()); + path = strtrunc (mfilename ("fullpath"), n); private = fullfile (path, "include/"); output = generate_rhs (var_prob); output += generate_makefile (var_prob, private); - if output != 0 + if (output != 0) error ("Compilation failed"); else [output, textfile] = system (sprintf ("make -f Makefile_%s rhs", var_prob)); - if output != 0 + if (output != 0) display (text); error ("Compilation failed"); endif [output, textfile] = system (sprintf ("make -f Makefile_%s clean", var_prob)); - if output != 0 + if (output != 0) display (text); error ("Compilation failed"); endif