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