move directory structure up, change root to: pywafo/src/* > wafo/*
Before Width: | Height: | Size: 240 KiB After Width: | Height: | Size: 240 KiB |
Before Width: | Height: | Size: 23 KiB After Width: | Height: | Size: 23 KiB |
Before Width: | Height: | Size: 16 KiB After Width: | Height: | Size: 16 KiB |
Before Width: | Height: | Size: 13 KiB After Width: | Height: | Size: 13 KiB |
Before Width: | Height: | Size: 15 KiB After Width: | Height: | Size: 15 KiB |
Before Width: | Height: | Size: 24 KiB After Width: | Height: | Size: 24 KiB |
@ -1,33 +1,33 @@
|
|||||||
|
|
||||||
C gfortran -fPIC -c mvnprodcorrprb.f
|
C gfortran -fPIC -c mvnprodcorrprb.f
|
||||||
C f2py -m mvnprdmod -c mvnprodcorrprb.o mvnprodcorrprb_interface.f --fcompiler=gnu95 --compiler=mingw32 -lmsvcr71
|
C f2py -m mvnprdmod -c mvnprodcorrprb.o mvnprodcorrprb_interface.f --fcompiler=gnu95 --compiler=mingw32 -lmsvcr71
|
||||||
|
|
||||||
C module mvnprdmod
|
C module mvnprdmod
|
||||||
C contains
|
C contains
|
||||||
subroutine prbnormndpc(prb,abserr,IFT,rho,a,b,N,abseps,releps,
|
subroutine prbnormndpc(prb,abserr,IFT,rho,a,b,N,abseps,releps,
|
||||||
& useBreakPoints, useSimpson)
|
& useBreakPoints, useSimpson)
|
||||||
use mvnProdCorrPrbMod, ONLY : mvnprodcorrprb
|
use mvnProdCorrPrbMod, ONLY : mvnprodcorrprb
|
||||||
integer :: N
|
integer :: N
|
||||||
double precision,dimension(N),intent(in) :: rho,a,b
|
double precision,dimension(N),intent(in) :: rho,a,b
|
||||||
double precision,intent(in) :: abseps
|
double precision,intent(in) :: abseps
|
||||||
double precision,intent(in) :: releps
|
double precision,intent(in) :: releps
|
||||||
logical, intent(in) :: useBreakPoints
|
logical, intent(in) :: useBreakPoints
|
||||||
logical, intent(in) :: useSimpson
|
logical, intent(in) :: useSimpson
|
||||||
double precision,intent(out) :: abserr,prb
|
double precision,intent(out) :: abserr,prb
|
||||||
integer, intent(out) :: IFT
|
integer, intent(out) :: IFT
|
||||||
|
|
||||||
Cf2py integer, intent(hide), depend(rho) :: N = len(rho)
|
Cf2py integer, intent(hide), depend(rho) :: N = len(rho)
|
||||||
Cf2py depend(N) a
|
Cf2py depend(N) a
|
||||||
Cf2py depend(N) b
|
Cf2py depend(N) b
|
||||||
Cf2py double precision, optional :: abseps = 0.001
|
Cf2py double precision, optional :: abseps = 0.001
|
||||||
Cf2py double precision, optional :: releps = 0.001
|
Cf2py double precision, optional :: releps = 0.001
|
||||||
Cf2py logical, optional :: useBreakPoints =1
|
Cf2py logical, optional :: useBreakPoints =1
|
||||||
Cf2py logical, optional :: useSimpson = 1
|
Cf2py logical, optional :: useSimpson = 1
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
CALL mvnprodcorrprb(rho,a,b,abseps,releps,useBreakPoints,
|
CALL mvnprodcorrprb(rho,a,b,abseps,releps,useBreakPoints,
|
||||||
& useSimpson,abserr,IFT,prb)
|
& useSimpson,abserr,IFT,prb)
|
||||||
|
|
||||||
end subroutine prbnormndpc
|
end subroutine prbnormndpc
|
||||||
C end module mvnprdmod
|
C end module mvnprdmod
|