8.1.15 Status_Equal_Status Procedure

The Status_Equal_Status procedure returns a logical value which is true when the two status variable inputs are equal (i.e. have the same state). It has an operator (== or .eq.) interface.

Calling syntax:

Logical = S1 == S2	or
Logical = Equal(S1, S2)

Input variable:

S1, S2

The status variables to be compared.

Output variable:

Equal

True iff the two status variables have the same state.

The Status_Equal_Status code listing contains additional documentation.