-
Notifications
You must be signed in to change notification settings - Fork 2
/
_stripack.pyf
35 lines (33 loc) · 1.8 KB
/
_stripack.pyf
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
! -*- f90 -*-
! Note: the context of this file is case sensitive.
python module _stripack ! in
interface ! in :_stripack
subroutine trans(n,rlat,rlon,x,y,z) ! in :_stripack:_stripack.f90
integer( kind = 4 ), intent(in) :: n
real( kind = 8 ) dimension(n), intent(in) :: rlat
real( kind = 8 ) dimension(n), intent(in) :: rlon
real( kind = 8 ) dimension(n), intent(out) :: x
real( kind = 8 ) dimension(n), intent(out) :: y
real( kind = 8 ) dimension(n), intent(out) :: z
end subroutine trans
subroutine trmesh(n,x,y,z,list,lptr,lend,ier) ! in :_stripack:_stripack.f90
integer( kind = 4 ), intent(in) :: n
real( kind = 8 ) dimension(n), intent(in) :: x
real( kind = 8 ) dimension(n), intent(in) :: y
real( kind = 8 ) dimension(n), intent(in) :: z
integer( kind = 4 ) dimension(6*(n-2)), intent(out) :: list,lptr
integer( kind = 4 ) dimension(n), intent(out) :: lend
integer( kind = 4 ), intent(out) :: ier
end subroutine trmesh
subroutine interp_n(npts,nptso,order,olats,olons,x,y,z,data,lst,lptr,lend,odata,ierr)
integer( kind = 4 ), intent(in) :: npts, nptso,order
integer( kind = 4 ), intent(out) :: ierr
real( kind = 8 ), intent(in), dimension(nptso) :: olats,olons
real( kind = 8 ), intent(in), dimension(npts) :: x,y,z,data
real( kind = 8 ), intent(out), dimension(nptso) :: odata
integer( kind = 4 ), intent(in), dimension(npts) :: lend
integer( kind = 4 ), intent(in), dimension(6*(npts-2)) :: lst,lptr
end subroutine interp_n
end python module _stripack
! This file was auto-generated with f2py (version:2).
! See http://cens.ioc.ee/projects/f2py2e/