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.
130 lines
5.3 KiB
Plaintext
130 lines
5.3 KiB
Plaintext
! -*- f90 -*-
|
|
! Note: the context of this file is case sensitive.
|
|
|
|
python module mvn2 ! in
|
|
interface ! in :mvn2
|
|
subroutine mvnun(d,n,lower,upper,means,covar,maxpts,abseps,releps,value,inform) ! in :mvn2:mvndst.f
|
|
integer optional,check(len(lower)>=d),depend(lower) :: d=len(lower)
|
|
integer optional,check(shape(means,1)==n),depend(means) :: n=shape(means,1)
|
|
double precision dimension(d) :: lower
|
|
double precision dimension(d),depend(d) :: upper
|
|
double precision dimension(d,n),depend(d) :: means
|
|
double precision dimension(d,d),depend(d,d) :: covar
|
|
integer :: maxpts
|
|
double precision :: abseps
|
|
double precision :: releps
|
|
double precision :: value
|
|
integer :: inform
|
|
end subroutine mvnun
|
|
subroutine mvndst(n,lower,upper,infin,correl,maxpts,abseps,releps,error,value,inform) ! in :mvn2:mvndst.f
|
|
integer :: n
|
|
double precision dimension(*) :: lower
|
|
double precision dimension(*) :: upper
|
|
integer dimension(*) :: infin
|
|
double precision dimension(*) :: correl
|
|
integer :: maxpts
|
|
double precision :: abseps
|
|
double precision :: releps
|
|
double precision :: error
|
|
double precision :: value
|
|
integer :: inform
|
|
integer :: ivls
|
|
common /dkblck/ ivls
|
|
end subroutine mvndst
|
|
function mvndfn(n,w) ! in :mvn2:mvndst.f
|
|
integer :: n
|
|
double precision dimension(*) :: w
|
|
double precision dimension(*) :: upper
|
|
integer dimension(*) :: infin
|
|
integer :: infis
|
|
double precision :: e
|
|
double precision dimension(*) :: lower
|
|
double precision :: d
|
|
double precision dimension(*) :: correl
|
|
double precision :: mvndfn
|
|
double precision :: mvndnt
|
|
entry mvndnt(n,correl,lower,upper,infin,infis,d,e)
|
|
end function mvndfn
|
|
subroutine mvnlms(a,b,infin,lower,upper) ! in :mvn2:mvndst.f
|
|
double precision :: a
|
|
double precision :: b
|
|
integer :: infin
|
|
double precision :: lower
|
|
double precision :: upper
|
|
end subroutine mvnlms
|
|
subroutine covsrt(n,lower,upper,correl,infin,y,infis,a,b,cov,infi) ! in :mvn2:mvndst.f
|
|
integer :: n
|
|
double precision dimension(*) :: lower
|
|
double precision dimension(*) :: upper
|
|
double precision dimension(*) :: correl
|
|
integer dimension(*) :: infin
|
|
double precision dimension(*) :: y
|
|
integer :: infis
|
|
double precision dimension(*) :: a
|
|
double precision dimension(*) :: b
|
|
double precision dimension(*) :: cov
|
|
integer dimension(*) :: infi
|
|
end subroutine covsrt
|
|
subroutine dkswap(x,y) ! in :mvn2:mvndst.f
|
|
double precision :: x
|
|
double precision :: y
|
|
end subroutine dkswap
|
|
subroutine rcswp(p,q,a,b,infin,n,c) ! in :mvn2:mvndst.f
|
|
integer :: p
|
|
integer :: q
|
|
double precision dimension(*) :: a
|
|
double precision dimension(*) :: b
|
|
integer dimension(*) :: infin
|
|
integer :: n
|
|
double precision dimension(*) :: c
|
|
end subroutine rcswp
|
|
subroutine dkbvrc(ndim,minvls,maxvls,functn,abseps,releps,abserr,finest,inform) ! in :mvn2:mvndst.f
|
|
integer :: ndim
|
|
integer :: minvls
|
|
integer :: maxvls
|
|
external functn
|
|
double precision :: abseps
|
|
double precision :: releps
|
|
double precision :: abserr
|
|
double precision :: finest
|
|
integer :: inform
|
|
end subroutine dkbvrc
|
|
subroutine dksmrc(ndim,klim,sumkro,prime,vk,functn,x) ! in :mvn2:mvndst.f
|
|
integer :: ndim
|
|
integer :: klim
|
|
double precision :: sumkro
|
|
integer :: prime
|
|
double precision dimension(*) :: vk
|
|
external functn
|
|
double precision dimension(*) :: x
|
|
end subroutine dksmrc
|
|
function mvnphi(z) ! in :mvn2:mvndst.f
|
|
double precision :: z
|
|
double precision :: mvnphi
|
|
end function mvnphi
|
|
function phinvs(p) ! in :mvn2:mvndst.f
|
|
double precision :: p
|
|
double precision :: phinvs
|
|
end function phinvs
|
|
function bvnmvn(lower,upper,infin,correl) ! in :mvn2:mvndst.f
|
|
double precision dimension(*) :: lower
|
|
double precision dimension(*) :: upper
|
|
integer dimension(*) :: infin
|
|
double precision :: correl
|
|
double precision :: bvnmvn
|
|
end function bvnmvn
|
|
function bvu(sh,sk,r) ! in :mvn2:mvndst.f
|
|
double precision :: sh
|
|
double precision :: sk
|
|
double precision :: r
|
|
double precision :: bvu
|
|
end function bvu
|
|
function mvnuni() ! in :mvn2:mvndst.f
|
|
double precision :: mvnuni
|
|
end function mvnuni
|
|
end interface
|
|
end python module mvn2
|
|
|
|
! This file was auto-generated with f2py (version:2_5972).
|
|
! See http://cens.ioc.ee/projects/f2py2e/
|