2014 dxdy logo

Научный форум dxdy

Математика, Физика, Computer Science, Machine Learning, LaTeX, Механика и Техника, Химия,
Биология и Медицина, Экономика и Финансовая Математика, Гуманитарные науки




Начать новую тему Ответить на тему
 
 Подключение dll в программе на фортране
Сообщение09.03.2011, 23:04 


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

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


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

 Профиль  
                  
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ 1 сообщение ] 

Модераторы: Karan, Toucan, PAV, maxal, Супермодераторы



Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group