-
Notifications
You must be signed in to change notification settings - Fork 2
/
fortran_ext.pyf
39 lines (37 loc) · 1.66 KB
/
fortran_ext.pyf
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
! -*- f90 -*-
! Note: the context of this file is case sensitive.
python module fortran_ext ! in
interface ! in :fortran_ext
subroutine z2rank(r,mat,nr,nc) ! in :fortran_ext:fortran_ext.f90
integer, intent(out) :: r
integer, dimension(nr,nc) :: mat
integer, intent(hide), depend(mat) :: nr=shape(mat,0)
integer, intent(hide), depend(mat) :: nc=shape(mat,1)
end subroutine z2rank
module ipu ! in :fortran_ext:fortran_ext.f90
integer, allocatable,dimension(:) :: a
integer, allocatable,dimension(:) :: c
integer, allocatable,dimension(:) :: b
integer :: na
integer :: nb
integer :: nc
subroutine setab(a0,b0,na,nb) ! in :fortran_ext:fortran_ext.f90:ipu
integer dimension(na) :: a0
integer dimension(nb) :: b0
integer, intent(hide), depend(a0) :: na=len(a0)
integer, intent(hide), depend(b0) :: nb=len(b0)
end subroutine setab
subroutine overlap(dups) ! in :fortran_ext:fortran_ext.f90:ipu
integer, intent(out) :: dups
end subroutine overlap
subroutine merge ! in :fortran_ext:fortran_ext.f90:ipu
end subroutine merge
subroutine combine ! in :fortran_ext:fortran_ext.f90:ipu
end subroutine combine
subroutine intersect ! in :fortran_ext:fortran_ext.f90:ipu
end subroutine intersect
end module ipu
end interface
end python module fortran_ext
! This file was auto-generated with f2py (version:2).
! See http://cens.ioc.ee/projects/f2py2e/