Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(in) | :: | ia | |||
integer, | intent(in) | :: | ib |
pure elemental integer function eq(ia,ib) ! ident_13="@(#) M_strings eq(3f) logical to integer TRUE results in 0 FALSE results in 1" integer,intent(in) :: ia, ib eq = merge(1, 0, ia .eq. ib ) end function eq