angle_R16P Function

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

Calculate the angle (rad) between two vectors.

 type(vector_R16P) :: pt(1:2)
 real(R16P)        :: a

 pt(1) = ex_R16P
 pt(2) = 2 * ex_R16P
 a = pt(1)%angle(pt(2))
 print "(F3.1)", a
 type(vector_R16P) :: pt(1:2)
 real(R16P)        :: a

 pt(1) = ex_R16P
 pt(2) = ey_R16P
 a = angle_R16P(pt(1), pt(2))
 print "(F4.2)", a

Arguments

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

The first vector.

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

Other vector.

Return Value real(kind=R16P)

Angle between vectors, in radians.


Calls

proc~~angle_r16p~~CallsGraph proc~angle_r16p angle_R16P proc~norml2_r16p normL2_R16P proc~angle_r16p->proc~norml2_r16p

Called by

proc~~angle_r16p~~CalledByGraph proc~angle_r16p angle_R16P program~volatile_doctest~715 volatile_doctest program~volatile_doctest~715->proc~angle_r16p

Contents

None