fixed uprim.f90 and primu.f90