Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

Лабы / 8 / lr8

.f
Скачиваний:
25
Добавлен:
03.08.2018
Размер:
138 б
Скачать
subroutine fun(a, b, x, c, d, y)
real*8 a, b, x, c, d, y
x=4*a*b+4*b
y=5*c*d+4*c
return
end
Соседние файлы в папке 8