sneigh.f 10 KB