Index: mttroot/mtt/bin/trans/awk/lbl2sympar.awk
==================================================================
--- mttroot/mtt/bin/trans/awk/lbl2sympar.awk
+++ mttroot/mtt/bin/trans/awk/lbl2sympar.awk
@@ -10,23 +10,26 @@
 ###############################################################
 ## Version control history
 ###############################################################
 ## $Id$
 ## $Log$
+## Revision 1.1  1996/08/24 13:34:48  peter
+## Initial revision
+##
 ###############################################################
 
 
 
 function exact_match(name1, name2) {
   return ((match(name1,name2)>0)&&(length(name1)==length(name2)))
     }
 
 function matches(name, names) {
-  n = split(names,match_name);
+  n_matches = split(names,match_name);
   matched = 0;
-  for (i = 1; i <= n; i++) {
-    if ( exact_match(name,match_name[i]) ) {
+  for (i_matches = 1; i_matches <= n_matches; i_matches++) {
+    if ( exact_match(name,match_name[i_matches]) ) {
       matched = 1;
       break;
     }
   }
   return matched;
@@ -57,17 +60,17 @@
     }
   }
 }
 END {
 # print the _sympar file
-printf("%% Symbolic parameter file - generated by MTT\n\n");
-printf("MTTNVar := %1.0f;\n", symbol_count);
-
-if (symbol_count>0) {
-  printf("MATRIX MTTVar(MTTNVar,1);\n");
-  split(symbols,symbol);
-  for (i = 1; i <= symbol_count; i++) {
-    printf("MTTVar(%1.0f,1) := %s;\n", i, symbol[i]);
-  }
-}
-
+  printf("%% Symbolic parameter file - generated by MTT\n\n");
+  printf("MTTNVar := %1.0f;\n", symbol_count);
+
+  if (symbol_count>0) {
+    printf("MATRIX MTTVar(MTTNVar,1);\n");
+    split(symbols,symbol);
+    for (i = 1; i <= symbol_count; i++) {
+      printf("MTTVar(%1.0f,1) := %s;\n", i, symbol[i]);
+    }
+  }
+  printf("END;\n\n");  
 }