Externe Funktion aufrufen (Fortran)

Hi,

wie kann ich eine Funktion die auf einer anderen Datei abgespeichert ist aufrufen?

datei1:

Hauptprogramm
aufruf der routine
end

datei 2:

routine

rüdiger

#include <iostream>

extern "C" int ffunc_(char *a,size_t *n); //Achtung, Fortran hat immer Call-by-Reference!

int main(void)
{
  char demo[12]="hello world";
  size_t n=5;

  std::cout << demo << std::endl;
  ffunc_(demo,&n);
  std::cout << demo << std::endl;
}

c C++ String to Fortran Demo
c
c      subroutine ffunc(a,n)
      integer function ffunc(a,n)
      character a(*)
      integer n
c     a is a string with the size of n
      integer i
c
      do 10 i = 1 , n
         a(i) = ' '
 10   continue
c
      return
      end

erstell aus beiden eine Objektdatei und linke sei dann zusammen. Ist eigentlich kinderleicht.

Hi, danke.

Weiss jemand eine Seite mit Tutorial zu Fortran 77 Programmierung??

Bin für jeden Link dankbar!

mfg

rabbit123