34 function rtor(t)
result(res)
36 real(RP),
intent(in) :: t
42 function r3xrxrtor(x, u, v)
result(res)
44 real(RP),
dimension(3),
intent(in) :: x
45 real(RP) ,
intent(in) :: u, v
47 end function r3xrxrtor
51 function r3xr3xr3tor(x, p1, p2)
result(res)
53 real(RP),
dimension(3),
intent(in) :: x, p1, p2
55 end function r3xr3xr3tor
58 function r3tor(x)
result(res)
60 real(RP),
dimension(3),
intent(in) :: x
65 function r3tor3(x)
result(res)
67 real(RP),
dimension(3),
intent(in) :: x
68 real(RP),
dimension(3) :: res
72 subroutine rntorn(Fy, y)
74 real(RP),
dimension(:),
intent(out) :: Fy
75 real(RP),
dimension(:),
intent(in) :: y
79 subroutine rntornxl(x, ierr, y)
81 real(RP),
dimension(:),
intent(inout) :: x
82 logical ,
intent(out) :: ierr
83 real(RP),
dimension(:),
intent(in) :: y
84 end subroutine rntornxl
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 ...
REAL NUMBERS PRECISION IN CHORAL: selects simple/double/quad