/ open-webui.git / app / env / lib64 / python3.11 / site-packages / numpy / f2py / tests / src / callback / gh25211.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