FORTRAN对CC++函数的调用.doc

《FORTRAN对CC++函数的调用.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、FORTRAN对C/C++函数的调用Fortran对C/C++函数的调用具有很重要的实际意义。全部的WindowsAPI函数都是用C语言编写的。要利用Windows所提供的一些系统功能，如编写多线程程序，进行复杂的文件操作等，不可避免地要使用WindowsAPI函数，这时就存在调用C语言的函数的问题。另外在一些其他的场合，调用C/C++函数也是十分重要的。Fortran调用一般的C函数首先要在声明函数接口的时候要用C属性指出函数采用的是C调用约定。C属性使函数的标识符全部变为小写，这时还要使用ALIAS属性指定函数的标识符。最后还要显示的指出参

2、数传递方式。例如下面的一个C函数：intFact(intn){if(n>1)return(n*Fact(n-1));return1;}调用它的Fortran主程序为：PROGRAMMAININTERFACEINTEGER(4)FUNCTIONFact(n)!MS$ATTRIBUTESC,ALIAS:’Fact’::FactINTEGER(4)n!MS$ATTRIBUTESVALUE::nENDFUNCTIONENDINTERFACEIUNTEGER(4)NN=10WRITE(*,*)’FACTIONALOF’,N,’IS’,Fact(N)END

3、但是，如果上面的函数Fact是在C++程序中定义的，那么如果要在Fortran中对它进行调用，Fact的定义是必须写为下面的形式才能为Fortran程序调用。Extern“C”intFact(intn){if(n>1)return(n*Fact(n-1));return1;}WindowsAPI函数虽然是用C语言编写的。但是它采用的调用约定为STDCALL约定，这一点需要注意。另外读者可以参考FORTRANPOWERSTATION为实现WindowsAPI接口而提供的模块的源程序，如msfwin.f90，mt.f90。