codekingpro/portable-devtools

1      SUBROUTINE FOO(FUN,R)
2      EXTERNAL FUN
3      INTEGER I
4      REAL*8 R, FUN
5Cf2py intent(out) r
6      R = 0D0
7      DO I=-5,5
8         R = R + FUN(I)
9      ENDDO
10      END
11