EZspline_isInDomain


interface EZspline_isInDomain
!
! Return error code if position (p1, [p2, [p3]]) is outside domain.
! The evaluation can be sought at a single point (p1, [p2, [p3]]
! are scalars), on an unordered list of points (p1, [p2, [p3]] have
! dimension k), or on a structured grid (p1, [p2, [p3]] have dimension
! k1, [k2, [k3]] respectively).
!
subroutine EZspline_isInDomain3_r8(spline_o, p1, p2, p3, ier)
use EZspline_obj
type(EZspline3_r8) :: spline_o
real(ezspline_r8), intent(in) :: p1, p2, p3
integer, intent(out) :: ier
end subroutine EZspline_isInDomain3_r8

subroutine EZspline_isInDomain3_array_r8(spline_o, k1, k2, k3, p1, p2, p3, ier)
use EZspline_obj
type(EZspline3_r8) :: spline_o
integer, intent(in) :: k1, k2, k3
real(ezspline_r8), intent(in) :: p1(k1), p2(k2), p3(k3)
integer, intent(out) :: ier
end subroutine EZspline_isInDomain3_array_r8

subroutine EZspline_isInDomain3_cloud_r8(spline_o, k, p1, p2, p3, ier)
use EZspline_obj
type(EZspline3_r8) :: spline_o
integer, intent(in) :: k
real(ezspline_r8), intent(in) :: p1(k), p2(k), p3(k)
integer, intent(out) :: ier
end subroutine EZspline_isInDomain3_cloud_r8

subroutine EZspline_isInDomain2_r8(spline_o, p1, p2, ier)
use EZspline_obj
type(EZspline2_r8) :: spline_o
real(ezspline_r8), intent(in) :: p1, p2
integer, intent(out) :: ier
end subroutine EZspline_isInDomain2_r8

subroutine EZspline_isInDomain2_array_r8(spline_o, k1, k2, p1, p2, ier)
use EZspline_obj
type(EZspline2_r8) :: spline_o
integer, intent(in) :: k1, k2
real(ezspline_r8), intent(in) :: p1(k1), p2(k2)
integer, intent(out) :: ier
end subroutine EZspline_isInDomain2_array_r8

subroutine EZspline_isInDomain2_cloud_r8(spline_o, k, p1, p2, ier)
use EZspline_obj
type(EZspline2_r8) :: spline_o
integer, intent(in) :: k
real(ezspline_r8), intent(in) :: p1(k), p2(k)
integer, intent(out) :: ier
end subroutine EZspline_isInDomain2_cloud_r8

subroutine EZspline_isInDomain1_r8(spline_o, p1, ier)
use EZspline_obj
type(EZspline1_r8) :: spline_o
real(ezspline_r8), intent(in) :: p1
integer, intent(out) :: ier
end subroutine EZspline_isInDomain1_r8

subroutine EZspline_isInDomain1_array_r8(spline_o, k1, p1, ier)
use EZspline_obj
type(EZspline1_r8) :: spline_o
integer, intent(in) :: k1
real(ezspline_r8), intent(in) :: p1(k1)
integer, intent(out) :: ier
end subroutine EZspline_isInDomain1_array_r8

subroutine EZspline_isInDomain3_r4(spline_o, p1, p2, p3, ier)
use EZspline_obj
type(EZspline3_r4) :: spline_o
real(ezspline_r4), intent(in) :: p1, p2, p3
integer, intent(out) :: ier
end subroutine EZspline_isInDomain3_r4

subroutine EZspline_isInDomain3_array_r4(spline_o, k1, k2, k3, p1, p2, p3, ier)
use EZspline_obj
type(EZspline3_r4) :: spline_o
integer, intent(in) :: k1, k2, k3
real(ezspline_r4), intent(in) :: p1(k1), p2(k2), p3(k3)
integer, intent(out) :: ier
end subroutine EZspline_isInDomain3_array_r4

subroutine EZspline_isInDomain3_cloud_r4(spline_o, k, p1, p2, p3, ier)
use EZspline_obj
type(EZspline3_r4) :: spline_o
integer, intent(in) :: k
real(ezspline_r4), intent(in) :: p1(k), p2(k), p3(k)
integer, intent(out) :: ier
end subroutine EZspline_isInDomain3_cloud_r4

subroutine EZspline_isInDomain2_r4(spline_o, p1, p2, ier)
use EZspline_obj
type(EZspline2_r4) :: spline_o
real(ezspline_r4), intent(in) :: p1, p2
integer, intent(out) :: ier
end subroutine EZspline_isInDomain2_r4

subroutine EZspline_isInDomain2_array_r4(spline_o, k1, k2, p1, p2, ier)
use EZspline_obj
type(EZspline2_r4) :: spline_o
integer, intent(in) :: k1, k2
real(ezspline_r4), intent(in) :: p1(k1), p2(k2)
integer, intent(out) :: ier
end subroutine EZspline_isInDomain2_array_r4

subroutine EZspline_isInDomain2_cloud_r4(spline_o, k, p1, p2, ier)
use EZspline_obj
type(EZspline2_r4) :: spline_o
integer, intent(in) :: k
real(ezspline_r4), intent(in) :: p1(k), p2(k)
integer, intent(out) :: ier
end subroutine EZspline_isInDomain2_cloud_r4

subroutine EZspline_isInDomain1_r4(spline_o, p1, ier)
use EZspline_obj
type(EZspline1_r4) :: spline_o
real(ezspline_r4), intent(in) :: p1
integer, intent(out) :: ier
end subroutine EZspline_isInDomain1_r4

subroutine EZspline_isInDomain1_array_r4(spline_o, k1, p1, ier)
use EZspline_obj
type(EZspline1_r4) :: spline_o
integer, intent(in) :: k1
real(ezspline_r4), intent(in) :: p1(k1)
integer, intent(out) :: ier
end subroutine EZspline_isInDomain1_array_r4

end interface


Send comments about this document to pletzer@pppl.gov. Tue Apr 24 14:01:03 2007