SUHTMATH - do unary arithmetic operation on segy traces with 	
	     headers values					

 suhtmath <stdin >stdout				

 Required parameters:						
	none							

 Optional parameter:						
	key=tracl	header word to use			
	op=nop		operation flag				
			nop   : no operation			
			add   : add header to trace		
			mult  : multiply trace with header	
			div   : divide trace by header		

	scale=1.0	scalar multiplier for header value	
	const=0.0	additive constant for header value	

 Operation order:						",      

 op=add:	out(t) = in(t) + (scale * key + const)		
 op=mult:	out(t) = in(t) * (scale * key + const)		
 op=div:	out(t) = in(t) / (scale * key + const)		

 Credits:
	Matthias Imhof, Virginia Tech, Fri Dec 27 09:17:29 EST 2002