sll_m_spline_matrix_base.F90

Go to the documentation of this file.

 
 
module sll_m_spline_matrix_base
 
!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
   use sll_m_working_precision, only: f64
 
   implicit none
 
   public :: sll_c_spline_matrix
 
   private
!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
   integer, parameter :: wp = f64
 
   type, abstract :: sll_c_spline_matrix
   contains
      procedure(i_sub_set_element), deferred :: set_element
      procedure(i_sub_factorize), deferred :: factorize
      procedure(i_sub_solve_inplace), deferred :: solve_inplace
      procedure(i_sub_write), deferred :: write
      procedure(i_sub_free), deferred :: free
   end type sll_c_spline_matrix
 
   abstract interface
 
      !-----------------------------------------------------------------------------
      subroutine i_sub_set_element(self, i, j, a_ij)
         import sll_c_spline_matrix, wp
         class(sll_c_spline_matrix), intent(inout) :: self
         integer, intent(in) :: i
         integer, intent(in) :: j
         real(wp), intent(in) :: a_ij
      end subroutine i_sub_set_element
 
      !-----------------------------------------------------------------------------
      subroutine i_sub_factorize(self)
         import sll_c_spline_matrix, wp
         class(sll_c_spline_matrix), intent(inout) :: self
      end subroutine i_sub_factorize
 
      !-----------------------------------------------------------------------------
      subroutine i_sub_solve_inplace(self, bx)
         import sll_c_spline_matrix, wp
         class(sll_c_spline_matrix), intent(in) :: self
         real(wp), intent(inout) :: bx(:)
      end subroutine i_sub_solve_inplace
 
      !-----------------------------------------------------------------------------
      subroutine i_sub_write(self, unit, fmt)
         import sll_c_spline_matrix, wp
         class(sll_c_spline_matrix), intent(in) :: self
         integer, optional, intent(in) :: unit
         character(len=*), optional, intent(in) :: fmt
      end subroutine i_sub_write
 
      !-----------------------------------------------------------------------------
      subroutine i_sub_free(self)
         import sll_c_spline_matrix
         class(sll_c_spline_matrix), intent(inout) :: self
      end subroutine i_sub_free
 
   end interface
 
end module sll_m_spline_matrix_base