Подключение dll в программе на фортране

[Albom]

Нужно подключить динамическую библиотеку в программе на фортране. Сделал загрузку библиотеки и получил адрес функции. Но вызвать не получается - вызывается, но возвращает совсем не то значение...

Функция в библиотеке (библиотека написана на Си):
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

Заранее спасибо!