Example Calculations Using Sivers.m (Oct 18, 2011).

Clear["Global *"]

<</local12/rogers/SiversMath/UpToDateSept22/forwebpage/Sivers.m

?TorinoUpSivers
?BochumUpSivers
?TorinoDownSivers
?BochumDownSivers

Plot[{-2 Pi kt^3 TorinoUpSivers[.1,kt,Sqrt[2.4]],-2 Pi kt^3 TorinoUpSivers[.1,kt,2],-2 Pi kt^3TorinoUpSivers[.1,kt,3],-2 Pi kt^3TorinoDownSivers[.1,kt,4]},{kt,0,3},PlotRange-> {0,1.5}] 
Plot[{-2 Pi kt^3 BochumUpSivers[.1,kt,Sqrt[2.4]],-2 Pi kt^3 BochumUpSivers[.1,kt,2],-2 Pi kt^3BochumUpSivers[.1,kt,3],-2 Pi kt^3BochumUpSivers[.1,kt,4]},{kt,0,3},PlotRange-> {0,1.5}]