solve_hf.f90 8.31 KB