#!/bin/tcsh
#< wei2sto
#
# Usage
# wei2sto weifile stofile
#>
if ($#argv < 1)  then
    head -6 $0
  exit
else

set weifile=$argv[1]
set stofile=$argv[2]

# wei: mx-my-hx-hy-z
# sto:  z-hx-hy-mx-my
########################################################
echo " < $weifile Re | Transp plane=45 | Transp plane=35 | Transp plane=25 | Transp plane=14 >$stofile"
       < $weifile Re | Transp plane=45 | Transp plane=35 | Transp plane=25 | Transp plane=14 >$stofile
echo "label1=z label2=hx label3=hy label4=mx label5=my">>$stofile