complete RPA.f90