private elemental function vector_not_eq_vector(lhs, rhs) result(opr)
Operator /=.
The comparison is done with respect normL2 and, secondary, with respect the directions.
type ( vector_R16P ) :: pt ( 1 : 2 ) pt ( 1 ) = ex_R16P + ey_R16P + ez_R16P pt ( 2 ) = pt ( 1 ) + 1 print "(L1)" , pt ( 1 ) /= pt ( 2 ) type ( vector_R16P ) :: pt ( 1 : 2 ) pt ( 1 ) = ex_R16P + ey_R16P + ez_R16P pt ( 2 ) = ex_R16P + ey_R16P - ez_R16P print "(L1)" , pt ( 1 ) /= pt ( 2 ) Arguments
Type Intent Optional Attributes Name
vector_R16P ),intent(in)
::
lhs Left hand side.
vector_R16P ),intent(in)
::
rhs Right hand side.
Return Value
The result of the comparison.
Calls
proc~~vector_not_eq_vector~2~~CallsGraph
proc~vector_not_eq_vector~2
vector_not_eq_vector
proc~norml2_r16p
normL2_R16P
proc~vector_not_eq_vector~2->proc~norml2_r16p
proc~normalized_r16p
normalized_R16P
proc~vector_not_eq_vector~2->proc~normalized_r16p
Nodes of different colours represent the following:
Graph Key
Subroutine
Subroutine
Function
Function
Interface
Interface
Unknown Procedure Type
Unknown Procedure Type
Program
Program
This Page's Entity
This Page's Entity
Solid arrows point from a procedure to one which it calls. Dashed
arrows point from an interface to procedures which implement that interface.
This could include the module procedures in a generic interface or the
implementation in a submodule of an interface in a parent module.