diff inst/import_ufl_LinearForm.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_LinearForm.m	Tue Aug 12 15:42:50 2014 +0200
+++ b/inst/import_ufl_LinearForm.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_LinearForm (@var{myproblem})
 ## Import a LinearForm from a ufl file.
@@ -28,30 +29,30 @@
 function import_ufl_LinearForm (var_prob)
 
   if (is_master_node ())
-    if nargin != 1
+    if (nargin != 1)
       error ("import_ufl_LinearForm: wrong number of input parameters.");
-    elseif ! ischar (var_prob)
+    elseif (! ischar (var_prob))
       error ("import_ufl_LinearForm: first argument is not a valid string");
     endif
 
     if (check_hash (var_prob) || ! check_oct_files (var_prob, "LinearForm"))
-      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_lhs (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 lhs", 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