real(8) function fun(x)
real(4)::x
if(x==0.0) then; fun=0.0;else;fun=EXP(x);endif
end function fun
Вопрос по Фортрану - функция!!!!!!!!!!!!!!!!!!!!!!!!!!!
Такая проблема: исспользую встроенную функцию вычисления интеграла call qdawo(f,a,b,iweigh,omega,errabs,errrel,result,errest). Вот тут а это подинтегральная функция. Условие выдвинутое функцией qdawo, что а должна быть external. И потом f описываеться так:
Проблема ЗАКЛЮЧАЕТСЯ в том что я никак не могу передать в эту функцию значения... например мне нужно вычислить значение не от EXP(x), а от Q*EXP(x), где Q - константа. Вариант что констранту можно вынести на интеграл не подходит, т.к. в исходной моей задаче уж очень много придётся выносить таких общих множителей... Как можно решить эту проблему???? Заранее благодарю за помощью!!!!!!!!
Код:
Проблема ЗАКЛЮЧАЕТСЯ в том что я никак не могу передать в эту функцию значения... например мне нужно вычислить значение не от EXP(x), а от Q*EXP(x), где Q - константа. Вариант что констранту можно вынести на интеграл не подходит, т.к. в исходной моей задаче уж очень много придётся выносить таких общих множителей... Как можно решить эту проблему???? Заранее благодарю за помощью!!!!!!!!
Напиши еще одну функцию, уже с Q внутри...