Fortran的点点滴滴——调用C++

　　前段时间碰见一个问题，需要用Fortran调用一个C++程序，故折腾了半天，找到一些方法，这里把我自己应用的一个方法贴出来。

　　C子程序只要在函数名字加上一个下划线，Fortran就可以调用的，但是C++程序不行，然而，我们可以利用这一点作文章：

 

#C++部分

#首先要声明一下

#ifdef __cplusplus

  extern "C"{

    void compute_( int &, int &, double * );

  }

#endif

#程序的开始

void compute_( int &a, int &b, double c[] )

{

  #程序的主体

}

!Fortran部分

PROGRAM TEST

  IMPLICIT NONE

  INTEGER ：： A，B

  REAL :: C(20)



  !调用C++程序

  CALL COMPUTE（A，B，C）

END PROGRAM

 

还要值得说明一点是，最后编译生成执行程序的时候应加入 -lstdc++参数

　　最终的程序在linux下分别用g++/gfortran组合和g++/ivf组合编译成功。由于对C++仅仅知道些皮毛，很多东西无法详解，要是感兴趣的话可以给我留言讨论。