Добавил:
jarenoeletto
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:
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
real*8 a, b, x, c, d, y
x=4*a*b+4*b
y=5*c*d+4*c
return
end