Fotran code and results for calculation internal waves for horizontal disk