Index: mttroot/mtt/bin/trans/mtt_p2m
==================================================================
--- mttroot/mtt/bin/trans/mtt_p2m
+++ mttroot/mtt/bin/trans/mtt_p2m
@@ -1,9 +1,12 @@
 #! /bin/sh
+## Chages the Pascal output from gentran to octave form
+# Copyright (C) 2000 by Peter J. Gawthrop
 
-sed 's/begin / /' |\
-sed 's/end / /' |\
+sed 's/begin$//' |\
+sed 's/end$//' |\
+sed 's/end;$/;/' |\
 sed 's/\[\([0-9,]*\)\]/(\1)/g' |\
 sed 's/:=/ = /' |\
 sed 's/\*\*/\^/g' |\
 sed 's/mtt\([a-z]*\)\([0-9]\)\([0-9]*\)/mtt\1(\2\3)/g' |\
 awk '{