# Copyright (c) P.J.Gawthrop 1998

###############################################################
## 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.
##
## Revision 1.4  1998/07/29 13:56:34  peterg

cat <<EOF >> $1_$2.c
/* End of the header file. */


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