File: foobar-smart.f90

package info (click to toggle)
python-numpy 1%3A1.12.1-3
  • links: PTS, VCS
  • area: main
  • in suites: stretch
  • size: 23,732 kB
  • ctags: 19,262
  • sloc: ansic: 146,995; python: 98,088; cpp: 1,112; makefile: 425; f90: 307; sh: 173; fortran: 169; perl: 58
file content (24 lines) | stat: -rw-r--r-- 868 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
!%f90
module foobar ! in 
  note(This module contains two examples that are used in &
       \texttt{f2py} documentation.) foobar
    interface  ! in :foobar
        subroutine foo(a) ! in :foobar:foo.f
            note(Example of a wrapper function of a Fortran subroutine.) foo
            integer intent(inout),&
                 note(5 is added to the variable {{}\verb@a@{}} ``in place''.) :: a
        end subroutine foo
        function bar(a,b) result (ab) ! in :foobar:bar.f
            integer :: a
            integer :: b
            integer :: ab
            note(The first value.) a
            note(The second value.) b
            note(Add two values.) bar
            note(The result.) ab
        end function bar
    end interface 
end module foobar

! This file was auto-generated with f2py (version:0.95).
! See http://cens.ioc.ee/projects/f2py2e/