cubt1 Subroutine

private subroutine cubt1(nx, p, mx, q, ix, dxm, dx, dxp, dxpp)

cubically interpolate p on x to q on xx

Arguments

Type IntentOptional Attributes Name
integer :: nx
real(kind=wp) :: p(nx)
integer :: mx
real(kind=wp) :: q(mx)
integer :: ix(mx)
real(kind=wp) :: dxm(mx)
real(kind=wp) :: dx(mx)
real(kind=wp) :: dxp(mx)
real(kind=wp) :: dxpp(mx)

Called by

proc~~cubt1~~CalledByGraph proc~cubt1 regridpack_module::cubt1 proc~cubt2 regridpack_module::cubt2 proc~cubt2->proc~cubt1 proc~lint2 regridpack_module::lint2 proc~lint2->proc~cubt1 proc~rgrd1 regridpack_module::rgrd1 proc~rgrd1->proc~cubt1 interface~regrid regridpack_module::regrid interface~regrid->proc~rgrd1 proc~rgrd1_wrapper regridpack_module::rgrd1_wrapper interface~regrid->proc~rgrd1_wrapper proc~rgrd2 regridpack_module::rgrd2 interface~regrid->proc~rgrd2 proc~rgrd2_wrapper regridpack_module::rgrd2_wrapper interface~regrid->proc~rgrd2_wrapper proc~rgrd3 regridpack_module::rgrd3 interface~regrid->proc~rgrd3 proc~rgrd3_wrapper regridpack_module::rgrd3_wrapper interface~regrid->proc~rgrd3_wrapper proc~rgrd4 regridpack_module::rgrd4 interface~regrid->proc~rgrd4 proc~rgrd4_wrapper regridpack_module::rgrd4_wrapper interface~regrid->proc~rgrd4_wrapper proc~cubt3 regridpack_module::cubt3 proc~cubt3->proc~cubt2 proc~cubt3->proc~lint2 proc~lint3 regridpack_module::lint3 proc~lint3->proc~cubt2 proc~lint3->proc~lint2 proc~rgrd1_wrapper->proc~rgrd1 proc~rgrd2->proc~cubt2 proc~rgrd2->proc~lint2 proc~cubt4 regridpack_module::cubt4 proc~cubt4->proc~cubt3 proc~cubt4->proc~lint3 proc~lint4 regridpack_module::lint4 proc~lint4->proc~cubt3 proc~lint4->proc~lint3 proc~rgrd2_wrapper->proc~rgrd2 proc~rgrd3->proc~cubt3 proc~rgrd3->proc~lint3 proc~rgrd3_wrapper->proc~rgrd3 proc~rgrd4->proc~cubt4 proc~rgrd4->proc~lint4 proc~rgrd4_wrapper->proc~rgrd4

Source Code

    subroutine cubt1(nx,p,mx,q,ix,dxm,dx,dxp,dxpp)

    implicit none

    integer :: mx,ix(mx),nx,i,ii
    real(wp) :: p(nx),q(mx),dxm(mx),dx(mx),dxp(mx),dxpp(mx)

    do ii=1,mx
        i = ix(ii)
        q(ii) = dxm(ii)*p(i-1)+dx(ii)*p(i)+dxp(ii)*p(i+1)+dxpp(ii)*p(i+2)
    end do

    end subroutine cubt1