как слинковать программу на С++ с фортранной

http://www.neurophys.wisc.edu/comp/docs/notes/not017.html#exam1

Может я не сильна в английском, но не могу там найти, как их вместе скомпелировать.

Товрищ, вот, подсказывает, что вы троллите.

как их вместе скомпелировать

За вами борода волочится.

Троллить не хотела. Но разобраться так и не смогла. =(

Я возможно действительно задаю глупые вопросы, но хочу разобратья. Возможно не правильно применяю терминологию. я только начинаю программировать.

Может сначала научитесь, а потом уже придете?

Вкратце ответ такой: в C++ программе объявляете прототип вызываемой фортановской сабрутины по такому правилу:

1. все объявления заворачиваете в extern «C» {}

2. Имя сабрутины в C++ будет равно имени фортрановской, написанной полностью в нижнем регистре и с подчеркиванием на конце (underscore, _). Например, LAPACK-овская фортрановская сабрутина DSYEV станет dsyev_ в C/C++

3. Все формальные аргументы фортрановской сабрутины должны быть обявлены как ссылки на соотв. C-шный тип. integer -> int*, real*8 -> double*, real -> float*

4. Если сабрутина в Фортране НЕ функция, то она должна возвращать void.

Очевидно собрать их в объектные файлы, а потом слинковать эти файлы вместе.

далее, компиляете (gcc -c) фортрановский код и линкуете все вместе с сишными объектниками.

объектный файл из фортрана создала, но когда пытаюсь скомпелировать Сишный, то он выдает ошибки
main.cpp:4: error: expected initializer before ‘FR1’
main.cpp:5: error: expected initializer before ‘FF1’
main.cpp: In function ‘int main()’:
main.cpp:10: error: ‘FR1’ was not declared in this scope
main.cpp:12: error: ‘FF1’ was not declared in this scope

Спасибо за ответ/

У меня слинковать не получается. Все что Вы написали насколько я понимаю выполнено в выше указанных программах. как их запустить.

Зы/ а чтобы научиться мне куда пойти?

Внимательно читали? В C имя ваших фортрановский функций — fr1_ и ff1_, соответственно.

напишите вот что (привожу пример только для первой)

extern "C" {
  void fr1_(int*);
}

И далее ее вызываете в main() как полагается. компилируете фортрановский код: g77 -c fortran.f, компилируйте с-шный, линкуете все вместе. Будете тестировать — не забудьте закомментировать все, связанное с FF1

g77 у меня нет, есть gfortran

при компиляции сишного ошибки теже
main.cpp:4: error: expected initializer before ‘fr1_’
main.cpp:5: error: expected initializer before ‘ff1_’
main.cpp: In function ‘int main()’:
main.cpp:10: error: ‘fr1_’ was not declared in this scope
main.cpp:12: error: ‘ff1_’ was not declared in this scope

да уберите вы одну функцию! Отладьте сначала простой случай, а потом за все беритесь

хорошо, но это сути дела не меняет пока.
main.cpp:4: error: expected initializer before ‘fr1_’
main.cpp: In function ‘int main()’:
main.cpp:10: error: ‘fr1_’ was not declared in this scope

Вот такой код компиляется без проблем (g++ -c 1.cpp)

#include <iostream>

extern "C"
{
  void fr1_ (int *, int *);
  int ff1_ (int *);
}
int
main ()
{
  int n = 10, nSq = 1, nCube = 2;
  fr1_ (&n, &nSq);
  std::cout << "The square is:" << nSq << std::endl;
  nCube = ff1_ (&n);
  std::cout << "The Cube is:" << nCube << std::endl;
  return 0;
}

Потом gfortran -c fortran.f

Потом g++ 1.o fortran.o -o myprogram

Вот что получилось у меня

$ ./myprogram
The square is:1
The Cube is:1000

Кстати, сабрутина fr1 у Вас выдает явно что-то странное — сигнатуры С-шного вызова и фортрановской имплементации не совпадают.

Огромное человеческое спасибо!

Огромное человеческое спасибо!

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

Спс! я постараюсь)

а выдавала она не то, потому что я потеряла запятую между N и M.

Вот такой фортран коварный язык: вместо того, чтобы выдать честно сообщение об ошибке, он считает неизвестно что.