EZspline_modulo


interface EZspline_modulo
!
! Map argument to (x1,2,3min, x1,2,3max) interval. This is useful to avoid
! an out-of-grid error when periodic boundary conditions are applied.
! 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_modulo3_r8(spline_o, p1, p2, p3, ier)
use EZspline_obj
type(EZspline3_r8) spline_o
real(ezspline_r8) :: p1, p2, p3
integer, intent(out) :: ier
end subroutine EZspline_modulo3_r8

subroutine EZspline_modulo_array3_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) :: p1(k1), p2(k2), p3(k3)
integer, intent(out) :: ier
end subroutine EZspline_modulo_array3_r8

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

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

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

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

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

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

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

subroutine EZspline_modulo_array3_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) :: p1(k1), p2(k2), p3(k3)
integer, intent(out) :: ier
end subroutine EZspline_modulo_array3_r4

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

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

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

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

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

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

end interface


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