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

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

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