! -*- f90 -*- ! Note: the context of this file is case sensitive. python module interp ! in interface ! in :interp subroutine mkmap(code,x,y,m,n,xout,yout,nout,xs,ys,nrx,nry,iflag,nrin,w,iref,covered,xymiss) ! in :interp:interp_f2py.f90 use interp_module, only: mkmap1=>mkmap integer dimension(m,n),intent(in) :: code real*8 dimension(m,n),intent(in),depend(m,n) :: x real*8 dimension(m,n),intent(in),depend(m,n) :: y integer, optional,intent(in),check(shape(code,0)==m),depend(code) :: m=shape(code,0) integer, optional,intent(in),check(shape(code,1)==n),depend(code) :: n=shape(code,1) real*8 dimension(nout),intent(out),depend(nout) :: xout real*8 dimension(nout),intent(out),depend(nout) :: yout integer intent(in) :: nout real*8 dimension(nout),intent(out),depend(nout) :: xs real*8 dimension(nout),intent(out),depend(nout) :: ys integer dimension(nout),intent(out),depend(nout) :: nrx integer dimension(nout),intent(out),depend(nout) :: nry integer dimension(nout),intent(out),depend(nout) :: iflag integer dimension(nout),intent(out),depend(nout) :: nrin real*8 dimension(4,nout),intent(out),depend(nout) :: w integer dimension(4,nout),intent(out),depend(nout) :: iref integer dimension(nout),intent(out),depend(nout) :: covered real*8 intent(in) :: xymiss end subroutine mkmap subroutine grmap(f1,n1,f2,n2,iref,w,np,iprint) ! in :interp:interp_f2py.f90 use interp_module, only: grmapx=>grmap real*8 dimension(n1),intent(in) :: f1 integer, optional,intent(in),check(len(f1)>=n1),depend(f1) :: n1=len(f1) real*8 dimension(n2),intent(out),depend(n2) :: f2 integer, optional,intent(in),check(shape(iref,1)==n2),depend(iref) :: n2=shape(iref,1) integer dimension(np,n2),intent(in) :: iref real*8 dimension(np,n2),intent(in),depend(np,n2) :: w integer, optional,intent(in),check(shape(iref,0)==np),depend(iref) :: np=shape(iref,0) integer intent(in) :: iprint end subroutine grmap subroutine grmap2(f1,cellsz1i,n1,f2,cellsz2,n2,iref,w,np) ! in :interp:interp_f2py.f90 use interp_module, only: grmap2x=>grmap2 real*8 dimension(n1),intent(inout) :: f1 real*8 dimension(n1),intent(in),depend(n1) :: cellsz1i integer, optional,intent(in),check(len(f1)>=n1),depend(f1) :: n1=len(f1) real*8 dimension(n2),intent(in) :: f2 real*8 intent(in) :: cellsz2 integer, optional,intent(in),check(len(f2)>=n2),depend(f2) :: n2=len(f2) integer dimension(np,n2),intent(in),depend(n2) :: iref real*8 dimension(np,n2),intent(in),depend(np,n2) :: w integer, optional,intent(in),check(shape(iref,0)==np),depend(iref) :: np=shape(iref,0) end subroutine grmap2 end interface end python module interp ! This file was auto-generated with f2py (version:2). ! See http://cens.ioc.ee/projects/f2py2e/