создание fortran dll для c++

[Davlet M]

в с++ пишу:

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;

  float C = 5.2;
  float A = 2.08;
  float D1 = 0.26;
  float E1 = 9.2;
  float B1 = 2.6;
  float FU1 = 30.0;
  float FU2 = 57.0;
  float KU = 100;
  float JI = 1;
  float J1 = 3;
  float VH = 1.5;
  float ST1 = 0.66;
  float ZA = 0.173;
  float ZB = 0.173;
  float K1 = 20;


int maino() {

   HMODULE  hDll ;
   int rCode = 0;


   hDll = LoadLibrary( "ACHH1.dll" ) ; // handler to the loaded DLL
   if ( hDll == NULL ) 
     {  
       Application->MessageBox("1",MB_OK);
       return -1 ;
     }

   typedef float __stdcall ACHH( float*, float*, float*, float*, float*,
                                 float*, float*, float*, float*, float*,
                                 float*, float*, float*, float*, float*) ;     
   ACHH* pACHH = (ACHH*) GetProcAddress( hDll, "ACHH" );
   if ( pACHH == NULL )
     {   
       Application->MessageBox("2",MB_OK);
       return -1 ;
     }

   rCode = (long) (*pACHH)(&C,&A,&D1,&E1,&B1,&FU1,&FU2,
                           &KU,&JI,&J1,&VH,&ST1,&ZA,&ZB,&K1);
   if ( rCode == 0 ) 
    {
     Application->MessageBox("!!!",MB_OK);
    }
   return rCode ;

   FreeLibrary(hDll);

}

в фортране пишу:

 FUNCTION ACHH(C,A,D1,E1,B1,FU1,FU2,KU,JI,J1,VH,ST1,ZA,ZB,K1)
	!DEC$ ATTRIBUTES DLLEXPORT::ACHH 
            .............................................................

может я неправильно создаю длл, или может имеет значение, что у меня в головном модуле фортрана вызываются сабрутины??

[Vago]

О, так она ещё и гуёвая будет Это Вы фортрановские отладочные PRINT-ы долго будете вспоминать "незлим тихим"...

Замените здесь

!DEC$ ATTRIBUTES DLLEXPORT::ACHH

DEC на MS:

!MS$ ATTRIBUTES DLLEXPORT::ACHH

Постройте DLL. Просмотрите её любым вьювером (не обязательно 16-ричным; <F3> в Total Commander достаточно). Попытайтесь найти имя _ACHH@64 Есть такое?

[Davlet M]

есть такое вот: ACHH1.dll _ACHH@60

[Vago]

Вот чёрт, уже до пятнадцати сосчитать не могу! :D
Ну теперь в C++ в параметрах GetProcAddress() меняйте ACHH на это самое _ACHH@60 . Думаю, что по крайней мере войти теперь она в Фортран войдёт...

[Davlet M]

Огромное спасибо))

[Vago]

Пожалуйста Теперь Вам, как Вы уже поняли, пока межпрограммный интерфейс не устаканится, придётся следить за списком параметров Добавили параметр - увеличилось на 4 число после собаки в имени точки входа. Удалили - уменьшилось. 4*количество_параметров там обычно стоит.

Ну и ещё. Совершенно не зная, что у Вас за задача и что за методы, подумал бы, тем не менее, о переходе на восьмибайтовую плавающую арифметику. Сейчас уже не ЕСовские времена, когда каждый байт и каждая минута машинного времени были на вес золота.

[Davlet M]

еще такой вопрос, можно ли как-то ожидать завершения этой длл?

[Vago]

Не совсем понял вопрос. Что значит "завершение dll"? Есть понятие "выход из подпрограммы" или "возврат в вызывающую программу". В фортрановской подпрограмме происходит по оператору RETURN и по своей идеологии ничем не отличается от возврата по return в C / C++.

[Davlet M]

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

[Vago]

Откуда там "не успевает"? Откуда там взяться распараллеливанию? Обычный CALL, только из C++. Ну поставьте, для отладки, в Фортране ввод какого-нибудь фиктивного значения, чтобы притормозить выполнение, непосредственно перед возвратом, а в C++ - контрольную печать сразу после вызова. Неужели возникнет случай, когда печать появится раньше запроса на ввод?