sll_m_poisson_1d_base.F90

Go to the documentation of this file.

 
module sll_m_poisson_1d_base
!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
#include "sll_working_precision.h"
 
   implicit none
 
   public :: &
      sll_c_poisson_1d_base
 
   private
!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
   type, abstract :: sll_c_poisson_1d_base
   contains
      procedure(signature_compute_phi_from_rho_1d), deferred, pass(poisson) :: &
         compute_phi_from_rho
      procedure(signature_compute_e_from_rho_1d), deferred, pass(poisson) :: &
         compute_e_from_rho
   end type sll_c_poisson_1d_base
 
#ifndef DOXYGEN_SHOULD_SKIP_THIS
 
   abstract interface
      subroutine signature_compute_phi_from_rho_1d(poisson, phi, rho)
         use sll_m_working_precision
         import sll_c_poisson_1d_base
         class(sll_c_poisson_1d_base)        :: poisson
         sll_real64, dimension(:), intent(in)  :: rho
         sll_real64, dimension(:), intent(out) :: phi
      end subroutine signature_compute_phi_from_rho_1d
   end interface
 
   abstract interface
      subroutine signature_compute_e_from_rho_1d(poisson, E, rho)
         use sll_m_working_precision
         import sll_c_poisson_1d_base
         class(sll_c_poisson_1d_base) :: poisson
         sll_real64, dimension(:), intent(in) :: rho
         sll_real64, dimension(:), intent(out) :: e
      end subroutine signature_compute_e_from_rho_1d
   end interface
 
#endif /* DOXYGEN_SHOULD_SKIP_THIS */
 
end module sll_m_poisson_1d_base