replaced tabs with spaces

master
pbrod 9 years ago
parent 775af065f6
commit 9fe22b32a9

@ -8,9 +8,9 @@
double precision HNC,EPS double precision HNC,EPS
double precision PRB, BOUND double precision PRB, BOUND
double precision, parameter :: infinity = 37.0d0 double precision, parameter :: infinity = 37.0d0
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 integer, optional :: NDF = 0 Cf2py integer, optional :: NDF = 0
Cf2py double precision, optional :: abseps = 0.001 Cf2py double precision, optional :: abseps = 0.001
Cf2py double precision, optional :: HNC = 0.24 Cf2py double precision, optional :: HNC = 0.24
@ -25,7 +25,7 @@ CCf2py intent(in) INF
CCf2py intent(in) A,B,rho CCf2py intent(in) A,B,rho
* Set INFIN INTEGER, array of integration limits flags: * Set INFIN INTEGER, array of integration limits flags:
* if INFIN(I) < 0, Ith limits are (-infinity, infinity); * if INFIN(I) < 0, Ith limits are (-infinity, infinity);
* if INFIN(I) = 0, Ith limits are [LOWER(I), infinity); * if INFIN(I) = 0, Ith limits are [LOWER(I), infinity);
@ -56,7 +56,7 @@ C D(Ndim) = D(K)
CALL MVSTUD(NDF,B,A,RHO,ABSEPS,Ndim,INFIN,D,IERC,HNC, CALL MVSTUD(NDF,B,A,RHO,ABSEPS,Ndim,INFIN,D,IERC,HNC,
& PRB,BOUND,IFAULT) & PRB,BOUND,IFAULT)
C CALL MVNPRD(A, B, BPD, EPS, N, INF, IERC, HINC, PROB, BOUND, C CALL MVNPRD(A, B, BPD, EPS, N, INF, IERC, HINC, PROB, BOUND,
C * IFAULT) C * IFAULT)
return return
end subroutine prbnormtndpc end subroutine prbnormtndpc
@ -72,16 +72,16 @@ C * IFAULT)
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

Loading…
Cancel
Save