angle_R4P Function

  1. vecfor_R4P.F90
  2. vecfor_R4P
  3. angle_R4P

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

Calculate the angle (rad) between two vectors.

 type(vector_R4P) :: pt(1:2)
 real(R4P)        :: a

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

 type(vector_R4P) :: pt(1:2)
 real(R4P)        :: a

 pt(1) = ex_R4P
 pt(2) = ey_R4P
 a = angle_R4P(pt(1), pt(2))
 print "(F4.2)", a

Arguments

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

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

Other vector.

Return Value real(kind=R4P)

Angle between vectors, in radians.


Calls

proc~~angle_r4p~~CallsGraph proc~angle_r4p angle_R4P proc~norml2_r4p normL2_R4P proc~angle_r4p->proc~norml2_r4p

Called by

proc~~angle_r4p~~CalledByGraph proc~angle_r4p angle_R4P program~volatile_doctest~429 volatile_doctest program~volatile_doctest~429->proc~angle_r4p

Contents

None