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_R4P ) :: pt ( 1 : 2 ) pt ( 1 ) = ex_R4P + ey_R4P + ez_R4P pt ( 2 ) = pt ( 1 ) + 1 print "(L1)" , pt ( 1 ) /= pt ( 2 ) type ( vector_R4P ) :: pt ( 1 : 2 ) pt ( 1 ) = ex_R4P + ey_R4P + ez_R4P pt ( 2 ) = ex_R4P + ey_R4P - ez_R4P print "(L1)" , pt ( 1 ) /= pt ( 2 ) Arguments
Type Intent Optional Attributes Name
vector_R4P ),intent(in)
::
lhs Left hand side.
vector_R4P ),intent(in)
::
rhs Right hand side.
Return Value
The result of the comparison.
Calls
proc~~vector_not_eq_vector~4~~CallsGraph
proc~vector_not_eq_vector~4
vector_not_eq_vector
proc~norml2_r4p
normL2_R4P
proc~vector_not_eq_vector~4->proc~norml2_r4p
proc~normalized_r4p
normalized_R4P
proc~vector_not_eq_vector~4->proc~normalized_r4p
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.