Index: mttroot/mtt/bin/trans/mtt_strip_args
==================================================================
--- mttroot/mtt/bin/trans/mtt_strip_args
+++ mttroot/mtt/bin/trans/mtt_strip_args
@@ -8,11 +8,14 @@
 # Strips unwanted bits from a list of arguments
 # Label file to symbolic parameters conversion
 # Copyright (C) 2000 by Peter J. Gawthrop
 
 ## $Id$  ##
-## $Log$ ##
+## $Log$
+## Revision 1.1  2000/10/16 09:04:04  peterg
+## Initial revision
+## ##
 # Inform user
 #echo "Creating $1_sympar.txt"
 
 # Separation characters
 SEPS='=*;+/()-'
@@ -42,16 +45,17 @@
   not_an_arg = "effort flow state internal external zero unknown\
                 mtt_e mtt_f sqrt exp log sign none abs";
 }
 {
     args=$1
+    sys=$2
     N=split(args, arg, ",");
     for (i=1;i<=N;i++){
       if ( (length(arg[i])>0)&&(matches(not_an_arg,arg[i])==0)&&(match(arg[i],"^[0-9]+[.]*")==0) ){
-        print arg[i]
+        printf("%s\t%s\n", arg[i], sys);
       }
   }
 }' |\
 grep -v '^\$'