Sophie

Sophie

distrib > Fedora > 14 > x86_64 > by-pkgid > 8fa1e4296360f3be1a3b549c79f675b4 > files > 1020

numpy-1.4.1-6.fc14.x86_64.rpm

C FILE: FTYPE.F
      SUBROUTINE FOO(N)
      INTEGER N
Cf2py integer optional,intent(in) :: n = 13
      REAL A,X
      COMMON /DATA/ A,X(3)
      PRINT*, "IN FOO: N=",N," A=",A," X=[",X(1),X(2),X(3),"]"
      END
C END OF FTYPE.F