[okey777]

Добрый день!

Есть рабочая программа на Delphi, работающая с dll фортран. последних исходников dll нет.
Пытаюсь вытащить этот модуль в другую программу - выдает ошибку "... access violation at .... read of address ..." (см. вложение). Дело в том, что я пытаюсь даже вручную вызывать модуль в начале выполнения этой же программы - один результат.
Немного упрощенный код и оформленный как library (версия для подключения в Java) приведен во вложении.

Вызывается initialize(); - и выдает ошибку.
При этом если вызвать просто loadAdressGTU(), то после этого процедуры set/get работают - это по сути обращение к common блокам.
Интерфейс программы на фортране при веден во вложении.

Как исправить, подскажите пожалуйста?

[okey777]

ошибку совершил в описании интерфейса фортран программы, правильно так:
SUBROUTINE GTD(INI)
IMPLICIT NONE
cDEC$ ATTRIBUTES DLLEXPORT::GTD
cDEC$ ATTRIBUTES DLLEXPORT:: /DB1/
INTEGER :: INI

COMMON/DB1/ A
REAL*8, DIMENSION(200) :: A