C++ call from fortran http://www.neurophys.wisc.edu/comp/docs/not017/

compile.bat

g++ -c test.cpp -o test.o

main.f90

INTEGER CR2
N=10
CALL CR1(N,M)
WRITE(6,20) N,M
20 FORMAT(' The square of',I3,' is',I4)
K=CR2(N)
WRITE(6,30) N,K
30 FORMAT(' The cube of',I3,' is',I15)
CALL EXIT
END

test.cpp

      extern "C" 
      {
	void __stdcall CR1(int *,int *);
	int __stdcall CR2(int *);
      }
      void __stdcall CR1(int *n, int *m)
      {
	// Compute the square of n, return in m
	int k;
	k=*n;
	*m=k*k;
	return;
      }
      int __stdcall CR2(int *n)
      //  Compute the cube of n
      {
        int m,k;
	k=*n;
        m=k*k*k;
	return m;
      }