|
|
@ -6,13 +6,13 @@ 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
|
|
|
|
|
|
|
|
|
|
|
|