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 f2py -m mvnprdmod -c mvnprodcorrprb.o mvnprodcorrprb_interface.f --fcompiler=gnu95 --compiler=mingw32 -lmsvcr71
|
||||
|
||||
C gfortran -fPIC -c mvnprodcorrprb.f
|
||||
C f2py -m mvnprdmod -c mvnprodcorrprb.o mvnprodcorrprb_interface.f --fcompiler=gnu95 --compiler=mingw32 -lmsvcr71
|
||||
|
||||
C module mvnprdmod
|
||||
C contains
|
||||
subroutine prbnormndpc(prb,abserr,IFT,rho,a,b,N,abseps,releps,
|
||||
& useBreakPoints, useSimpson)
|
||||
use mvnProdCorrPrbMod, ONLY : mvnprodcorrprb
|
||||
& useBreakPoints, useSimpson)
|
||||
use mvnProdCorrPrbMod, ONLY : mvnprodcorrprb
|
||||
integer :: N
|
||||
double precision,dimension(N),intent(in) :: rho,a,b
|
||||
double precision,intent(in) :: abseps
|
||||
double precision,intent(in) :: releps
|
||||
logical, intent(in) :: useBreakPoints
|
||||
double precision,intent(in) :: abseps
|
||||
double precision,intent(in) :: releps
|
||||
logical, intent(in) :: useBreakPoints
|
||||
logical, intent(in) :: useSimpson
|
||||
double precision,intent(out) :: abserr,prb
|
||||
integer, intent(out) :: IFT
|
||||
|
||||
Cf2py integer, intent(hide), depend(rho) :: N = len(rho)
|
||||
Cf2py depend(N) a
|
||||
Cf2py depend(N) b
|
||||
Cf2py double precision, optional :: abseps = 0.001
|
||||
Cf2py double precision, optional :: releps = 0.001
|
||||
Cf2py logical, optional :: useBreakPoints =1
|
||||
Cf2py logical, optional :: useSimpson = 1
|
||||
|
||||
|
||||
|
||||
integer, intent(out) :: IFT
|
||||
|
||||
Cf2py integer, intent(hide), depend(rho) :: N = len(rho)
|
||||
Cf2py depend(N) a
|
||||
Cf2py depend(N) b
|
||||
Cf2py double precision, optional :: abseps = 0.001
|
||||
Cf2py double precision, optional :: releps = 0.001
|
||||
Cf2py logical, optional :: useBreakPoints =1
|
||||
Cf2py logical, optional :: useSimpson = 1
|
||||
|
||||
|
||||
|
||||
CALL mvnprodcorrprb(rho,a,b,abseps,releps,useBreakPoints,
|
||||
& useSimpson,abserr,IFT,prb)
|
||||
|
||||
& useSimpson,abserr,IFT,prb)
|
||||
|
||||
end subroutine prbnormndpc
|
||||
C end module mvnprdmod
|