本文深入解析python通过ctypes调用fortran函数时出现“typeerror: wrong type”错误的根本原因，重点说明fortran默认按引用传递整型参数、字符长度传递约定及ctypes类型声明的正确写法。
本文深入解析python通过ctypes调用fortran函数时出现“typeerror: wrong type”错误的根本原因，重点说明fortran默认按引用传递整型参数、字符长度传递约定及ctypes类型声明的正确写法。
在Python中通过ctypes调用Fortran编译生成的动态链接库（如 .dll 或 .so）是一项常见但易出错的任务。上述报错 ctypes.ArgumentError: argument 3:
? 核心问题：Fortran的参数传递机制与ctypes类型映射失配
Fortran子程序默认所有参数均按地址（reference）传递，包括整数（integer）。而Python中ct.c_int(0)创建的是一个值对象（value object），其本身不是指针；若在argtypes中错误声明为ct.c_int，ctypes会在调用时尝试将该值“按值传入”，导致类型校验失败——这正是argument 3: wrong type的直接原因。
✅ 正确做法是：对Fortran中intent(out)或intent(inout)的整型参数，argtypes必须声明为指针类型：
ct.POINTER(ct.c_int)
而非 ct.c_int。
立即学习“Python免费学习笔记（深入）”；
此外，Fortran中character(*)参数虽以c_char_p（即char*）形式传入，但其长度信息不嵌入字符串本身，也不作为独立参数 interleaved 传入，而是作为额外的、位于参数列表末尾的整型参数（由编译器自动附加）。因此，len(x)应作为最后一个参数传递，且其类型推荐使用平台无关的 ct.c_size_t（对应C标准中的size_t），而非硬编码的ct.c_int。
✅ 修正后的完整调用代码
import ctypes as ct
import sys
lib = ct.CDLL('FTN_lib.dll')
fs = getattr(lib, 'PY_OBJFUN_MOD_mp_GETSIZE')
# ✅ 正确声明 argtypes：
# - c_char_p 对应 character(*)
# - POINTER(c_int) 对应每个 integer intent(out) 参数
# - c_size_t 对应隐式追加的字符串长度（置于末尾）
fs.argtypes = [
ct.c_char_p, # file: character(*), intent(in)
ct.POINTER(ct.c_int), # n: integer, intent(out)
ct.POINTER(ct.c_int), # nl: integer, intent(out)
ct.POINTER(ct.c_int), # nnl: integer, intent(out)
ct.c_size_t # len(file): 长度参数，放在最后
]
fs.restype = None
# 构造字节字符串（注意：Fortran通常期望ASCII/ISO-8859-1，避免UTF-8多字节）
x = b'x ' + sys.argv[1].encode('latin-1') + b' debug=900'
# 创建可被修改的整数变量（byref需基于c_int实例）
n = ct.c_int(0)
nl = ct.c_int(0)
nnl = ct.c_int(0)
# ✅ 调用顺序必须严格匹配 argtypes 声明：
# 字符串 → n指针 → nl指针 → nnl指针 → 字符串长度
fs(x, ct.byref(n), ct.byref(nl), ct.byref(nnl), len(x))
print(f"n={n.value}, nl={nl.value}, nnl={nnl.value}")⚠️ 关键注意事项
- 字符串编码：Fortran运行时通常不支持UTF-8多字节序列。建议统一使用 'latin-1' 编码（1:1字节映射），避免解码异常。
- 长度参数位置：len(x) 必须作为最后一个参数传入，不可插入在中间。这是gfortran/ifort等主流编译器的ABI约定。
- ct.byref() vs ct.pointer()：ct.byref(x) 更高效且专用于函数调用；ct.pointer(x) 返回新指针对象，一般无需使用。
- argtypes 不是可选的：虽然省略argtypes可能“偶然成功”，但会禁用类型检查，极易引发内存崩溃（segmentation fault）或静默错误。始终显式声明 argtypes 是生产环境最佳实践。
- 调试技巧：若仍报错，可用 ctypes.util.find_library() 验证DLL路径，并用 objdump -t FTN_lib.dll | grep GETSIZE 检查符号是否导出（注意名称修饰，如gfortran常为小写+下划线）。
掌握Fortran与C混合编程的ABI细节，是打通科学计算Python化落地的关键一环。精准匹配argtypes不仅是语法要求，更是内存安全与结果可靠性的基石。
