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 | ||||||