moved computepay.f to week 4