abstract_interfaces.f90

Go to the documentation of this file.

module abstract_interfaces

  use real_type, only: rp
  
  implicit none
  private

  public :: r3tor 
  public :: r3tor3
  public :: rntorn
  public :: r3xrxrtor
  public :: r3xr3xr3tor
  public :: rtor
  public :: rntornxl

  abstract interface

     function rtor(t) result(res)
       import :: rp
       real(RP), intent(in)  :: t
       real(RP)              :: res
     end function rtor

     function r3xrxrtor(x, u, v) result(res)
       import :: rp
       real(RP), dimension(3), intent(in)  :: x
       real(RP)              , intent(in)  :: u, v
       real(RP)                            :: res
     end function r3xrxrtor

     function r3xr3xr3tor(x, p1, p2) result(res)
       import :: rp
       real(RP), dimension(3), intent(in)  :: x, p1, p2
       real(RP)                            :: res
     end function r3xr3xr3tor

     function r3tor(x) result(res)
       import :: rp
       real(RP), dimension(3), intent(in)  :: x
       real(RP)                            :: res
     end function r3tor

     function r3tor3(x) result(res)
       import :: rp
       real(RP), dimension(3), intent(in)  :: x
       real(RP), dimension(3)              :: res
     end function r3tor3

     subroutine rntorn(Fy, y)
       import :: rp
       real(RP), dimension(:), intent(out) :: Fy
       real(RP), dimension(:), intent(in)  :: y
     end subroutine rntorn

     subroutine rntornxl(x, ierr, y)
       import :: rp
       real(RP), dimension(:), intent(inout) :: x
       logical               , intent(out)   :: ierr
       real(RP), dimension(:), intent(in)    :: y
     end subroutine rntornxl


     
  end interface

end module abstract_interfaces