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.
33 lines
1.1 KiB
FortranFixed
33 lines
1.1 KiB
FortranFixed
9 years ago
|
|
||
|
|
C gfortran -fPIC -c mvnprodcorrprb.f
|
||
|
|
C f2py -m mvnprdmod -c mvnprodcorrprb.o mvnprodcorrprb_interface.f --fcompiler=gnu95 --compiler=mingw32 -lmsvcr71
|
||
15 years ago
|
|
||
|
|
C module mvnprdmod
|
||
|
|
C contains
|
||
|
|
subroutine prbnormndpc(prb,abserr,IFT,rho,a,b,N,abseps,releps,
|
||
|
9 years ago
|
& useBreakPoints, useSimpson)
|
||
|
|
use mvnProdCorrPrbMod, ONLY : mvnprodcorrprb
|
||
|
15 years ago
|
integer :: N
|
||
|
|
double precision,dimension(N),intent(in) :: rho,a,b
|
||
|
9 years ago
|
double precision,intent(in) :: abseps
|
||
|
|
double precision,intent(in) :: releps
|
||
|
|
logical, intent(in) :: useBreakPoints
|
||
|
15 years ago
|
logical, intent(in) :: useSimpson
|
||
|
|
double precision,intent(out) :: abserr,prb
|
||
|
9 years ago
|
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
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
15 years ago
|
CALL mvnprodcorrprb(rho,a,b,abseps,releps,useBreakPoints,
|
||
|
9 years ago
|
& useSimpson,abserr,IFT,prb)
|
||
|
|
|
||
|
15 years ago
|
end subroutine prbnormndpc
|
||
|
|
C end module mvnprdmod
|