Program sfmodtraceq | Generate single trace with Q attenuation for viscoelastic media. 
[SYNOPSIS]
sfmodtraceq > out.rsf at= q= verb=n n1=1000 d1=0.001 o1=0. nc=1 fm=50
[PARAMETERS]
ints    | at | = |   | 	(at=[at1,at2,...] layer quality factor)  [nc]
float   | d1 | =0.001 |   | 	sampling on time axis 
int     | fm | =50 |   | 	dominant frequency of Ricker wavelet 
int     | n1 | =1000 |   | 	size of time axis 
int     | nc | =1 |   | 	number of layer 
float   | o1 | =0. |   | 	origin on time axis 
ints    | q | = |   | 	(q=[q1,q2,...] layer quality factor)  [nc]
bool    | verb | =n |  [y/n] | 	basic parameters 
[DIRECTORY]
user/yliu
