EZspline_init


interface EZspline_init
!
! Initialize and allocate memory. BCS1,2,3 determine the type of boundary
! conditions on either end of the x1,2,3 grids: eg (/0, 0/) for not-a-knot
! on the left and (/-1, -1/) periodic. Other BCs such as imposed slope or
! second derivative can also be applied by setting '1' or '2' respectively
! on either side. For instance (/1, 2/) for 1st derivative on the left and
! 2nd derivative on the right. The value of the 1st/2nd derivative must be
! set explicitely set through the bcval1,2,3min and bcval1,2,3max arrays.
!
subroutine EZspline_init3_r8(spline_o, n1, n2, n3, BCS1, BCS2, BCS3, ier)
use EZspline_obj
type(EZspline3_r8) :: spline_o
integer, intent(in) :: n1, n2, n3
integer, intent(in) :: BCS1(2), BCS2(2), BCS3(2)
integer, intent(out) :: ier
end subroutine EZspline_init3_r8

subroutine EZspline_init2_r8(spline_o, n1, n2, BCS1, BCS2, ier)
use EZspline_obj
type(EZspline2_r8) :: spline_o
integer, intent(in) :: n1, n2
integer, intent(in) :: BCS1(2), BCS2(2)
integer, intent(out) :: ier
end subroutine EZspline_init2_r8

subroutine EZspline_init1_r8(spline_o, n1, BCS1, ier)
use EZspline_obj
type(EZspline1_r8) spline_o
integer, intent(in) :: n1
integer, intent(in) :: BCS1(2)
integer, intent(out) :: ier
end subroutine EZspline_init1_r8

subroutine EZspline_init3_r4(spline_o, n1, n2, n3, BCS1, BCS2, BCS3, ier)
use EZspline_obj
type(EZspline3_r4) spline_o
integer, intent(in) :: n1, n2, n3
integer, intent(in) :: BCS1(2), BCS2(2), BCS3(2)
integer, intent(out) :: ier
end subroutine EZspline_init3_r4

subroutine EZspline_init2_r4(spline_o, n1, n2, BCS1, BCS2, ier)
use EZspline_obj
type(EZspline2_r4) spline_o
integer, intent(in) :: n1, n2
integer, intent(in) :: BCS1(2), BCS2(2)
integer, intent(out) :: ier
end subroutine EZspline_init2_r4

subroutine EZspline_init1_r4(spline_o, n1, BCS1, ier)
use EZspline_obj
type(EZspline1_r4) spline_o
integer, intent(in) :: n1
integer, intent(in) :: BCS1(2)
integer, intent(out) :: ier
end subroutine EZspline_init1_r4

end interface


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