Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
logical, | intent(in) | :: | logical_val1 | |||
logical, | intent(in) | :: | logical_val2 |
logical function boolean_equal(logical_val1,logical_val2) logical, intent (in) :: logical_val1, logical_val2 boolean_equal = logical_val1 .eqv. logical_val2 end function boolean_equal