ADDED mttroot/mtt/bin/trans/dat2siag Index: mttroot/mtt/bin/trans/dat2siag ================================================================== --- /dev/null +++ mttroot/mtt/bin/trans/dat2siag @@ -0,0 +1,44 @@ +#! /bin/sh + + ###################################### + ##### Model Transformation Tools ##### + ###################################### + +# Bourne shell script: dat2siag +# Converts data to siag (scheme in a grid) format - ie columns become rows. + +# Data file dat to sdat conversion +# P.J.Gawthrop February 1998 +# Copyright (c) P.J.Gawthrop, 1998. + +############################################################### +## Version control history +############################################################### +## $Id$ +## $Log$ +## Revision 1.1 1999/03/29 03:35:13 peterg +## Initial revision +## +############################################################### + + + + +# This is the main transformation using awk +awk '{ + i++ + for (j=1;j<=NF;j++) + data[i,j]=$j; + Cols=NF; + Rows++; +} +END{ + for (j=1;j<=Cols;j++) { + for (i=1;i<=Rows;i++){ + printf("%s ", data[i,j]); + } + printf("\n"); + } +}' + + ADDED mttroot/mtt/bin/trans/odes_dat2sdat Index: mttroot/mtt/bin/trans/odes_dat2sdat ================================================================== --- /dev/null +++ mttroot/mtt/bin/trans/odes_dat2sdat @@ -0,0 +1,32 @@ +#! /bin/sh + + ###################################### + ##### Model Transformation Tools ##### + ###################################### + +# Bourne shell script: odeso_dat2sdat + +# Structure file - dat to sdat conversion +# P.J.Gawthrop April 1997 +# Copyright (c) P.J.Gawthrop, 1997. + +############################################################### +## Version control history +############################################################### +## $Id$ +## $Log$ +## Revision 1.2 2000/12/28 12:38:24 peterg +## Put under RCS +## +## Revision 1.1 1999/03/28 21:29:40 peterg +## Initial revision +## +############################################################### + + + +# Inform user +echo "Creating $1_odeso.sdat" + +dat2sdat $1 odes | dat2siag > $1_odes.sdat +