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

###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.8  2000/09/07 12:07:26  peterg
## *** empty log message ***
##
## Revision 1.7  2000/09/01 13:34:15  peterg
## Exit on option error
##
## Revision 1.6  2000/09/01 13:30:32  peterg
## Added -partition switch
##
## Revision 1.5  2000/09/01 12:14:57  peterg

if [ -n "$partition" ]; then
  rm -f mtt_junk
  # Now for the subsystems
  # Find subsystems
  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

  # Use symbolic algebra to accomplish the transformation
  $SYMBOLIC >$logname  << EOF

  %Read the formatting function
  in "$MTTPATH/trans/reduce_matrix.r";

  % Definitions
  in "$defname";

  % Elementary system equations
  in "$esename";

  OFF Echo;
  OFF Nat;
 
  %Create the output file
  OUT "mtt_junk";
  % Connecting inputs
  MTT_Matrix := $ucname $
  MTT_Matrix_name := "$ucname" $
  MTT_Matrix_n := $Nu $
  MTT_Matrix_m := 1$
  Reduce_Matrix()$

  shut "mtt_junk";
    echo Doing $subsystem
    ucname="MTT_"$subsystem"_uc"
  
    Nu=`mtt_getsize -internal $subsystem"_1" u`
    echo Nu $Nu
  
    # Use symbolic algebra to accomplish the transformation
    $SYMBOLIC >$logname  << EOF
  
    %Read the formatting function
    in "$MTTPATH/trans/reduce_matrix.r";
  
    % Definitions
    in "$defname";
  
    % Elementary system equations
    in "$esename";
  
    OFF Echo;
    OFF Nat;
   
    %Create the output file
    OUT "mtt_junk";
    % Connecting inputs
    MTT_Matrix := $ucname $
    MTT_Matrix_name := "$ucname" $
    MTT_Matrix_n := $Nu $
    MTT_Matrix_m := 1$
    Reduce_Matrix()$
  
    shut "mtt_junk";
EOF
  echo >> $1_rdae.r
  echo %Connections for subsystem $subsystem  >> $1_rdae.r
  echo >> $1_rdae.r

  cat mtt_junk >> $1_rdae.r
  rm -rf mtt_junk
    echo >> $1_rdae.r
    echo %Connections for subsystem $subsystem  >> $1_rdae.r
    echo >> $1_rdae.r
  
    cat mtt_junk >> $1_rdae.r
    rm -rf mtt_junk
  done
fi

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

# Now invoke the standard error handling.
mtt_error_r $logname