linear_interp_6d Derived Type

type, public, extends(linear_interp_class) :: linear_interp_6d

Class for 6d linear interpolation.


Inherits

type~~linear_interp_6d~~InheritsGraph type~linear_interp_6d linear_interp_6d type~linear_interp_class linear_interp_class type~linear_interp_6d->type~linear_interp_class

Inherited by

type~~linear_interp_6d~~InheritedByGraph type~linear_interp_6d linear_interp_6d type~nearest_interp_6d nearest_interp_6d type~nearest_interp_6d->type~linear_interp_6d

Components

Type Visibility Attributes Name Initial
real(kind=wp), private, dimension(:,:,:,:,:,:), allocatable :: f
real(kind=wp), private, dimension(:), allocatable :: x
real(kind=wp), private, dimension(:), allocatable :: y
real(kind=wp), private, dimension(:), allocatable :: z
real(kind=wp), private, dimension(:), allocatable :: q
real(kind=wp), private, dimension(:), allocatable :: r
real(kind=wp), private, dimension(:), allocatable :: s
integer, private :: ilox = 1
integer, private :: iloy = 1
integer, private :: iloz = 1
integer, private :: iloq = 1
integer, private :: ilor = 1
integer, private :: ilos = 1

Finalization Procedures

final :: finalize_6d


Type-Bound Procedures

procedure, public :: initialize => initialize_6d

  • private pure subroutine initialize_6d(me, x, y, z, q, r, s, f, istat)

    Constructor for a linear_interp_6d class.

    Arguments

    Type IntentOptional Attributes Name
    class(linear_interp_6d), intent(inout) :: me
    real(kind=wp), intent(in), dimension(:) :: x
    real(kind=wp), intent(in), dimension(:) :: y
    real(kind=wp), intent(in), dimension(:) :: z
    real(kind=wp), intent(in), dimension(:) :: q
    real(kind=wp), intent(in), dimension(:) :: r
    real(kind=wp), intent(in), dimension(:) :: s
    real(kind=wp), intent(in), dimension(:,:,:,:,:,:) :: f
    integer, intent(out) :: istat

    0 : no problems, 1 : x is not strictly increasing, 2 : y is not strictly increasing, 3 : z is not strictly increasing, 4 : q is not strictly increasing, 5 : r is not strictly increasing, 6 : s is not strictly increasing, 10 : x is not equal to size(f,1), 20 : y is not equal to size(f,2), 30 : z is not equal to size(f,3), 40 : q is not equal to size(f,4), 50 : r is not equal to size(f,5), 60 : s is not equal to size(f,6), 100 : cannot use linear interpolation for only one point.

procedure, public :: evaluate => interp_6d

  • private pure subroutine interp_6d(me, x, y, z, q, r, s, f, istat)

    6D linear interpolation routine.

    Arguments

    Type IntentOptional Attributes Name
    class(linear_interp_6d), intent(inout) :: me
    real(kind=wp), intent(in) :: x
    real(kind=wp), intent(in) :: y
    real(kind=wp), intent(in) :: z
    real(kind=wp), intent(in) :: q
    real(kind=wp), intent(in) :: r
    real(kind=wp), intent(in) :: s
    real(kind=wp), intent(out) :: f

    Interpolated

    integer, intent(out), optional :: istat

    0 : no problems, -1 : class has not been initialized

procedure, public :: destroy => destroy_6d

Source Code

    type,extends(linear_interp_class),public :: linear_interp_6d
        !! Class for 6d linear interpolation.
        private
        real(wp),dimension(:,:,:,:,:,:),allocatable :: f
        real(wp),dimension(:),allocatable :: x
        real(wp),dimension(:),allocatable :: y
        real(wp),dimension(:),allocatable :: z
        real(wp),dimension(:),allocatable :: q
        real(wp),dimension(:),allocatable :: r
        real(wp),dimension(:),allocatable :: s
        integer :: ilox  = 1
        integer :: iloy  = 1
        integer :: iloz  = 1
        integer :: iloq  = 1
        integer :: ilor  = 1
        integer :: ilos  = 1
        contains
        private
        procedure,public :: initialize => initialize_6d
        procedure,public :: evaluate   => interp_6d
        procedure,public :: destroy    => destroy_6d
        final :: finalize_6d
    end type linear_interp_6d