mirror of
https://github.com/numpy/numpy.git
synced 2026-10-29 08:55:25 +08:00
13 lines
223 B
FortranFixed
13 lines
223 B
FortranFixed
C FILE: CALLBACK.F
|
|
SUBROUTINE FOO(FUN,R)
|
|
EXTERNAL FUN
|
|
INTEGER I
|
|
REAL*8 R, FUN
|
|
Cf2py intent(out) r
|
|
R = 0D0
|
|
DO I=-5,5
|
|
R = R + FUN(I)
|
|
ENDDO
|
|
END
|
|
C END OF FILE CALLBACK.F
|