contrib/python/numpy/py2/numpy/f2py/src/test/foo90.f90


1
2
3
4
5
6
7
8
9
10
11
12
13

subroutine foo()
  integer a
  real*8 b,c(3)
  common /foodata/ a,b,c
  print*, "   F: in foo"
  a = 5
  b = 6.3
  c(2) = 9.1
end subroutine foo