InterpolationSchemeInterface.f90

Go to the documentation of this file.

module interpolationschemeinterfacemodule
  use kindmodule, only: dp, i4b
 
  implicit none
  private
 
  public :: interpolationschemeinterface
  public :: coefficientstype
 
  type :: coefficientstype
    real(dp) :: c_n = 0.0_dp
    real(dp) :: c_m = 0.0_dp
    real(dp) :: rhs = 0.0_dp
  end type coefficientstype
 
  type, abstract :: interpolationschemeinterface
  contains
    procedure(compute_if), deferred :: compute
  end type interpolationschemeinterface
 
  abstract interface
 
    function compute_if(this, n, m, iposnm, phi) result(phi_face)
      ! -- import
      import dp, i4b
      import interpolationschemeinterface
      import coefficientstype
      ! -- return
      type(coefficientstype) :: phi_face
      ! -- dummy
      class(interpolationschemeinterface), target :: this
      integer(I4B), intent(in) :: n
      integer(I4B), intent(in) :: m
      integer(I4B), intent(in) :: iposnm
      real(dp), intent(in), dimension(:) :: phi
    end function
 
  end interface
 
end module interpolationschemeinterfacemodule