interpolation.f90 File Reference

Functions/Subroutines
program	test_interpolation
subroutine	set_data (data, order, xx, yy, zz, xxo, yyo, zzo, fieldo)
subroutine	test (data, field, fieldo)
subroutine	unset_gridfield (xx, yy, zz, field, xxo, yyo, zzo, fieldo, data)
subroutine	set_grid1 (xx, yy, zz)
	2D grid with bilinear field.
subroutine	set_grid2 (xx, yy, zz)
	3D grid with bilinear field.
subroutine	set_field1 (xx, yy, zz, field)
	Bilinear field working with grid1.
subroutine	set_field2 (xx, yy, zz, field)
	Bilinear field working with grid2.
subroutine	set_fieldo1 (xxo, yyo, zzo, fieldo)
	Interpolations points working with grid1 and field1.
subroutine	set_fieldo1_dx (xxo, yyo, zzo, fieldo)
subroutine	set_fieldo1_dy (xxo, yyo, zzo, fieldo)
subroutine	set_fieldo2 (xxo, yyo, zzo, fieldo)
	Interpolations points working with grid2 and field2.
subroutine	set_fieldo2_dz (xxo, yyo, zzo, fieldo)

Function/Subroutine Documentation

set_data()

subroutine test_interpolation::set_data	(	type(t_interpolation_data), dimension(:), intent(out), allocatable	data,
		integer, intent(in)	order,
		double precision, dimension(:), intent(in), allocatable	xx,
		double precision, dimension(:), intent(in), allocatable	yy,
		double precision, dimension(:), intent(in), allocatable	zz,
		double precision, dimension(:), intent(in), allocatable	xxo,
		double precision, dimension(:), intent(in), allocatable	yyo,
		double precision, dimension(:), intent(in), allocatable	zzo,
		double precision, dimension(:), intent(in), allocatable	fieldo )

set_field1()

subroutine test_interpolation::set_field1 ( double precision, dimension(:), intent(in), allocatable xx, double precision, dimension(:), intent(in), allocatable yy, double precision, dimension(:), intent(in), allocatable zz, double precision, dimension(:,:,:), intent(out), allocatable field )

private

Bilinear field working with grid1.

Equation: f(x,y) = 4/9 - 5/9 x - 1/3 y.

set_field2()

subroutine test_interpolation::set_field2 ( double precision, dimension(:), intent(in), allocatable xx, double precision, dimension(:), intent(in), allocatable yy, double precision, dimension(:), intent(in), allocatable zz, double precision, dimension(:,:,:), intent(out), allocatable field )

private

Bilinear field working with grid2.

Equation: f(x,y) = 4/9 - 5/9 x - 1/3 y + (z - 3).

set_fieldo1()

subroutine test_interpolation::set_fieldo1 ( double precision, dimension(:), intent(out), allocatable xxo, double precision, dimension(:), intent(out), allocatable yyo, double precision, dimension(:), intent(out), allocatable zzo, double precision, dimension(:), intent(out), allocatable fieldo )

private

Interpolations points working with grid1 and field1.

set_fieldo1_dx()

subroutine test_interpolation::set_fieldo1_dx ( double precision, dimension(:), intent(out), allocatable xxo, double precision, dimension(:), intent(out), allocatable yyo, double precision, dimension(:), intent(out), allocatable zzo, double precision, dimension(:), intent(out), allocatable fieldo )

private

set_fieldo1_dy()

subroutine test_interpolation::set_fieldo1_dy ( double precision, dimension(:), intent(out), allocatable xxo, double precision, dimension(:), intent(out), allocatable yyo, double precision, dimension(:), intent(out), allocatable zzo, double precision, dimension(:), intent(out), allocatable fieldo )

private

set_fieldo2()

subroutine test_interpolation::set_fieldo2 ( double precision, dimension(:), intent(out), allocatable xxo, double precision, dimension(:), intent(out), allocatable yyo, double precision, dimension(:), intent(out), allocatable zzo, double precision, dimension(:), intent(out), allocatable fieldo )

private

Interpolations points working with grid2 and field2.

set_fieldo2_dz()

subroutine test_interpolation::set_fieldo2_dz ( double precision, dimension(:), intent(out), allocatable xxo, double precision, dimension(:), intent(out), allocatable yyo, double precision, dimension(:), intent(out), allocatable zzo, double precision, dimension(:), intent(out), allocatable fieldo )

private

set_grid1()

subroutine test_interpolation::set_grid1 ( double precision, dimension(:), intent(out), allocatable xx, double precision, dimension(:), intent(out), allocatable yy, double precision, dimension(:), intent(out), allocatable zz )

private

2D grid with bilinear field.

Here is the grid and node values: y:

29/54 -— 1/2 ---------— -2/3 -— -17/18 -----— -7/2 5/2 | | | | | 19/27 -— 1/3 ---------— -1/2 -— -7/9 -----— -4/3 2 | | | | | 25/27 -— 5/9 ---------— -5/18 -— -5/9 -----— -10/9 4/3 | | | | | | | | | | 37/27 -— 1 ---------— 1/6 -— -1/9 -----— -2/3 0

x: -5/3 -1 1/2 1 2

The z-value is set to 2.

set_grid2()

subroutine test_interpolation::set_grid2 ( double precision, dimension(:), intent(out), allocatable xx, double precision, dimension(:), intent(out), allocatable yy, double precision, dimension(:), intent(out), allocatable zz )

private

3D grid with bilinear field.

Same as grid1 on x-axis and y-axis, here is the z-axis

z: 3 -— 18/5 -— 4

The z-value is set to 2.

test()

subroutine test_interpolation::test ( type(t_interpolation_data), dimension(:), intent(in), allocatable data, double precision, dimension(:,:,:), intent(in), allocatable field, double precision, dimension(:), intent(in), allocatable fieldo )

private

test_interpolation()

program test_interpolation

unset_gridfield()

subroutine test_interpolation::unset_gridfield ( double precision, dimension(:), intent(inout), allocatable xx, double precision, dimension(:), intent(inout), allocatable yy, double precision, dimension(:), intent(inout), allocatable zz, double precision, dimension(:,:,:), intent(inout), allocatable field, double precision, dimension(:), intent(inout), allocatable xxo, double precision, dimension(:), intent(inout), allocatable yyo, double precision, dimension(:), intent(inout), allocatable zzo, double precision, dimension(:), intent(inout), allocatable fieldo, type(t_interpolation_data), dimension(:), intent(inout), allocatable data )

private