Files
sics/difrac/peaksr.f