A Mathematica notebook to calculate f1 from tabulated f2 atomic form factors