python3 下ctypes 语法换了吗？怎么论坛的例子都有错误啊？

phost

首先是pasuka 大侠的例子fortran 源码：

[Fortran] 纯文本查看 复制代码

查看代码

打印?

01	module py2f90

02	use,intrinsic::iso_c_binding

03	implicit none

04

contains

05	subroutine transferMat2For(matrix,n1,n2)bind(c,name='array2py')

06	implicit none

07	integer(c_int),intent(in),value::n1,n2

08	real(c_float),intent(out)::matrix(n1,n2)

09	integer::i,j

10	! initialize matrix

11	matrix = 0.0E0

12

! loop

13

do i=1,n1

14

do j=1,n2

15	matrix(i,j) = real(i,4)*1.E1+real(j,4)*2.E0

16	write(*,"('Row:',i4,1x,'Col:',i4,1x,'Value:',1x,F5.2)")i,j,matrix(i,j)

17

enddo

18

enddo

19

return

20	end subroutine

21	end module

python 源码：

[Fortran] 纯文本查看 复制代码

查看代码

打印?

01	import numpy as np

02	from numpy.ctypeslib import load_library,ndpointer

03	from ctypes import c_int

04

05	# shape of 2d array

06	n1,n2 = 2,4+1

07	# create an empty 2d array

08	data = np.empty(shape=(n1,n2),dtype='f4',order='f')

09

10	flib = load_library("mydll.dll","./")

11	flib.argtypes = [ndpointer(dtype='f4',ndim=2),c_int,c_int]

12	flib.array2py(data.ctypes.data,n1,n2)

python 编译运行，提示Traceback (most recent call last):  File "E:/try/python/t1/t1.py", line 12, in <module>    flib.array2py(data.ctypes.data,n1,n2)  File "F:\software\anaconda\lib\ctypes\__init__.py", line 369, in __getattr__    func = self.__getitem__(name)  File "F:\software\anaconda\lib\ctypes\__init__.py", line 374, in __getitem__    func = self._FuncPtr((name_or_ordinal, self))AttributeError: function 'array2py' not found
啥情况啊?我的python 版本3.73,64位，intel visual fortran 64位。。。。谢谢大侠指点。