
set per0 = ( 20    22     25    29     35    40    50     59     66    83    100 ) 
set vel0 = ( 3.36  3.41   3.50  3.59   3.66  3.70  3.77  3.82    3.84  3.88  3.92 ) 

set smooth_len = 65




foreach id ( 6 ) 

set vel = $vel0[$id]
set per = $per0[$id]
echo $vel $per
echo $vel > tempinp
echo ${per}.cut8001000.sac.am.dat >> tempinp
echo sens${per}s${smooth_len}km.dat     >> tempinp
echo  $smooth_len                         >> tempinp

sensitivity < tempinp


end
