file shftex.f loaded (still under work)