/usr/lib64/python2.6/site-packages/numpy/distutils/tests/f2py_f90_ext/include
Edit: /usr/lib64/python2.6/site-packages/numpy/distutils/tests/f2py_f90_ext/include/body.f90 (94B)
subroutine bar13(a)
!f2py intent(out) a
integer a
a = 13
end subroutine bar13