Choral
abstract_interfaces.f90
Go to the documentation of this file.
1 
15 
17 
18  use real_type, only: rp
19 
20  implicit none
21  private
22 
23  public :: r3tor
24  public :: r3tor3
25  public :: rntorn
26  public :: r3xrxrtor
27  public :: r3xr3xr3tor
28  public :: rtor
29  public :: rntornxl
30 
31  abstract interface
32 
34  function rtor(t) result(res)
35  import :: rp
36  real(RP), intent(in) :: t
37  real(RP) :: res
38  end function rtor
39 
42  function r3xrxrtor(x, u, v) result(res)
43  import :: rp
44  real(RP), dimension(3), intent(in) :: x
45  real(RP) , intent(in) :: u, v
46  real(RP) :: res
47  end function r3xrxrtor
48 
51  function r3xr3xr3tor(x, p1, p2) result(res)
52  import :: rp
53  real(RP), dimension(3), intent(in) :: x, p1, p2
54  real(RP) :: res
55  end function r3xr3xr3tor
56 
58  function r3tor(x) result(res)
59  import :: rp
60  real(RP), dimension(3), intent(in) :: x
61  real(RP) :: res
62  end function r3tor
63 
65  function r3tor3(x) result(res)
66  import :: rp
67  real(RP), dimension(3), intent(in) :: x
68  real(RP), dimension(3) :: res
69  end function r3tor3
70 
72  subroutine rntorn(Fy, y)
73  import :: rp
74  real(RP), dimension(:), intent(out) :: Fy
75  real(RP), dimension(:), intent(in) :: y
76  end subroutine rntorn
77 
79  subroutine rntornxl(x, ierr, y)
80  import :: rp
81  real(RP), dimension(:), intent(inout) :: x
82  logical , intent(out) :: ierr
83  real(RP), dimension(:), intent(in) :: y
84  end subroutine rntornxl
85 
86 
87 
88  end interface
89 
90 end module abstract_interfaces
DEFINITION OF ABSTRACT_INTERFACES FOR THE LIBRARY CHORAL
integer, parameter, public rp
real(kind=RP) = real precision in the code REAL_TOL = epsilon to test real equality ...
Definition: real_type.F90:90
REAL NUMBERS PRECISION IN CHORAL: selects simple/double/quad
Definition: real_type.F90:33