如何用f2py写一个genfromtxt?

时间:2015-06-22 15:23:49

标签: python numpy fortran95 f2py genfromtxt

我发现python中来自genfromtxt的函数numpy非常慢。

因此我决定用f2py包装一个模块来读取我的数据。数据是一个矩阵。

subroutine genfromtxt(filename, nx, ny, a)
implicit none
    character(100):: filename
    real, dimension(ny,nx) :: a 
    integer :: row, col, ny, nx
    !f2py character(100), intent(in) ::filename
    !f2py integer, intent(in) :: nx
    !f2py integer, intent(in) :: ny
    !f2py real, intent(out), dimension(nx,ny) :: a

    !Opening file
    open(5, file=filename)

    !read data again
    do row = 1, ny
        read(5,*) (a(row,col), col =1,nx) !reading line by line 
    end do
    close (5)
end subroutine genfromtxt

文件名的长度固定为100,因为如果f2py无法处理动态大小。该代码适用于小于100的大小,否则python中的代码崩溃。

这在python中称为:

import Fmodules as modules
w_map=modules.genfromtxt(filename,100, 50)

如何在不传递nxny作为参数或将filename长度固定为100的情况下动态执行此操作?

2 个答案:

答案 0 :(得分:3)

文件名长度问题很容易处理:你创建文件名:character(len_filename):: filename,将len_filename作为fortran函数的参数,并使用f2py intent(hide)将其隐藏在Python中界面(见下面的代码)。

您不希望传递nxny的问题更复杂,本质上是如何从f2py返回可分配数组的问题。我可以看到两种方法,这两种方法都需要一个(小而轻的)Python包装器来为你提供一个很好的界面。

我还没有解决过如何读取csv文件的问题 - 我刚刚生成并返回了一些虚拟数据。我假设你有一个很好的实现。

方法1:模块级可分配数组

这似乎是一种相当标准的方法 - 我在least one newsgroup post处发现了这一点。你基本上有一个可分配的全局变量,将它初始化为正确的大小,并写入它。

module mod
    real, allocatable, dimension(:,:) :: genfromtxt_output
contains
    subroutine genfromtxt_v1(filename, len_filename)
    implicit none
        character(len_filename), intent(in):: filename
        integer, intent(in) :: len_filename
        !f2py intent(hide) :: len_filename
        integer :: row, col

        ! for the sake of a quick demo, assume 5*6
        ! and make it all 2
        if (allocated(genfromtxt_output)) deallocate(genfromtxt_output)
        allocate(genfromtxt_output(1:5,1:6))

        do row = 1,5
           do col = 1,6
             genfromtxt_output(row,col) = 2
           end do
        end do        

    end subroutine genfromtxt_v1
end module mod

简短的Python包装器看起来像这样:

import _genfromtxt

def genfromtxt_v1(filename):
    _genfromtxt.mod.genfromtxt_v1(filename)
    return _genfromtxt.mod.genfromtxt_output.copy()
    # copy is needed, otherwise subsequent calls overwrite the data

这个问题的主要问题是它不是线程安全的:如果两个Python线程在非常相似的时间调用genfromtxt_v1,那么在你将数据复制出来之前,数据可能会被覆盖。 / p>

方法2:保存数据的Python回调函数

这稍微涉及到我自己发明的可怕黑客攻击。您将数组传递给回调函数,然后将其保存。 Fortran代码如下所示:

subroutine genfromtxt_v2(filename,len_filename,callable)
implicit none
    character(len_filename), intent(in):: filename
    integer, intent(in) :: len_filename
    !f2py intent(hide) :: len_filename
    external callable
    real, allocatable, dimension(:,:) :: result
    integer :: row, col
    integer :: rows,cols

    ! for the sake of a quick demo, assume 5*6
    ! and make it all 2
    rows = 5
    cols = 6
    allocate(result(1:rows,1:cols))
    do row = 1,rows
        do col = 1,cols
            result(row,col) = 2
        end do
    end do        

    call callable(result,rows,cols)

    deallocate(result)
end subroutine genfromtxt_v2

然后,您需要使用f2py -m _genfromtxt -h _genfromtxt.pyf genfromtxt.f90生成“签名文件”(假设genfromtxt.f90是包含Fortran代码的文件)。然后修改“用户例程块”以阐明回调的签名:

python module genfromtxt_v2__user__routines 
    interface genfromtxt_v2_user_interface 
        subroutine callable(result,rows,cols) 
            real, dimension(rows,cols) :: result
            integer :: rows
            integer :: cols
        end subroutine callable
    end interface genfromtxt_v2_user_interface
end python module genfromtxt_v2__user__routines

(即你指定尺寸)。文件的其余部分保持不变。 使用f2py -c genfromtxt.f90 _genfromtxt.pyf

进行编译

小型Python包装器

import _genfromtxt

def genfromtxt_v2(filename):
    class SaveArrayCallable(object):
        def __call__(self,array):
            self.array = array.copy() # needed to avoid data corruption

    f = SaveArrayCallable()
    _genfromtxt.genfromtxt_v2(filename,f)
    return f.array

认为这应该是线程安全的:虽然我认为Python回调函数是作为全局变量实现的,但是默认的f2py不会释放GIL所以没有Python代码可以在全局变量之间运行设置并运行回调。我怀疑你关心这个应用程序的线程安全虽然......

答案 1 :(得分:0)

我认为你可以使用:

filename

处理文件名短于filename的长度。 (也就是说,你可以使nx比它需要的时间长得多,只是在这里修剪它。

我不知道有什么好的干净方法可以消除将nynx传递给fortran子程序的需要。也许你可以以编程方式确定数据文件的大小和形状(例如,读取第一行以查找allocate,调用某个函数或首先通过文件来确定文件中的行数),然后,您可以在找到这些值后a numpy数组。这会减慢一切,所以可能适得其反