ne Function

public pure elemental function ne(ia, ib)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: ia
integer, intent(in) :: ib

Return Value integer


Source Code

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