cfortran混合编程

❶ fortran如何调用c语言函数，本人小白，求大神写详细点

你的想法，叫做 “混合编程”，简称“混编”。

混编有多种方式，一般有：
1.直接调用 C 编译后的 exe
2.通过 DLL
3.通过静态 lib
4.通过编译器直接链接Fortran和C的obj

不管是 Fortran 还是 C 的语法，通常不会规定混编的具体内容。这些内容，是不同的编译器自行规定的。（至少绝大多数是）

所以，具体的操作，也因你选择的编译器产品，因你选择的混编方式，而有较大的不同。

所以，我建议你：
1.阅读你使用的 C 编译器和 Fortran 编译器的帮助文档，查看其中关于混合编程（mix-language）的章节。
2.如果你阅读英文帮助有困难，至少告知你使用何种 C编译器，何种 Fortran 编译器。打算采用何种混编方式。

❷ 如何在C语言中调用FORTRAN生成的DLL里的函数

C语言和Fortran混合编程借助于Fortran生成的DLL进行（采用C默认的传址方式进行函数参数传递）方法和实例：
1.Fortran
生成DLL
新建Fortran
DLL程序test1.f
添加如下代码：
！ test1.f90
！
！ FUNCTIONS/SUBROUTINES
exported from test1.dll：
！ test1 -
subroutine
！示例没有返回值的子例程
subroutine
test1(a，b)
！ Expose subroutine test1 to
users of this DLL
！
！DEC$ ATTRIBUTES
C，DLLEXPORT：：test1
！ Variables
！ Body of
test1
integer a，b
integer sum
sum=a+b
return
end subroutine
test1
！示例有返回值的整数四则运算
！两数相加
function
add(a，b)
implicit none
！DEC$ ATTRIBUTES
C，DLLEXPORT：：add
integer
a，b，add
add=a+b
return
end
！两数相减
function
abstract(a，b)
implicit none
！DEC$ ATTRIBUTES
C，DLLEXPORT：：abstract
integer
a，b，abstract
abstract=a-b
return
end
！两数相乘
function
multiply(a，b)
implicit none
！DEC$ ATTRIBUTES
C，DLLEXPORT：：multiply
integer
a，b，multiply
multiply=a*b
return
end
！两数相除
（需要添加考虑被除数是否为0以及能否整除的判断）
function
divided(a，b)
implicit none
！DEC$ ATTRIBUTES
C，DLLEXPORT：：divided
integer
a，b，divided
divided=a/b
return
end
编译后生成test1.dll，test1.obj等文件。其中这两个文件是我们在VC中调用所需要的。