! -*- f90 -*- ! Note: the context of this file is case sensitive. python module interpos_fun ! in interface ! in :interpos_fun module interpos_module ! in :interpos_fun:interpos.f90 subroutine interpos_def(xin,yin,nin,nout,tension,xout,yout,youtp,youtpp,youtint,nbc,ybc,sigma,option,info) ! in :interpos_fun:interpos.f90:interpos_module use prec_rkind real(kind=8) dimension(nin) :: xin real(kind=8) dimension(nin),depend(nin) :: yin integer, optional,check(len(xin)>=nin),depend(xin) :: nin=len(xin) integer, optional :: nout real(kind=8), optional :: tension real(kind=8), optional,dimension(:) :: xout real(kind=8), optional,dimension(:) :: yout real(kind=8), optional,dimension(:) :: youtp real(kind=8), optional,dimension(:) :: youtpp real(kind=8), optional,dimension(:) :: youtint integer, optional,dimension(2) :: nbc real(kind=8), optional,dimension(:) :: ybc real(kind=8), optional,dimension(:) :: sigma integer, optional :: option integer, optional :: info end subroutine interpos_def subroutine interpos_defper(xin,yin,nin,nout,tension,xout,yout,youtp,youtpp,youtint,nbc,ybc,sigma,info) ! in :interpos_fun:interpos.f90:interpos_module use prec_rkind real(kind=8) dimension(nin) :: xin real(kind=8) dimension(nin),depend(nin) :: yin integer, optional,check(len(xin)>=nin),depend(xin) :: nin=len(xin) integer, optional :: nout real(kind=8), optional :: tension real(kind=8), optional,dimension(:) :: xout real(kind=8), optional,dimension(:) :: yout real(kind=8), optional,dimension(:) :: youtp real(kind=8), optional,dimension(:) :: youtpp real(kind=8), optional,dimension(:) :: youtint integer :: nbc real(kind=8), optional :: ybc real(kind=8), optional,dimension(:) :: sigma integer, optional :: info end subroutine interpos_defper subroutine interpos_yinpp(xin,yin,yinnew,yinpp,nin,tension,nbc,ybc,sigma,info) ! in :interpos_fun:interpos.f90:interpos_module use prec_rkind real(kind=8) dimension(nin) :: xin real(kind=8) dimension(nin),depend(nin) :: yin real(kind=8) dimension(nin),depend(nin) :: yinnew real(kind=8) dimension(nin),depend(nin) :: yinpp integer, optional,check(len(xin)>=nin),depend(xin) :: nin=len(xin) real(kind=8), optional :: tension integer, optional,dimension(2) :: nbc real(kind=8), optional,dimension(:) :: ybc real(kind=8), optional,dimension(:) :: sigma integer, optional :: info end subroutine interpos_yinpp subroutine interpos_interp(xin,yin,ypp,nin,nout,xout,yout,youtp,youtpp,youtint,option,info) ! in :interpos_fun:interpos.f90:interpos_module use prec_rkind real(kind=8) dimension(nin) :: xin real(kind=8) dimension(nin),depend(nin) :: yin real(kind=8) dimension(nin),depend(nin) :: ypp integer, optional,check(len(xin)>=nin),depend(xin) :: nin=len(xin) integer, optional :: nout real(kind=8), optional,dimension(:) :: xout real(kind=8), optional,dimension(:) :: yout real(kind=8), optional,dimension(:) :: youtp real(kind=8), optional,dimension(:) :: youtpp real(kind=8), optional,dimension(:) :: youtint integer, optional :: option integer, optional :: info end subroutine interpos_interp subroutine interpos_defxscal(x,y,n,xscal,tension,yscal,yscalp,yscalpp,yscalint,nbcscal,ybcscal,sigma,option,info) ! in :interpos_fun:interpos.f90:interpos_module use prec_rkind real(kind=8) dimension(n) :: x real(kind=8) dimension(n),depend(n) :: y integer, optional,check(len(x)>=n),depend(x) :: n=len(x) real(kind=8) :: xscal real(kind=8), optional :: tension real(kind=8), optional :: yscal real(kind=8), optional :: yscalp real(kind=8), optional :: yscalpp real(kind=8), optional :: yscalint integer, optional,dimension(:) :: nbcscal real(kind=8), optional,dimension(:) :: ybcscal real(kind=8), optional,dimension(:) :: sigma integer, optional :: option integer, optional :: info end subroutine interpos_defxscal subroutine interpos_defperxscal(x,y,n,tension,xscal,yscal,yscalp,yscalpp,yscalint,nbcscal,ybcscal,sigma,info) ! in :interpos_fun:interpos.f90:interpos_module use prec_rkind real(kind=8) dimension(n) :: x real(kind=8) dimension(n),depend(n) :: y integer, optional,check(len(x)>=n),depend(x) :: n=len(x) real(kind=8), optional :: tension real(kind=8) :: xscal real(kind=8), optional :: yscal real(kind=8), optional :: yscalp real(kind=8), optional :: yscalpp real(kind=8), optional :: yscalint integer :: nbcscal real(kind=8), optional :: ybcscal real(kind=8), optional,dimension(:) :: sigma integer, optional :: info end subroutine interpos_defperxscal subroutine interpos_interpxscal(x,y,ypp,n,xscal,yscal,yscalp,yscalpp,yscalint,option,info) ! in :interpos_fun:interpos.f90:interpos_module use prec_rkind real(kind=8) dimension(n) :: x real(kind=8) dimension(n),depend(n) :: y real(kind=8) dimension(n),depend(n) :: ypp integer, optional,check(len(x)>=n),depend(x) :: n=len(x) real(kind=8) :: xscal real(kind=8), optional :: yscal real(kind=8), optional :: yscalp real(kind=8), optional :: yscalpp real(kind=8), optional :: yscalint integer, optional :: option integer, optional :: info end subroutine interpos_interpxscal end module interpos_module subroutine intlinear(pxin,pyin,knin,pxout,pyout,pyoutp,pyoutpp,pyoutint,knout,koptder,kextrapo) ! in :interpos_fun:interpos.f90 use prec_rkind real(kind=8) dimension(knin) :: pxin real(kind=8) dimension(knin),depend(knin) :: pyin integer, optional,check(len(pxin)>=knin),depend(pxin) :: knin=len(pxin) real(kind=8) dimension(knout) :: pxout real(kind=8) dimension(knout),depend(knout) :: pyout real(kind=8) dimension(knout),depend(knout) :: pyoutp real(kind=8) dimension(knout),depend(knout) :: pyoutpp real(kind=8) dimension(knout),depend(knout) :: pyoutint integer, optional,check(len(pxout)>=knout),depend(pxout) :: knout=len(pxout) integer :: koptder integer :: kextrapo end subroutine intlinear subroutine intquadratic(pxin,pyin,knin,pxout,pyout,pyoutp,pyoutpp,pyoutint,knout,koptder,koptxpol,nbc) ! in :interpos_fun:interpos.f90 use prec_rkind real(kind=8) dimension(knin) :: pxin real(kind=8) dimension(knin),depend(knin) :: pyin integer, optional,check(len(pxin)>=knin),depend(pxin) :: knin=len(pxin) real(kind=8) dimension(knout) :: pxout real(kind=8) dimension(knout),depend(knout) :: pyout real(kind=8) dimension(knout),depend(knout) :: pyoutp real(kind=8) dimension(knout),depend(knout) :: pyoutpp real(kind=8) dimension(knout),depend(knout) :: pyoutint integer, optional,check(len(pxout)>=knout),depend(pxout) :: knout=len(pxout) integer :: koptder integer :: koptxpol integer, optional :: nbc end subroutine intquadratic end interface end python module interpos_fun ! This file was auto-generated with f2py (version:2). ! See http://cens.ioc.ee/projects/f2py2e/