angle_R8P Function

public elemental function angle_R8P(self, other) result(angle_)

Calculate the angle (rad) between two vectors.

 type(vector_R8P) :: pt(1:2)
 real(R8P)        :: a

 pt(1) = ex_R8P
 pt(2) = 2 * ex_R8P
 a = pt(1)%angle(pt(2))
 print "(F3.1)", a
 type(vector_R8P) :: pt(1:2)
 real(R8P)        :: a

 pt(1) = ex_R8P
 pt(2) = ey_R8P
 a = angle_R8P(pt(1), pt(2))
 print "(F4.2)", a

Arguments

TypeIntentOptionalAttributesName
class(vector_R8P), intent(in) :: self

The first vector.

type(vector_R8P), intent(in) :: other

Other vector.

Return Value real(kind=R8P)

Angle between vectors, in radians.


Calls

proc~~angle_r8p~~CallsGraph proc~angle_r8p angle_R8P proc~norml2_r8p normL2_R8P proc~angle_r8p->proc~norml2_r8p

Called by

proc~~angle_r8p~~CalledByGraph proc~angle_r8p angle_R8P program~volatile_doctest~328 volatile_doctest program~volatile_doctest~328->proc~angle_r8p

Contents

None