callback Python from Fortran

Question

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

Fortran90 код:

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 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` 

Answer 1

Вам необходимо объявить 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, чтобы определить то, что передается в функцию и что возвращается.

Answer 2

питон:

# -*- 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