Index: mttroot/mtt/bin/trans/mtt_p2c
==================================================================
--- mttroot/mtt/bin/trans/mtt_p2c
+++ mttroot/mtt/bin/trans/mtt_p2c
@@ -14,10 +14,13 @@
 ###############################################################
 ## Version control history
 ###############################################################
 ## $Id$
 ## $Log$
+## Revision 1.7  1999/08/29 06:14:27  peterg
+## No longer remove "PASCAL_MAIN"
+##
 ## Revision 1.6  1999/04/20 06:17:15  peterg
 ## Fudge to avoid a bizzare bug (?) in p2c which corrupts "zero_matrix"
 ##
 ## Revision 1.5  1998/08/12 14:14:18  peterg
 ## Added pretty heading and explicitly include p2c header.
@@ -80,10 +83,15 @@
 
 
 EOF
 
 ## The sed item is to avoid a bizzare bug (?) in p2c which corrupts "zero_matrix"
-cat mtt_junk2 | sed 's/zero_matrix/mttmat/g'>> $1_$2.c
+###cat mtt_junk2 | sed 's/zero_matrix/mttmat/g'>> $1_$2.c
+
+## Sort out the pascal EOF 
+cat mtt_junk2 | sed 's/P_eof/feof/'>> $1_$2.c
 
 if [ -n "$info" ]; then
     cat mtt_p2c.log
 fi
+
+