Create readrpn3.f90