test_interpolation_mod Module Reference

Functions/Subroutines
subroutine	test_piecewise_zero_nnodes
subroutine	test_piecewise_zgrid_eq_zvals
subroutine	test_interpolate_linear
subroutine	test_no_interpolation

Function/Subroutine Documentation

test_interpolate_linear()

subroutine test_interpolation_mod::test_interpolate_linear

Definition at line 51 of file test_interpolation.F90.

    
    real(kind=default_precision) :: zvals(2), vals(2)
    integer :: i
    real(kind=default_precision) ::  z,f1,f2
    character(12) :: extrapolate
    
    extrapolate = 'linear'
    z = 0.0_default_precision
    do i=1,2
       vals(i)=50.0_default_precision
       zvals(i)=11.0_default_precision
    enddo
    zvals(1) = 10.0_default_precision
    call interpolate_point_linear_1d(zvals, vals, z, f1)
    call interpolate_point_linear_1d(zvals, vals, z, f2, extrapolate)
    
    call assert_equals(f1, f2, "Test linear is used by default")  

Here is the call graph for this function:

Here is the caller graph for this function:

test_no_interpolation()

subroutine test_interpolation_mod::test_no_interpolation

Definition at line 72 of file test_interpolation.F90.

    
    real(kind=default_precision) :: zvals(2), vals(2)
    integer :: i
    real(kind=default_precision) ::  z,f
    character(12) :: extrapolate
    
    extrapolate = 'linear'
    z = 0.0_default_precision
    f = 7.0_default_precision
    do i=1,2
       vals(i)=50.0_default_precision
       zvals(i)=11.0_default_precision
    enddo
    zvals(1) = 0.0_default_precision
    call interpolate_point_linear_1d(zvals, vals, z, f)
 
    
    call assert_equals(7.0_default_precision, f, "Test linear is used by default")  

Here is the call graph for this function:

Here is the caller graph for this function:

test_piecewise_zero_nnodes()

subroutine test_interpolation_mod::test_piecewise_zero_nnodes

Definition at line 12 of file test_interpolation.F90.

    
    real(kind=default_precision) :: zvals(0), vals(2)
    real(kind=default_precision) :: zgrid(2)
    real(kind=default_precision) :: field(2)
    integer :: i
    do i=1,2
       vals(i)=10.0_default_precision
       zgrid(i)=10.0_default_precision
       field(i)=10.0_default_precision
    enddo
    call  piecewise_linear_1d(zvals, vals, zgrid, field)
    
    do i=1,2
       call assert_equals(10.0_default_precision, field(i), "Test no change in field")
    enddo

Here is the call graph for this function:

Here is the caller graph for this function:

test_piecewise_zgrid_eq_zvals()

subroutine test_interpolation_mod::test_piecewise_zgrid_eq_zvals

Definition at line 31 of file test_interpolation.F90.

    
    real(kind=default_precision) :: zvals(2), vals(2)
    real(kind=default_precision) :: zgrid(2)
    real(kind=default_precision) :: field(2)
    integer :: i
    zgrid(1) = 10.0_default_precision
    zgrid(2) = 9.0_default_precision
    do i=1,2
       vals(i)=50.0_default_precision
       zvals(i)=11.0_default_precision
    enddo
    zvals(1) = 10.0_default_precision
    call  piecewise_linear_1d(zvals, vals, zgrid, field)
    
    call assert_equals(50.0_default_precision, field(1), "Test  field(k) = vals(nn-1) when (zgrid(k)=zvals(nn-1)")
    

Here is the call graph for this function:

Here is the caller graph for this function: