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

###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.3  2000/09/02 15:55:11  peterg
## Now doesn't include def files in da files
##
## Revision 1.2  2000/09/01 13:36:15  peterg
## Added -partition option
##
## Revision 1.1  2000/09/01 12:14:44  peterg
## Initial revision
##
## Revision 1.3  1998/03/07 12:57:19  peterg

EOF

if [ -n "$partition" ]; then
  rm -f mtt_junk
  # Now for the subsystems
  # Find subsystems
  subsystems=`sh rc2_type.sh 'echo ' ' ' | awk '{if (NR>1) print $2}'`
  subsystems=`mtt_get_subsystems $1`

  for subsystem in $subsystems; do
  echo Doing $subsystem
  ucname="MTT_"$subsystem"_uc"

  Nu=`mtt_getsize -internal $subsystem"_1" u`
  echo Nu $Nu

  MTT_Matrix_m := 1$
  Reduce_Matrix()$

  shut "mtt_junk";
EOF
  echo >> $1_dae.r
  echo %Connections for subsystem $subsystem  >> $1_dae.r
  echo >> $1_dae.r

  cat mtt_junk >> $1_dae.r
  rm -rf mtt_junk
  done
fi

echo "END;" >> $1_dae.r

# Now invoke the standard error handling.
mtt_error_r $logname