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