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_R8P ) :: pt ( 1 : 2 ) pt ( 1 ) = ex_R8P + ey_R8P + ez_R8P pt ( 2 ) = pt ( 1 ) + 1 print "(L1)" , pt ( 1 ) /= pt ( 2 ) type ( vector_R8P ) :: pt ( 1 : 2 ) pt ( 1 ) = ex_R8P + ey_R8P + ez_R8P pt ( 2 ) = ex_R8P + ey_R8P - ez_R8P print "(L1)" , pt ( 1 ) /= pt ( 2 ) Arguments
Type Intent Optional Attributes Name
vector_R8P ),intent(in)
::
lhs Left hand side.
vector_R8P ),intent(in)
::
rhs Right hand side.
Return Value
The result of the comparison.
Calls
proc~~vector_not_eq_vector~~CallsGraph
proc~vector_not_eq_vector
vector_not_eq_vector
proc~norml2_r8p
normL2_R8P
proc~vector_not_eq_vector->proc~norml2_r8p
proc~normalized_r8p
normalized_R8P
proc~vector_not_eq_vector->proc~normalized_r8p
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.