angle Function

  1. vecfor_RPP.F90
  2. vecfor_RPP
  3. angle

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

Calculate the angle (rad) between two vectors.

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

 pt(1) = ex
 pt(2) = 2 * ex
 a = pt(1)%angle(pt(2))
 print "(F3.1)", a

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

 pt(1) = ex
 pt(2) = ey
 a = angle(pt(1), pt(2))
 print "(F4.2)", a

Arguments

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

The first vector.
type(vector), intent(in) :: other

Other vector.

Return Value real(kind=R8P)

Angle between vectors, in radians.


Calls

proc~~angle~~CallsGraph proc~angle angle proc~norml2 normL2 proc~angle->proc~norml2

Called by

proc~~angle~~CalledByGraph proc~angle angle program~volatile_doctest~20 volatile_doctest program~volatile_doctest~20->proc~angle

Contents

None