Sophie

Sophie

distrib > Fedora > 17 > i386 > media > updates > by-pkgid > 22f37a60674d908323116eee674722c4 > files > 1105

numpy-1.6.2-1.fc17.i686.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