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