# Copyright 1999 Arnica Resources
# All Rights Reserved
#
# Program Name : rename.ak
# Author       : Eric Keyser
# Email        : gekeyser@home.com
# Date         : August 11, 1999
#
# You are free to copy and distribute this awk. This permission notice
# must be preserved complete on all complete or partial copies.
#
#rename.ak
#awk to rename a group of seisx lines
BEGIN {}
{split($1,Line,".")
printf("mv %s %s.STK.3.sgy\n",$1, Line[1])}
END {}