Aufruf eines Fortran-90-Unterprogramms von c++

cpp Hauptprogramm

#include 

extern "C" { void myup_(int * i, int * n, int * summe);}

int main(){
	int i; int n = 10;
	int summe = 0;
	myup_( &i, &n, &summe);
	std::cout << "Die Summe der Zahlen von 1 bis " << n ;
	std::cout << " ist " << summe << std::endl;
}

Das Fortran-90-Unterprogramm

 subroutine myup(i,n,summe)
 implicit none
 integer :: i, n, summe
    do i=1, n
      summe = summe+i
    end do
 end subroutine myup