11月17日

11月17日

c++调用fortran

用intel fortran 编译器编译fortran 代码，设置以下地方

fortran->compatibility->enable f77 runtime compatibility     true

fortran->compatibility->use f77 integer constants                  true

fortran->diagnostics->check routine interfaces                       no

fortran->external procedures->append underscore to external names        yes

在c++调用方

写

extern"C" {

void DGPADM_(INTEGER * ideg, INTEGER * m, double * t, double * H,

             INTEGER * ldh, double * wsp, INTEGER * lwsp, 

             INTEGER * ipiv, INTEGER * iexph, INTEGER * ns, INTEGER * flag);

}

注意DGPADM才是本来fortran函数名，也就是说c++调用时需要在函数名后加下划线

ETIME是unix提供的一个fortran 函数，替换成CPU_TIME,具体如下

      T1 = ETIME( TARRAY )

      call CPU_TIME(T1)

来自为知笔记(Wiz)