You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
30 lines
1.6 KiB
Plaintext
30 lines
1.6 KiB
Plaintext
15 years ago
|
! File diffsumfunq.pyf
|
||
|
|
python module diffsumfunq
|
||
|
|
interface
|
||
|
|
subroutine disufq(rvec, ivec, rA, iA, w, kw, h, g,nmin,nmax, m, n)
|
||
|
|
intent(c) disufq ! disufq is a C function
|
||
|
|
intent(c) ! all disufq arguments are considered as C based
|
||
|
|
integer intent(hide), depend(rA),check(n==shape(iA,0)) :: n=shape(rA,0)
|
||
|
|
integer intent(hide), depend(rA), check(m==shape(iA,1)) :: m=shape(rA,1)
|
||
|
|
double precision dimension(n,m), intent(in) :: rA, iA ! input array
|
||
|
|
double precision dimension(n), intent(in) :: w, kw ! input array
|
||
|
|
double precision intent(in) :: h, g
|
||
|
|
integer intent(in) :: nmin, nmax
|
||
|
|
double precision dimension(n,m), intent(out) :: rvec, ivec ! output array,
|
||
|
|
end subroutine disufq
|
||
|
|
|
||
|
|
subroutine disufq2(rsvec, isvec,rdvec, idvec, rA, iA, w, kw, h, g,nmin,nmax, m, n)
|
||
|
|
intent(c) disufq2 ! disufq2 is a C function
|
||
|
|
intent(c) ! all disufq2 arguments are considered as C based
|
||
|
|
integer intent(hide), depend(rA),check(n==shape(iA,0)) :: n=shape(rA,0)
|
||
|
|
integer intent(hide), depend(rA), check(m==shape(iA,1)) :: m=shape(rA,1)
|
||
|
|
double precision dimension(n,m), intent(in) :: rA, iA ! input array
|
||
|
|
double precision dimension(n), intent(in) :: w, kw ! input array
|
||
|
|
double precision intent(in) :: h, g
|
||
|
|
integer intent(in) :: nmin, nmax
|
||
|
|
double precision dimension(n,m), intent(out) :: rsvec, isvec, rdvec, idvec ! output array,
|
||
|
|
|
||
|
|
end subroutine disufq
|
||
|
|
|
||
|
|
end interface
|
||
|
|
end python module diffsumfunq
|