Create eigen_solve_singleton.f90