get_knots_6d Subroutine

private pure subroutine get_knots_6d(me, tx, ty, tz, tq, tr, ts, iflag)

Returns the knot vectors of a bspline_6d.

Type Bound

bspline_6d

Arguments

Type IntentOptional Attributes Name
class(bspline_6d), intent(inout) :: me

the spline
real(kind=wp), intent(out), dimension(:), allocatable :: tx

the (nx+kx) knots in the direction
real(kind=wp), intent(out), dimension(:), allocatable :: ty

the (ny+ky) knots in the direction
real(kind=wp), intent(out), dimension(:), allocatable :: tz

the (nz+kz) knots in the direction
real(kind=wp), intent(out), dimension(:), allocatable :: tq

the (nq+kq) knots in the direction
real(kind=wp), intent(out), dimension(:), allocatable :: tr

the (nr+kr) knots in the direction
real(kind=wp), intent(out), dimension(:), allocatable :: ts

the (ns+ks) knots in the direction
integer(kind=ip), intent(out) :: iflag

status flag: 0 if no errors, 1 if the class is not initialized

Source Code

    pure subroutine get_knots_6d(me,tx,ty,tz,tq,tr,ts,iflag)

    implicit none

    class(bspline_6d),intent(inout) :: me  !! the spline
    real(wp),dimension(:),allocatable,intent(out) :: tx  !! the `(nx+kx)` knots in the \(x\) direction
    real(wp),dimension(:),allocatable,intent(out) :: ty  !! the `(ny+ky)` knots in the \(y\) direction
    real(wp),dimension(:),allocatable,intent(out) :: tz  !! the `(nz+kz)` knots in the \(z\) direction
    real(wp),dimension(:),allocatable,intent(out) :: tq  !! the `(nq+kq)` knots in the \(q\) direction
    real(wp),dimension(:),allocatable,intent(out) :: tr  !! the `(nr+kr)` knots in the \(r\) direction
    real(wp),dimension(:),allocatable,intent(out) :: ts  !! the `(ns+ks)` knots in the \(s\) direction
    integer(ip),intent(out) :: iflag  !! status flag: 0 if no errors,
                                      !! 1 if the class is not initialized

    if (me%initialized) then
        tx = me%tx
        ty = me%ty
        tz = me%tz
        tq = me%tq
        tr = me%tr
        ts = me%ts
        iflag = 0_ip
    else
        allocate(tx(0))
        allocate(ty(0))
        allocate(tz(0))
        allocate(tq(0))
        allocate(tr(0))
        allocate(ts(0))
        iflag = 1_ip
    end if
    me%iflag = iflag

    end subroutine get_knots_6d