Нужно подключить динамическую библиотеку в программе на фортране. Сделал загрузку библиотеки и получил адрес функции. Но вызвать не получается - вызывается, но возвращает совсем не то значение...
Функция в библиотеке (библиотека написана на Си):
double seans1s_alt(int c);
Программа на фортране:
Код:
program MySpectr
use dfwin
use dfport
integer :: x
real*8 :: rrr
integer (handle) lib_handle
pointer (p, seans1s)
lib_handle=LoadLibrary(trim("seans.dll")//char(0))
p=GetProcAddress(lib_handle,trim("seans1s_alt")//char(0))
x=150
rrr=seans1s(x)
print *, rrr
end
function seans1s(x) result (ddd)
integer:: x
real*8 :: ddd
ddd=0
end function seans1s
Заранее спасибо!
