File mttroot/mtt/bin/trans/dat2siag artifact 4a36fa9cce part of check-in e7609f6ad9

#! /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");
    }
}'