Add files using upload-large-folder tool

986a710 verified 12 months ago

179 Bytes

      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

	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