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.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.
 ##
 ## Revision 1.4  1998/07/29 13:56:34  peterg
 ## Replces p2c include by local include.
@@ -52,13 +55,13 @@
 
 # Use p2c to do the translation 
 p2c -V  $1_$2.p  | grep Warning # > mtt_p2c.log 2>> mtt_p2c.log
 cat $1_$2.log >> mtt_p2c.log
 
-# zap the PASCAL_MAIN which we don't want and change p2c.h include.
+# Change p2c.h include.
 mv $1_$2.c mtt_junk1
-grep -v 'PASCAL_MAIN'  < mtt_junk1 | grep -v 'p2c/p2c.h'> mtt_junk2
+cat mtt_junk1 | grep -v 'p2c/p2c.h'> mtt_junk2
 
 # pretty heading
 DATE=`date`
 
 cat <<EOF  >$1_$2.c