SUBROUTINE def_lanczos RETURN END SUBROUTINE def_lanczos