资源描述：
《C++ Fortran混合编程》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、C/C++/Fortran混合编程浅谈（一）直接链接方式 现今流行很多编程语言，在编译型语言中，C/C++/Fortran语言应用非常广泛，C以其效率高效底层操作为著称，C++以其很好的面向对象类框架泛型编程为特点，Fortran则以现世存有大量的计算程序而占有重要的位置，在编程中，集合他们三者的长处是个很好的做法。混合编程有很多方法，以下介绍一下基本方法。 对于各个编译器，如果编译中间的二进制文件.o或.obj的结构相同，则可以直接链接混合编程。 遵循约定：C/C
2、++默认传值，Fortran传址。一、相同编译器家族以gcc家族为例，类似的还有IntelCCompiler和IntelFortranCompiler等。1、C和Fortran（1）C调用Fortranmain.c#includevoidsub_fortran_(int*,float*,double*);doublefunction_fortran_(double*);intmain(){intnum_int;floatnum_float;doublenum_double;doub
3、lenum;num_int=3;num_float=5.0;sub_fortran_(&num_int,&num_float,&num_double);num=function_fortran_(&num_double);printf("num_int=%dnum_float=%fnum_double=%fnum=%f",num_int,num_float,num_double,num);return0;}sub.f90subroutineSub_Fortran(NumInt,NumFl
4、oat,NumDouble)implicitnoneinteger::NumIntreal::NumFloatreal(8)::NumDoubleNumDouble=NumFloat**NumIntendsubroutinereal(8)functionFunction_Fortran(NumDouble)implicitnonereal(8)::NumDoubleFunction_Fortran=sqrt(NumDouble)endfunctionsub.f90(F2003方式)subroutin
5、eSub_Fortran(NumInt,NumFloat,NumDouble)useISO_C_BINDINGimplicitnoneinteger(c_int)::NumIntreal(c_float)::NumFloatreal(c_double)::NumDoubleNumDouble=NumFloat**NumIntendsubroutinereal(c_double)functionFunction_Fortran(NumDouble)useISO_C_BINDINGimplicitnon
6、ereal(c_double)::NumDoubleFunction_Fortran=sqrt(NumDouble)endfunction链接方法gcc–omain.o–cmain.cgfortran–osub.o–csub.f90gcc–omain.exemain.osub.o或者直接 gcc–omain.exemain.csub.f90输出 (2)Fortran调用Cmain.f90programmainimplicitnoneinterfacesubroutinesub_c(n1,n2,n3)
7、integer::n1real::n2real(8)::n3endsubroutinereal(8)functionfunc_c(n3)real(8)::n3endfunctionendinterfaceinteger::n1real::n2real(8)::n3,n4n1=3n2=5.0callsub_c(n1,n2,n3)n4=func_c(n3)write(*,*)"n1=",n1write(*,*)"n2=",n2write(*,*)"n3=",n3write(*,*)"n4=",n4end
8、programmain.f90(F2003方式)programmainuseISO_C_BINDINGimplicitnoneinterfacesubroutinesub_c(n1,n2,n3)useISO_C_BINDINGinteger(c_int)::n1real(c_float)::n2real(c_double)::n3endsubroutinereal(c_double)functionfunc_c(n3)useISO_C_BINDINGreal(c_do
