обратный вызов Python из Fortran

Теперь я использую f2py для вызова функции Python из кода Fortran. Я попробовал очень простой пример, но он не сработал.

Код Фортран90:

subroutine foo(fun,r)
external fun
integer ( kind = 4 ) i
real ( kind = 8 ) r
r=0.0D+00
do i= 1,5
    r=r+fun(i)
enddo
end

используя командную строку:

f2py -c -m обратный вызов callback.f90

Код Python:

import callback

def f(i):
    return i * i
print callback.foo(f)

Ошибка:

Traceback (most recent call last):
  File "<stdin>", line 1, in <module>
TypeError: `Required argument 'r' (pos 2) not found`

python callback fortran90 f2py
person lbjx    schedule 19.06.2013    source источник
comment
Я не эксперт по python, но разве ошибка не предполагает, что необходимы два аргумента?   -  person Kyle Kanos    schedule 20.06.2013
comment
Привет, я решил проблему. То, с чем я столкнулся, не было еще одним аргументом, который был нужен. Я пробовал другой .pyf, используя командную строку для автоматического создания и решения, какой аргумент должен быть входным значением, а какой - выходным значением. Тогда проблема в том, что когда я вызываю функцию, тип аргументов не совпадает. Поэтому я зафиксировал r как целое число, и проблема была решена.   -  person lbjx    schedule 20.06.2013

Ответы (2)


arrow_upward
0
arrow_downward

Вам нужно объявить r как возвращаемое значение... в любом случае это хорошая практика Fortran 90. Прямо сейчас f2py предполагает, что это входное значение.

subroutine foo(fun,r)
    external fun
    real ( kind = 8 ), intent(out) :: r
    integer ( kind = 4 )           :: i
    r=0.0D+00
    do i= 1,5
        r=r+fun(i)
    enddo
end

f2py использует директивы Fortran для определения того, что передается функции и что возвращается.

person SethMMorton    schedule 20.06.2013

arrow_upward
0
arrow_downward

питон:

# -*- coding: utf-8 -*-
import MArray

print MArray.__doc__
print MArray.s1dim_array.__doc__
print MArray.s2dim_array.__doc__

print "="*60
print help(MArray)
print "="*60
print help(MArray.s1dim_array)


print "="*60
MArray.s1dim_array([6.,7.,8.])


print "="*60
MArray.s2dim_array([[6.,7.,8.],[1,2,3]])




subroutine S1dim_Array (iN_dim, rArray)
  implicit none  
  integer,  intent(in) :: iN_dim
  real,     intent(in) :: rArray(iN_dim)
  print*, iN_dim
  print*, rArray
  Return
End subroutine


subroutine S2dim_Array (iN_Row, iN_Col, rArray)
  implicit none  
  integer,  intent(in) :: iN_Row, iN_Col
  real,     intent(in) :: rArray(iN_Row, iN_Col)
  integer :: i , j
  print*, iN_Row, iN_Col
  do i = 1 , iN_Row
    write(*,*) (rArray(i,j), j = 1,iN_Col)
  enddo
  Return
End subroutine
person xiaoqing.zeng    schedule 20.06.2013
comment
извините, я не понял идею. Проблема в том, что я пытаюсь сначала вызвать код фортрана из python, а затем вызвать функцию python из фортрана. Должна быть внешняя часть в фортране - person lbjx; 20.06.2013