# Copyright (c) P.J.Gawthrop, 1991, 1994, 1996

###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.4  1998/04/07 15:06:46  peterg
## Correct log file name
##
## Revision 1.3  1998/03/07 12:57:19  peterg
## Fixed logname bug
##
## Revision 1.2  1998/03/07 12:51:20  peterg
## This is the new version of ese2dae - it does not do the CRs at this
## stage to give reduce an easier time.
##

% Zero outputs
MTT_Matrix := MTTYz$ 
MTT_Matrix_name := "MTTYz"$
MTT_Matrix_n := MTTNyz$
MTT_Matrix_m := 1$
Reduce_Matrix()$

% Connecting inputs
MTT_Matrix := MTTuc$ 
MTT_Matrix_name := "MTTuc"$
MTT_Matrix_n := MTTNuc$
MTT_Matrix_m := 1$
Reduce_Matrix()$


write ";END;";
SHUT "$daename";
quit;

EOF

# Now invoke the standard error handling.
mtt_error_r $logname