RUNG.F  - процедура для решения системы диф. уравнений методом Рунге-Кутты. Содержит цикл для итеративного решения, условием выхода из которого является завершение времени моделирования системы или ошибка. Каждая итерация цикла состоит из 4 последовательных вызовов.