Commit 76644d88 authored by Graham, Aaron's avatar Graham, Aaron
Browse files

Make isBetween elemental

parent 4c13f7aa

src/IntrType.f90

+1 −1
Original line number Diff line number Diff line
@@ -1057,7 +1057,7 @@ ENDFUNCTION isNumeric 
!>

!> A positive tolerance narrows the range, while a negative tolerance increases it

!>

ELEMENTAL FUNCTION isBetween_SNK(a,val,b,tolerance) RESULT(between)

IMPURE ELEMENTAL FUNCTION isBetween_SNK(a,val,b,tolerance) RESULT(between)

  INTEGER(SNK),INTENT(IN) :: a

  INTEGER(SNK),INTENT(IN) :: val

  INTEGER(SNK),INTENT(IN) :: b