資源描述：
《C++ Fortran混合編程》由會員上傳分享，免費在線閱讀，更多相關(guān)內(nèi)容在工程資料-天天文庫。
1、C/C++/Fortran混合編程淺談（一）直接鏈接方式????現(xiàn)今流行很多編程語言，在編譯型語言中，C/C++/Fortran語言應用非常廣泛，C以其效率高效底層操作為著稱，C++以其很好的面向?qū)ο箢惪蚣芊盒途幊虨樘攸c，F(xiàn)ortran則以現(xiàn)世存有大量的計算程序而占有重要的位置，在編程中，集合他們?nèi)叩拈L處是個很好的做法?；旌暇幊逃泻芏喾椒?，以下介紹一下基本方法。????????????對于各個編譯器，如果編譯中間的二進制文件.o或.obj的結(jié)構(gòu)相同，則可以直接鏈接混合編程。????遵循約定：C/C
2、++默認傳值，F(xiàn)ortran傳址。一、相同編譯器家族以gcc家族為例，類似的還有IntelCCompiler和IntelFortranCompiler等。1、C和Fortran（1）C調(diào)用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調(diào)用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
