#!/bin/csh
# 
# This script sets header values sx, gx, offset, and cdp using SUs
# version of header math.  The a,b,c,d, and j parameters are used
# for a standard function defined in the SU documentation.  This 
# is set up for common standard reflection acquisition.
#
sushw < rawdata.su key=sx,gx,offset a=0,24,24 b=0,2,2 c=2,2,0 j=24,24,24  \
 | suchw key1=cdp key2=gx key3=sx a=0 b=1 c=1 d=2 > datawgeom.su
