Создание FORTRAN dll (Compaq visual fortran) для BorlandDelphi

[Vago]

Сообщение от Melfa

И снова здравствуйте!

И Вас туда же!

Сообщение от Melfa

С простой программкой у меня все получилось.

Поздравляю!

Сообщение от Melfa

Теперь возник вопрос, что делать с COMMON-блоками?

На фортрановские COMMON-блоки в таких задачах приходится обращать внимание только если в них находятся переменные (массивы), которые нужны И в другом языке. Если у Вас таковых переменных нет - вообще можете про COMMON-ы забыть.

Сообщение от Melfa

или от них нужно просто избавляться, и делать из 9 подпрограмм одну большую?

Ну, COMMON-блоки и количество подпрограмм никак не связаны друг с другом Подозреваю, что да, Вам нужны все 9 подпрограмм. Всё, из чего автономный фортрановский exe-шник лепился, всё то и здесь понадобится. Только головной модуль как SUBROUTINE нужно будет оформить.

[Melfa]

Просто мне мой научный рыководитель сказал, что с этим могут быть большие проблемы. Насколько я понимаю COMMON-ы нужны для обмена данными между подпрограммами?...

На фортрановские COMMON-блоки в таких задачах приходится обращать внимание только если в них находятся переменные (массивы), которые нужны И в другом языке.

По ходу пьесы так и есть... можно ли где-нибудь почитать про это все дело более подробно?

[Vago]

Сообщение от Melfa

Просто мне мой научный рыководитель сказал, что с этим могут быть большие проблемы.

Ну, большие - не большие, но таки могут.

Сообщение от Melfa

Насколько я понимаю COMMON-ы нужны для обмена данными между подпрограммами?...

Насчёт их "нужности" - это спорный вопрос Точнее будет сказать: "COMMON-ы используются для обмена данными между подпрограммами".

Сообщение от Melfa

можно ли где-нибудь почитать про это все дело более подробно?

Понимаете какая штука... На том уровне, на котором Вы оказались, чтобы этим без страха пользоваться, нужно хоть чуть-чуть знать архитектуру машины. Представление данных разных типов, выравнивание, размещение массивов в ОП, передача по адресу / по значению... Из Си фортрановская общая область достаётся элементарно. Про Паскаль - понятия не имею. Попробуйте в Гугле "FORTRAN Pascal mixed-language programing"...

Сообщение от Melfa

По ходу пьесы так и есть...

Сколько у Вас параметров, оказавшихся в COMMON-ах, к которым Паскаль должен получить доступ (при вызове и перед возвратом)? Вы раньше говорили, что там связь по данным довольно тоненькая...

ADDED 21:01 CET:
Собственно, зачем я спросил "сколько". Если, чтобы пересчитать к-во таких параметров, достаточно пальцев на руках, то можно сделать вот что.

Предположим, шапка оригинального Фортрана выглядит где-то так:

      PROGRAM P
         ...
         COMMON /BL1/ A, B, C, ... ещё стопиццот переменных .., Z
         COMMON /BL2/ ALPHA, BETA, GAMMA, ...ещё мильон имён .., OMEGA
         COMMON /BL3/ N, M, K 
         ...

Предположим, что теперь из Паскаля в Фортран нужно передать значения A (REAL*4), BETA (REAL*4), N (INTEGER*4), а по завершении работы Фортрана, забрать оттуда Z (REAL*4).

Делаете:

      SUBROUTINE P( A_FOO, BETA_FOO, N_FOO, Z_FOO )
         REAL A_FOO, BETA_FOO, Z_FOO
         INTEGER N_FOO
         ...
         COMMON /BL1/ A, B, C, ... ещё стопиццот переменных .., Z
         COMMON /BL2/ ALPHA, BETA, GAMMA, ...ещё мильон имён .., OMEGA
         COMMON /BL3/ N, M, K 

C       ДО первого выполнимого оператора!
         A = A_FOO
         BETA = BETA_FOO
         N = N_FOO
         ...
         ...
         ...
         Z_FOO = Z
         RETURN
      END

Если среди таких параметров оказывается массив, ну - копируете массив, а не просто переменную...

После чего продолжаете жить, как жили, не заморачиваясь существованием в этом мире такой штуки, как фортрановская общая область.

[Melfa]

Вы раньше говорили, что там связь по данным довольно тоненькая...

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

DIMENSION DGLAT(12),DHLAT(12),DKLAT(12),DLLAT(12),DTLAT(12)
      COMMON /LOVE/ DOM0, DOMR, DGLAT, DGR DHLAT, DHR, DKLAT, DKR, DLLAT, DLR,
     1 DTLAT,DTR
      DATA CENDH/'C*********'/
      DATA CMODEL/'DOODSON 1921 ','CTED 1973    ','TAMURA 1987  ',
     1            'BUELLESF.1985'/
      IF(IPRINT.EQ.0) GOTO 10
      WRITE(IUN6,7001) CMODEL(IMODEL+1)
      WRITE(*,7001)    CMODEL(IMODEL+1)
   10 CONTINUE

[Vago]

Ещё раз, медленно...

Если автономная программа на Фортране отлажена, работает, даёт правдоподобные результаты и не ломается, то Вы можете смотреть на неё как на очень тёмно-серый ящик, не забивая себе голову количеством подпрограмм, количеством и структурой COMMON-блоков и даже возможным наличием операторов EQUIVALENCE. Всё это - "внутрифортрановские" проблемы, уже давно решённые автором (Царствие ему Небесное!).

Ваша проблема - определиться: что из описанного в этом фрагменте теперь должно стать доступным для Паскаля?

[Melfa]

Мне нужно все это осмыслить некоторое время
На данном этапе спасибо огромное!