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.

Michael L. Hall