Add negR and negI to clean.f

a338d23e · Jurriën Stutterheim · f21380ec · a338d23e
Commit a338d23e authored May 19, 2016 by Jurriën Stutterheim
Hide whitespace changes
Inline Side-by-side

Showing with 13 additions and 1 deletion

src/clean.f src/clean.f +13 -1

No files found.
--- a/src/clean.f
+++ b/src/clean.f
@@ -97,7 +97,19 @@
         "arity":1,
         "ext_fun":"_neg",
         "inline_exp":":!1: * -1"
-      },	  
+      },
+      {
+         "sapl_fun":"negR",
+         "arity":1,
+         "ext_fun":"_neg",
+         "inline_exp":":!1: * -1"
+      },
+      {
+         "sapl_fun":"negI",
+         "arity":1,
+         "ext_fun":"_neg",
+         "inline_exp":":!1: * -1"
+      },
 	  {
         "sapl_fun":"absI",
         "arity":1,