擅长:python、mysql、java
<p>我不知道如何使用<code>f2py</code>来实现这一点。但是可以用<code>ctypes</code>来完成。你可以得到一个字符数组,但是你可以很容易地把它转换成字符串。在</p>
<pre><code>subroutine testa4(strvar) bind(C, name='testa4')
use iso_c_binding
implicit none
character(len=1,kind=c_char), intent(in) :: strvar(2,3)
print *, strvar(:,2)
end subroutine testa4
</code></pre>
<p>编译:<code>gfortran -shared -fPIC testa4.f90 -o testa4.so</code></p>
^{pr2}$
<p>运行:</p>
<pre><code>> python testpy.f90
bb
</code></pre>