#!/bin/sh
# Vectorises the matrix output of reduce ie converts [n,1] to [n]
# Vectorises the matrix output of reduce ie converts (n,1) to (n)
# Copyright (C) 2000 by Peter J. Gawthrop

mv $1 $1_junk
sed 's/mtt_matrix\[\([0-9]*\),1\]/mtt_matrix[\1]/'< $1_junk > $1
sed 's/mtt_\([a-z]*\)(\([0-9]*\),1)/mtt_\1(\2)/'
rm -f $1_junk