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