selalib/sll__m__ellipt__2d__fem__sps__weak__form_8_f90_source.html

 module sll_m_ellipt_2d_fem_sps_weak_form

 !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++


    use sll_m_working_precision, only: f64


    implicit none


    public :: sll_c_ellipt_2d_fem_sps_weak_form


    private

 !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++


    ! Working precision

    integer, parameter :: wp = f64


    type, abstract :: sll_c_ellipt_2d_fem_sps_weak_form


    contains


       ! Deferred procedures

 !    procedure(i_sub_element_mat), deferred :: element_mat

       procedure(i_sub_element_rhs), deferred :: element_rhs


    end type sll_c_ellipt_2d_fem_sps_weak_form


    ! Interfaces for deferred procedures

    abstract interface


 !    subroutine i_sub_element_mat( &

 !      self                        , &

 !      test_values_and_derivs_eta1 , &

 !      test_values_and_derivs_eta2 , &

 !      trial_values_and_derivs_eta1, &

 !      trial_values_and_derivs_eta2, &

 !      int_volume                  , &

 !      inv_metric                  , &

 !      Aij, &

 !      Mij )

 !      import sll_c_ellipt_2d_fem_sps_weak_form, wp

 !      class(sll_c_ellipt_2d_fem_sps_weak_form), intent(in   ) :: self

 !      real(wp)                                , intent(in   ) :: test_values_and_derivs_eta1 (:,:)

 !      real(wp)                                , intent(in   ) :: test_values_and_derivs_eta2 (:,:)

 !      real(wp)                                , intent(in   ) :: trial_values_and_derivs_eta1(:,:)

 !      real(wp)                                , intent(in   ) :: trial_values_and_derivs_eta2(:,:)

 !      real(wp)                                , intent(in   ) :: int_volume(:,:)

 !      real(wp)                                , intent(in   ) :: inv_metric(:,:,:,:)

 !      real(wp)                                , intent(  out) :: Aij

 !      real(wp)                                , intent(  out) :: Mij

 !    end subroutine i_sub_element_mat


       subroutine i_sub_element_rhs( &

          self, &

          test_values_and_derivs_eta1, &

          test_values_and_derivs_eta2, &

          data_2d_rhs, &

          int_volume, &

          bi)

          import sll_c_ellipt_2d_fem_sps_weak_form, wp

          class(sll_c_ellipt_2d_fem_sps_weak_form), intent(in) :: self

          real(wp), intent(in) :: test_values_and_derivs_eta1(:, :)

          real(wp), intent(in) :: test_values_and_derivs_eta2(:, :)

          real(wp), intent(in) :: data_2d_rhs(:, :)

          real(wp), intent(in) :: int_volume(:, :)

          real(wp), intent(out) :: bi

       end subroutine i_sub_element_rhs


    end interface


 end module sll_m_ellipt_2d_fem_sps_weak_form

sll_m_ellipt_2d_fem_sps_weak_form::i_sub_element_rhs
Definition: sll_m_ellipt_2d_fem_sps_weak_form.F90:51

sll_m_ellipt_2d_fem_sps_weak_form
Definition: sll_m_ellipt_2d_fem_sps_weak_form.F90:1

sll_m_ellipt_2d_fem_sps_weak_form::wp
integer, parameter wp
Definition: sll_m_ellipt_2d_fem_sps_weak_form.F90:14

sll_m_working_precision
Module to select the kind parameter.
Definition: sll_m_working_precision.F90:29

sll_m_working_precision::f64
integer, parameter, public f64
f64 is the kind type for 64-bit reals (double precision)
Definition: sll_m_working_precision.F90:53

sll_m_ellipt_2d_fem_sps_weak_form::sll_c_ellipt_2d_fem_sps_weak_form
Definition: sll_m_ellipt_2d_fem_sps_weak_form.F90:16