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.
|Logical = S1 == S2||or|
|Logical = Equal(S1, S2)|
|S1, S2||The status variables to be compared.|
|Equal||True iff the two status variables have the same state.|
The Status_Equal_Status code listing contains additional documentation.
Michael L. Hall